From 16d14e82cc83cbd1e1debff91def033f6d8af6e9 Mon Sep 17 00:00:00 2001
From: Hugo Duncan <hugo_duncan@yahoo.com>
Date: Fri, 17 Sep 2010 15:57:50 -0400
Subject: [PATCH] Add test for vararg options

---
 compute/src/test/clojure/org/jclouds/compute_test.clj | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/compute/src/test/clojure/org/jclouds/compute_test.clj b/compute/src/test/clojure/org/jclouds/compute_test.clj
index 57057513b0..2fbe44b68d 100644
--- a/compute/src/test/clojure/org/jclouds/compute_test.clj
+++ b/compute/src/test/clojure/org/jclouds/compute_test.clj
@@ -67,5 +67,10 @@ list, Alan Dipert and MeikelBrandmeyer."
       (is (= OsFamily/CENTOS
              (-> (build-template service {:os-family :centos})
                  bean :image bean :operatingSystem bean :family))))
+    (testing "varags"
+      (is (java.util.Arrays/equals
+           (int-array [22 8080])
+           (-> (build-template service {:inbound-ports [22 8080]})
+               bean :options bean :inboundPorts))))
     (testing "invalid"
       (is (thrown? Condition (build-template service {:xx :yy}))))))