Changeset 1635

Timestamp:

06/24/08 17:15:50 (5 months ago)

Author:

kindlund

Message:

Updated unit testing.

Files:

• honeyclient/branches/exp/kindlund-strace/lib/HoneyClient/Agent.pm (modified) (3 diffs)
• honeyclient/branches/exp/kindlund-strace/t/honeyclient_agent.t (modified) (6 diffs)

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

@@ -656 +656 @@
-use Config;
-SKIP: {
-1
+3
-
-    # Shared test variables.
@@ -1309 +1309 @@
-          ],
-          'time_at' => '2008-04-02 21:44:40.376',
-          'work_status' => 'completed',
-        };
-
@@ -1342 +1341 @@
-        fail($@);
-    }
+    diag("Note: If applicable, be sure to delete any STRACE.LOG files that remain on the Desktop.");
-}
-

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

@@ -107 +107 @@
-use DateTime::HiRes;
-
+# Make sure Filesys::CygwinPaths loads.
+BEGIN { use_ok('Filesys::CygwinPaths') or diag("Can't load Filesys::CygwinPaths package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('Filesys::CygwinPaths');
+use Filesys::CygwinPaths qw(:all);
+
+# Make sure File::Basename loads.
+BEGIN { use_ok('File::Basename', qw(basename dirname)) or diag("Can't load File::Basename package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('File::Basename');
+can_ok('File::Basename', 'basename');
+can_ok('File::Basename', 'dirname');
+use File::Basename qw(basename dirname);
+
-# Make sure Data::Dumper loads.
-BEGIN { use_ok('Data::Dumper') or diag("Can't load Data::Dumper package.  Check to make sure the package library is correctly listed within the path."); }
@@ -179 +191 @@
-use Config;
-SKIP: {
-1
+3
-
-    # Shared test variables.
@@ -212 +224 @@
-        ok($changes, "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
-        ok(exists($changes->{'status'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
+        ok(exists($changes->{'work_status'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
-        ok(exists($changes->{'time_at'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
-        ok(exists($changes->{'fingerprint'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
@@ -830 +843 @@
-            }
-          ],
-
+,
-        };
-
@@ -844 +857 @@
-        ok(exists($changes->{'time_at'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
-        ok(exists($changes->{'fingerprint'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
+        ok(exists($changes->{'work_status'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
-
-        # Check that os_processes is not empty.
@@ -862 +876 @@
-        fail($@);
-    }
+    diag("Note: If applicable, be sure to delete any STRACE.LOG files that remain on the Desktop.");
-}
-}