Changeset 1499 for honeyclient/trunk/t

Timestamp:

04/09/08 15:47:11 (4 months ago)

Author:

kindlund

Message:

Merging simpler_agent branch into trunk.

Files:

• honeyclient/trunk/t/honeyclient_agent.t (modified) (5 diffs)
• honeyclient/trunk/t/honeyclient_agent_driver.t (deleted)
• honeyclient/trunk/t/honeyclient_agent_driver_activecontent.t (deleted)
• honeyclient/trunk/t/honeyclient_agent_driver_activecontent_flash.t (deleted)
• honeyclient/trunk/t/honeyclient_agent_driver_browser.t (deleted)
• honeyclient/trunk/t/honeyclient_agent_driver_browser_ff.t (deleted)
• honeyclient/trunk/t/honeyclient_agent_driver_browser_ie.t (deleted)
• honeyclient/trunk/t/honeyclient_manager.t (modified) (3 diffs)
• honeyclient/trunk/t/honeyclient_manager_database.t (modified) (1 diff)
• honeyclient/trunk/t/honeyclient_manager_vm.t (modified) (20 diffs)
• honeyclient/trunk/t/honeyclient_manager_vm_clone.t (modified) (9 diffs)
• honeyclient/trunk/t/test_integrity (copied) (copied from honeyclient/branches/exp/kindlund-simpler_agent/t/test_integrity)

honeyclient/trunk/t/honeyclient_agent.t

@@ -9 +9 @@
-# =begin testing
-{
+# Make sure Log::Log4perl loads
+BEGIN { use_ok('Log::Log4perl', qw(:nowarn))
+        or diag("Can't load Log::Log4perl package. Check to make sure the package library is correctly listed within the path.");
+
+        # Suppress all logging messages, since we need clean output for unit testing.
+        Log::Log4perl->init({
+            "log4perl.rootLogger"                               => "DEBUG, Buffer",
+            "log4perl.appender.Buffer"                          => "Log::Log4perl::Appender::TestBuffer",
+            "log4perl.appender.Buffer.min_level"                => "fatal",
+            "log4perl.appender.Buffer.layout"                   => "Log::Log4perl::Layout::PatternLayout",
+            "log4perl.appender.Buffer.layout.ConversionPattern" => "%d{yyyy-MM-dd HH:mm:ss} %5p [%M] (%F:%L) - %m%n",
+        });
+}
+require_ok('Log::Log4perl');
+use Log::Log4perl qw(:easy);
+
+# Make sure HoneyClient::Util::Config loads.
+BEGIN { use_ok('HoneyClient::Util::Config', qw(getVar))
+        or diag("Can't load HoneyClient::Util::Config package.  Check to make sure the package library is correctly listed within the path.");
+
+        # Suppress all logging messages, since we need clean output for unit testing.
+        Log::Log4perl->init({
+            "log4perl.rootLogger"                               => "DEBUG, Buffer",
+            "log4perl.appender.Buffer"                          => "Log::Log4perl::Appender::TestBuffer",
+            "log4perl.appender.Buffer.min_level"                => "fatal",
+            "log4perl.appender.Buffer.layout"                   => "Log::Log4perl::Layout::PatternLayout",
+            "log4perl.appender.Buffer.layout.ConversionPattern" => "%d{yyyy-MM-dd HH:mm:ss} %5p [%M] (%F:%L) - %m%n",
+        });
+}
+require_ok('HoneyClient::Util::Config');
+can_ok('HoneyClient::Util::Config', 'getVar');
+use HoneyClient::Util::Config qw(getVar);
+
+# Suppress all logging messages, since we need clean output for unit testing.
+Log::Log4perl->init({
+    "log4perl.rootLogger"                               => "DEBUG, Buffer",
+    "log4perl.appender.Buffer"                          => "Log::Log4perl::Appender::TestBuffer",
+    "log4perl.appender.Buffer.min_level"                => "fatal",
+    "log4perl.appender.Buffer.layout"                   => "Log::Log4perl::Layout::PatternLayout",
+    "log4perl.appender.Buffer.layout.ConversionPattern" => "%d{yyyy-MM-dd HH:mm:ss} %5p [%M] (%F:%L) - %m%n",
+});
+
-# Make sure the module loads properly, with the exportable
-# functions shared.
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-# Make sure HoneyClient::Util::SOAP loads.
@@ -24 +83 @@
-use HoneyClient::Util::SOAP qw(getServerHandle getClientHandle);
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
-
-# Make sure Storable loads.
-freeze nfreeze thaw dclone
+nfreeze thaw
-require_ok('Storable');
-can_ok('Storable', 'freeze');
-can_ok('Storable', 'nfreeze');
-can_ok('Storable', 'thaw');
-
-
+
-
-# Make sure MIME::Base64 loads.
@@ -59 +102 @@
-use MIME::Base64 qw(encode_base64 decode_base64);
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-# Global test variables.
-our $PORT = getVar(name      => "port",
@@ -70 +145 @@
-# =begin testing
-{
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
@@ -83 +163 @@
-# =begin testing
-{
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+