Add tests for key_pair model and key_pairs collection.

tests/hp/models/compute/key_pair_tests.rb

@@ -0,0 +1,27 @@
+Shindo.tests("Fog::Compute[:hp] | key_pair", ['hp']) do
+
+  model_tests(Fog::Compute[:hp].key_pairs, {:name => 'fogkeyname'}, true)
+
+  after do
+    @keypair.destroy
+  end
+
+  tests("new keypair") do
+    @keypair = Fog::Compute[:hp].key_pairs.create(:name => 'testkey')
+
+    test ("writable?") do
+      @keypair.writable? == true
+    end
+  end
+
+  tests("existing keypair") do
+    Fog::Compute[:hp].key_pairs.create(:name => 'testkey')
+    @keypair = Fog::Compute[:hp].key_pairs.get('testkey')
+
+    test("writable?") do
+      @keypair.writable? == false
+    end
+  end
+
+
+end

tests/hp/models/compute/key_pairs_tests.rb

@@ -0,0 +1,5 @@
+Shindo.tests("Fog::Compute[:hp] | key_pairs", ['hp']) do
+
+  collection_tests(Fog::Compute[:hp].key_pairs, {:name => 'fogkeyname'}, true)
+
+end