Changeset 1431

Timestamp:

04/02/08 22:26:01 (4 months ago)

Author:

kindlund

Message:

Updated Agent unit tests.

Files:

• honeyclient/branches/exp/kindlund-simpler_agent/etc/honeyclient.xml (modified) (1 diff)
• honeyclient/branches/exp/kindlund-simpler_agent/lib/HoneyClient/Agent.pm (modified) (6 diffs)
• honeyclient/branches/exp/kindlund-simpler_agent/lib/HoneyClient/Agent/Integrity.pm (modified) (2 diffs)
• honeyclient/branches/exp/kindlund-simpler_agent/t/honeyclient_agent.t (modified) (3 diffs)
• honeyclient/branches/exp/kindlund-simpler_agent/t/test_integrity (added)
• honeyclient/branches/exp/kindlund-simpler_agent/t/test_integrity/realtime-changes.txt (added)

honeyclient/branches/exp/kindlund-simpler_agent/etc/honeyclient.xml

@@ -163 +163 @@
-                /tmp/realtime-changes.txt
-            </realtime_changes_file>
+            <!-- HoneyClient::Agent::Integrity::Test Options -->
+            <Test>
+                <!--
+                    Note: you should *never* need to change *any* values
+                    within this section of the configuration.  All contents
+                    are *only* used for unit testing.
+                -->
+                <realtime_changes_file description="When an integrity check fails, all changes will be written to this file within the compromized honeyclient VM's filesystem." default="/tmp/realtime-changes.txt">
+                    t/test_integrity/realtime-changes.txt
+                </realtime_changes_file>
+            </Test>
-        </Integrity>
-    </Agent>

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

@@ -520 +520 @@
-=back 
-
-# XXX: Verify this.
-
-I<Inputs>: 
- B<$driverName> is the name of the Driver to use, when running this 
@@ -531 +529 @@
-an Integrity check.
-
-# XXX: Describe this hashtable output.
- 
-I<Output>:
+ A hashtable containing the following information:
+
+ {
+     # Status information about the Win32::Job.
+     'status' => {
+         # The PID of the job, when it was ran.
+         '21252' => {
+             # How much time the job consumed...
+             'time' => {
+                 # ... in kernel space.
+                 'kernel' => '0.801152',
+                 # ... in user space.
+                 'user' => '0.3304752',
+                 # ... total elapsed.
+                 'elapsed' => '20.1489728'
+             },
+             'exitcode' => '293'
+         }
+     },
+     # Any fingerprint information, if the job caused
+     # an integrity check failure.
+     'fingerprint' => {
+         'os_processes' => []
+     },
+     # Time inside VM when job was executed.
+     'time_at' => '2008-04-02 22:17:00.889667987'
+ };
-
-=back
@@ -542 +565 @@
-use Config;
-SKIP: {
-
-
+
-
-    # Shared test variables.
@@ -561 +583 @@
-        my $realtime_changes_file = getVar(name      => 'realtime_changes_file',
-                                           namespace => 'HoneyClient::Agent::Integrity');
+        unlink($realtime_changes_file);
-        open(REALTIME_CHANGES_FILE, ">", $realtime_changes_file);
-        close(REALTIME_CHANGES_FILE); 
@@ -572 +595 @@
-        my $changes = $som->result();
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-   
-        # Check to see if the drive operation completed properly. 
-        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.");
-driven
+time
-        ok(exists($changes->{'fingerprint'}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-        ok(scalar(@{$changes->{'fingerprint'}->{os_processes}}), "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
+
+        # Check that fingerprint matches.
+        is_deeply($expectedFingerprint, $changes->{'fingerprint'}, "drive(driver_name => 'HoneyClient::Agent::Driver::Browser::IE')") or diag("The drive() call failed.");
-
-        # Delete the mock realtime_changes_file.
@@ -673 +1304 @@
-    my $ret = {
-        # Time when application was driven.
-driven
+time
-
-        # Fingerprint information found (if any).

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

@@ -609 +609 @@
-        
-        my @toks = split("\",\"", $line, $TOTAL_REG_TOKENS+1);
-
+#
-        my $index = undef;
-        my $proc_obj = undef;
@@ -771 +771 @@
-            $Data::Dumper::Indent = 1;
-            print CHANGE_FILE Dumper(\%changes);
-
+#
-            close CHANGE_FILE;
-        }

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

@@ -171 +171 @@
-use Config;
-SKIP: {
-5
+11
-
-    # Shared test variables.
@@ -189 +189 @@
-        my $realtime_changes_file = getVar(name      => 'realtime_changes_file',
-                                           namespace => 'HoneyClient::Agent::Integrity');
+        unlink($realtime_changes_file);
-        open(REALTIME_CHANGES_FILE, ">", $realtime_changes_file);
-        close(REALTIME_CHANGES_FILE); 
@@ -200 +201 @@
-        my $changes = $som->result();
-
-
-
-
+
+
+
+