Created a Handler base class for all of the server handlers, which allows a lot of the manual work to now be automatic

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

1 files changed, 50 insertions, 0 deletions

diff --git a/test/server/tc_fileserver.rb b/test/server/tc_fileserver.rb
index 93b31db58..692981fe3 100755
--- a/test/server/tc_fileserver.rb
+++ b/test/server/tc_fileserver.rb
@@ -19,9 +19,17 @@ class TestFileServer < TestPuppet
             Puppet[:loglevel] = :debug
         end
 
+        @@tmppids = []
         super
     end
 
+    def teardown
+        super
+        @@tmppids.each { |pid|
+            system("kill -INT %s" % pid)
+        }
+    end
+
     def mkrandomdirs(dir, depth, width)
         assert_nothing_raised {
             Dir.mkdir(dir)
@@ -378,6 +386,48 @@ class TestFileServer < TestPuppet
             }
         }
     end
+
+    def test_networksources
+        server = nil
+        Puppet[:ssldir] = "/tmp/serverconnecttesting"
+        Puppet[:autosign] = true
+        @@tmpfiles << "/tmp/serverconnecttesting"
+        serverpid = nil
+        port = 8080
+        assert_nothing_raised() {
+            server = Puppet::Server.new(
+                :Port => port,
+                :Handlers => {
+                    :CA => {}, # so that certs autogenerate
+                    :Status => nil
+                }
+            )
+
+        }
+        serverpid = fork {
+            assert_nothing_raised() {
+                #trap(:INT) { server.shutdown; Kernel.exit! }
+                trap(:INT) { server.shutdown }
+                server.start
+            }
+        }
+        @@tmppids << serverpid
+
+        sleep(3)
+        client = nil
+        assert_nothing_raised() {
+            client = XMLRPC::Client.new("localhost", "/RPC2", port, nil, nil,
+                nil, nil, true, 3)
+        }
+        retval = nil
+
+        assert_nothing_raised() {
+            Puppet.notice "calling status"
+            retval = client.call("status.status")
+        }
+
+        assert_equal(1, retval)
+    end
 end
 
 # $Id$