Ported sshkey over, yay.

git-svn-id: https://reductivelabs.com/svn/puppet/trunk@1866 980ebf18-57e1-0310-9a29-db15c13687c0

1 files changed, 62 insertions, 0 deletions

diff --git a/test/providers/parsedsshkey.rb b/test/providers/parsedsshkey.rb
index 547e52e8b..9fc52e643 100755
--- a/test/providers/parsedsshkey.rb
+++ b/test/providers/parsedsshkey.rb
@@ -21,14 +21,76 @@ class TestParsedSSHKey < Test::Unit::TestCase
     def teardown
         Puppet::FileType.filetype(:ram).clear
         @provider.filetype = @oldfiletype
+        @provider.clear
         super
     end
+    
+    def mkkey(name = "host.domain.com")
+        mount = nil
+
+        if defined? @pcount
+            @pcount += 1
+        else
+            @pcount = 1
+        end
+        args = {
+            :name => name || "/fspuppet%s" % @pcount,
+            :key => "thisismykey%s" % @pcount,
+            :alias => ["host1.domain.com","192.168.0.1"],
+            :type => "dss",
+            :ensure => :present
+        }
+
+        fakemodel = fakemodel(:mount, args[:name])
+
+        key = @provider.new(fakemodel)
+        args.each do |p,v|
+            key.send(p.to_s + "=", v)
+        end
+
+        return key
+    end
 
     def test_keysparse
         fakedata("data/types/sshkey").each { |file|
             fakedataparse(file)
         }
     end
+    
+    def test_simplekey
+        @provider.filetype = :ram
+        file = @provider.default_target
+        
+        key = nil
+        assert_nothing_raised do
+            key = mkkey
+        end
+        
+        assert(key, "did not create key")
+        
+        assert_nothing_raised do
+            key.flush
+        end
+        
+        assert(key.alias, "No alias set for key")
+        
+        hash = key.state_hash.dup
+        text = @provider.target_object(file).read
+        names = [key.name, key.alias].flatten.join(",")
+        
+        assert_equal("#{names} #{key.type} #{key.key}\n", text)
+        
+        assert_nothing_raised do
+            @provider.prefetch
+        end
+        
+        hash.each do |p, v|
+            next unless key.respond_to?(p)
+            assert_equal(v, key.send(p), "%s did not match" % p)
+        end
+        
+        assert(key.name !~ /,/, "Aliases were not split out during parsing")
+    end
 end
 
 # $Id$