Changeset 1425

Timestamp:

04/02/08 17:18:13 (3 months ago)

Author:

kindlund

Message:

Updated initial unit tests for Agent.

Files:

• honeyclient/branches/exp/kindlund-simpler_agent/lib/HoneyClient/Agent.pm (modified) (7 diffs)
• honeyclient/branches/exp/kindlund-simpler_agent/t/honeyclient_agent.t (modified) (4 diffs)
• honeyclient/branches/exp/kindlund-simpler_agent/t/honeyclient_manager_database.t (modified) (1 diff)

honeyclient/branches/exp/kindlund-simpler_agent/lib/HoneyClient/Agent.pm

@@ -112 +112 @@
-
-# Make sure the module loads properly, with the exportable
-A
-# functions shared.
-BEGIN { use_ok('HoneyClient::Agent') or diag("Can't load HoneyClient::Agent package.  Check to make sure the package library is correctly listed within the path."); }
@@ -251 +250 @@
-=begin testing
-
-# XXX: Test init() method.
-our $URL = HoneyClient::Agent->init();
-our $PORT = getVar(name      => "port", 
@@ -309 +307 @@
-    my $pid = undef;
-    if ($pid = fork()) {
+        # Wait at least a second, in order to initialize the daemon.
+        sleep (1);
-        # We use a local variable to get the pid, and then we set the global
-        # DAEMON_PID variable after the fork().  This is intentional, because
@@ -314 +314 @@
-        # operation.
-        $DAEMON_PID = $pid;
+        $LOG->debug("Initializing Agent daemon at PID: " . $DAEMON_PID);
-        return $URL;
-   
@@ -357 +358 @@
-=begin testing
-
-# XXX: Test destroy() method.
-is(HoneyClient::Agent->destroy(), 1, "destroy()") or diag("Unable to terminate Agent SOAP server.  Be sure to check for any stale or lingering processes.");
-
-# TODO: delete this.
-#exit;
-
-=end testing
@@ -381 +378 @@
-    # the parent process...
-    if (defined($DAEMON_PID) && $DAEMON_PID) {
-info
+debug
-        
-        # TODO: Need unit tests.
@@ -450 +447 @@
-=back
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-=cut

honeyclient/branches/exp/kindlund-simpler_agent/t/honeyclient_agent.t

@@ -30 +30 @@
-use HoneyClient::Util::Config qw(getVar);
-
-# TODO: Include FF
-# Make sure HoneyClient::Agent::Driver::Browser::IE loads.
-BEGIN { use_ok('HoneyClient::Agent::Driver::Browser::IE') or diag("Can't load HoneyClient::Agent::Driver::Browser::IE package.  Check to make sure the package library is correctly listed within the path."); }
-require_ok('HoneyClient::Agent::Driver::Browser::IE');
-# TODO: Update this list of function names.
-can_ok('HoneyClient::Agent::Driver::Browser::IE', 'new');
-can_ok('HoneyClient::Agent::Driver::Browser::IE', 'drive');
-can_ok('HoneyClient::Agent::Driver::Browser::IE', 'getNextLink');
-can_ok('HoneyClient::Agent::Driver::Browser::IE', 'next');
-can_ok('HoneyClient::Agent::Driver::Browser::IE', 'isFinished');
-can_ok('HoneyClient::Agent::Driver::Browser::IE', 'status');
-use HoneyClient::Agent::Driver::Browser::IE;
-
-# Make sure Storable loads.
-BEGIN { use_ok('Storable', qw(freeze nfreeze thaw dclone)) or diag("Can't load Storable package.  Check to make sure the package library is correctly listed within the path."); }
@@ -59 +46 @@
-use MIME::Base64 qw(encode_base64 decode_base64);
-
-
+
+
+
+
+
-# Global test variables.
-our $PORT = getVar(name      => "port",
@@ -70 +61 @@
-# =begin testing
-{
-# XXX: Test init() method.
-our $URL = HoneyClient::Agent->init();
-our $PORT = getVar(name      => "port", 
@@ -83 +73 @@
-# =begin testing
-{
-# XXX: Test destroy() method.
-is(HoneyClient::Agent->destroy(), 1, "destroy()") or diag("Unable to terminate Agent SOAP server.  Be sure to check for any stale or lingering processes.");
+}
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-

honeyclient/branches/exp/kindlund-simpler_agent/t/honeyclient_manager_database.t

@@ -78 +78 @@
-use Data::Dumper;
-
+# Make sure LWP::UserAgent loads.
+BEGIN { use_ok('LWP::UserAgent') or diag("Can't load LWP::UserAgent package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('LWP::UserAgent');
+use LWP::UserAgent;
+
-# Make sure Data::Structure::Util loads.
-BEGIN { use_ok('Data::Structure::Util', qw(unbless)) or diag("Can't load Data::Structure::Util package.  Check to make sure the package library is correctly listed within the path."); }