Changeset 130 for honeyclient/branches/rel/0.9/t

Timestamp:

12/20/06 11:09:07 (2 years ago)

Author:

kindlund

Message:

sc: merging branch using tags svn+ssh://kindlund@www.honeyclient.org/home/svn/honeyclient/honeyclient/tags/bug/PRE-42 and svn+ssh://kindlund@www.honeyclient.org/home/svn/honeyclient/honeyclient/tags/bug/POST-42

Files:

• honeyclient/branches/rel/0.9 (modified) (1 prop)
• honeyclient/branches/rel/0.9/t/honeyclient_agent.t (copied) (copied from honeyclient/tags/bug/POST-42/t/honeyclient_agent.t)
• honeyclient/branches/rel/0.9/t/honeyclient_agent_driver.t (modified) (1 diff)
• honeyclient/branches/rel/0.9/t/honeyclient_agent_driver_browser.t (copied) (copied from honeyclient/tags/bug/POST-42/t/honeyclient_agent_driver_browser.t)
• honeyclient/branches/rel/0.9/t/honeyclient_agent_driver_browser_ie.t (copied) (copied from honeyclient/tags/bug/POST-42/t/honeyclient_agent_driver_browser_ie.t)
• honeyclient/branches/rel/0.9/t/honeyclient_agent_integrity.t (modified) (3 diffs)
• honeyclient/branches/rel/0.9/t/honeyclient_agent_integrity_registry.t (copied) (copied from honeyclient/tags/bug/POST-42/t/honeyclient_agent_integrity_registry.t)
• honeyclient/branches/rel/0.9/t/honeyclient_agent_integrity_registry_parser.t (copied) (copied from honeyclient/tags/bug/POST-42/t/honeyclient_agent_integrity_registry_parser.t)
• honeyclient/branches/rel/0.9/t/honeyclient_manager.t (copied) (copied from honeyclient/tags/bug/POST-42/t/honeyclient_manager.t)
• honeyclient/branches/rel/0.9/t/honeyclient_manager_fw.t (copied) (copied from honeyclient/tags/bug/POST-42/t/honeyclient_manager_fw.t)
• honeyclient/branches/rel/0.9/t/honeyclient_manager_vm.t (modified) (2 diffs)
• honeyclient/branches/rel/0.9/t/honeyclient_util_config.t (modified) (3 diffs)
• honeyclient/branches/rel/0.9/t/honeyclient_util_soap.t (modified) (1 diff)
• honeyclient/branches/rel/0.9/t/test_registry (copied) (copied from honeyclient/tags/bug/POST-42/t/test_registry)

honeyclient/branches/rel/0.9/t/honeyclient_agent_driver.t

@@ -11 +11 @@
-# Make sure Log::Log4perl loads
-BEGIN { use_ok('Log::Log4perl', qw(:nowarn))
-n
+
-       
-        # Suppress all logging messages, since we need clean output for unit testing.

honeyclient/branches/rel/0.9/t/honeyclient_agent_integrity.t

@@ -17 +17 @@
-can_ok('HoneyClient::Agent::Integrity', 'initFileSystem');
-can_ok('HoneyClient::Agent::Integrity', 'checkFileSystem');
-
-
-
+
-
-# Make sure HoneyClient::Util::Config loads.
@@ -46 +44 @@
-
-# Make sure Storable loads.
-
+ nfreeze thaw
-require_ok('Storable');
-can_ok('Storable', 'dclone');
-
+
+
+
-
-###Testing Globals###
-# Directory where the known-good test files are stored
-, namespace => "HoneyClient::Agent::Integrity"
+
-
-# List of files and directories to check during filesystem checking
-, namespace => "HoneyClient::Agent::Integrity"
+
-
-# List of files or directories to exclude if found in subdirs during
-# filesystem check.
-, namespace => "HoneyClient::Agent::Integrity"
+
-
-# File where found changes are written to
-, namespace => "HoneyClient::Agent::Integrity"),
+);
-}
-
@@ -160 +160 @@
-
-
-# =begin testing
-{
-#Testing initRegistry()
-my $ob = HoneyClient::Agent::Integrity->new();
-
-system("regedit.exe /s noTEST.reg");
-system("regedit.exe /s /c $test_dir/t1a.reg");
-$ob->initRegistry("HKEY_LOCAL_MACHINE\\HARDWARE\\TEST");
-open (DIFF, "diff $test_dir/t1a.reg clean.reg0 |") or die "Can't check the changes files\n";
-@result = <DIFF>;
-close DIFF;
-#Bad test because it will be empty in the case of an error anyway?
-is(scalar(@result), 0, 'initRegistry: General Test');
-}
-
-
-
-# =begin testing
-{
-my $ob = HoneyClient::Agent::Integrity->new();
-
-reg_test($ob, 1, "checkRegistry: case 1 Multi-line addition changes.");
-reg_test($ob, 2, "checkRegistry: case 2 Single-line addition changes.");
-reg_test($ob, 3, "checkRegistry: case 3 Multi-line deletion changes.");
-reg_test($ob, 4, "checkRegistry: case 4 Single-line deletion changes.");
-reg_test($ob, 5, "checkRegistry: case 5 Simple multi-line to multi-line changes.");
-is(6, 6, "checkRegistry: case 6 - SKIPPING (currently can't recreate conditions for test)");
-#reg_test($ob, 6, "checkRegistry: case 6 Complicated multi-line to multi-line changes.");
-reg_test($ob, 7, "checkRegistry: case 7 Simple multi-line to single-line changes.");
-reg_test($ob, 8, "checkRegistry: case 8 Complicated multi-line to single-line changes.");
-reg_test($ob, 9, "checkRegistry: case 9 Simple single-line to multi-line changes.");
-reg_test($ob, 10, "checkRegistry: case 10 Complicated single-line to multi-line changes.");
-reg_test($ob, 11, "checkRegistry: case 11 Simple single-line to single-line changes.");
-reg_test($ob, 12, "checkRegistry: case12 Complicated single-line to single-line changes.");
-
-sub reg_test{
-my $ob = shift;
-my $num = shift;
-my $string = shift;
-
-    #for safety
-    if(-e "temp_reg_export.reg"){
-        system("mv temp_reg_export.reg temp_reg_export.reg.CBL");
-    }
-    system('regedit.exe /a temp_reg_export.reg "HKEY_LOCAL_MACHINE\HARDWARE\TEST"');
-
-    system("regedit.exe /s noTEST.reg");
-    system("regedit.exe /s /c $test_dir/t" . "$num" . "a.reg");
-    $ob->initRegistry("HKEY_LOCAL_MACHINE\\HARDWARE");
-    system("regedit.exe /s noTEST.reg");
-    system("regedit.exe /s /c $test_dir/t" . "$num" . "b.reg");
-    $ob->checkRegistry("HKEY_LOCAL_MACHINE\\HARDWARE");
-    open (DIFF, "diff $test_dir/t" . "$num" . "changes.txt changes.txt |") or die "Can't check the changes files\n";
-    @result = <DIFF>;
-    close DIFF;
-    #Bad test because it will be empty in the case of an error anyway?
-    is(scalar(@result), 0, "$string");
-
-    #for safety/cleanup
-    if(-e "temp_reg_export.reg"){
-        system("regedit.exe /s noTEST.reg");
-        system("regedit.exe /s /c temp_reg_export.reg");
-        system("rm temp_reg_export.reg");
-        if(-e "temp_reg_export.reg.CBL"){
-            system("mv temp_reg_export.reg.CBL temp_reg_export.reg");
-        }
-    }
-    
-}
-}
-
-
-
-
-1;

honeyclient/branches/rel/0.9/t/honeyclient_manager_vm.t

@@ -14 +14 @@
-# Make sure Log::Log4perl loads
-BEGIN { use_ok('Log::Log4perl', qw(:nowarn))
-n
+
-       
-        # Suppress all logging messages, since we need clean output for unit testing.
@@ -156 +156 @@
-# TODO: Remove this once unit testing should actually be used.
-# Ideally, this should be handled programmatically, based upon user prompt.
-#
+
-
-# Generate a notice, to inform the tester that these tests are not

honeyclient/branches/rel/0.9/t/honeyclient_util_config.t

@@ -11 +11 @@
-# Make sure Log::Log4perl loads
-BEGIN { use_ok('Log::Log4perl', qw(:nowarn))
-n
+
-       
-        # Suppress all logging messages, since we need clean output for unit testing.
@@ -52 +52 @@
-# Make sure XML::Tidy loads
-BEGIN { use_ok('XML::Tidy')
-n
+
-require_ok('XML::Tidy');
-can_ok('XML::Tidy','tidy');
@@ -60 +60 @@
-# Make sure Data::Dumper loads
-BEGIN { use_ok('Data::Dumper')
-n
+
-require_ok('Data::Dumper');
-use Data::Dumper;

honeyclient/branches/rel/0.9/t/honeyclient_util_soap.t

@@ -11 +11 @@
-# Make sure Log::Log4perl loads
-BEGIN { use_ok('Log::Log4perl', qw(:nowarn))
-n
+
-       
-        # Suppress all logging messages, since we need clean output for unit testing.