Changeset 589

Timestamp:

06/20/07 15:50:00 (1 year ago)

Author:

kindlund

Message:

Updated VM unit testing.

Files:

• honeyclient/trunk/lib/HoneyClient/Manager/VM/Clone.pm (modified) (8 diffs)
• honeyclient/trunk/t/honeyclient_manager_vm.t (modified) (1 diff)
• honeyclient/trunk/t/honeyclient_manager_vm_clone.t (modified) (3 diffs)

honeyclient/trunk/lib/HoneyClient/Manager/VM/Clone.pm

@@ -202 +202 @@
-use HoneyClient::Util::Config qw(getVar);
-
+# Make sure HoneyClient::Util::SOAP loads.
+BEGIN { use_ok('HoneyClient::Util::SOAP', qw(getClientHandle)) or diag("Can't load HoneyClient::Util::SOAP package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('HoneyClient::Util::SOAP');
+can_ok('HoneyClient::Util::SOAP', 'getClientHandle');
+use HoneyClient::Util::SOAP qw(getClientHandle);
+
+# Make sure HoneyClient::Manager::VM loads.
+BEGIN { use_ok('HoneyClient::Manager::VM') or diag("Can't load HoneyClient::Manager:VM package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('HoneyClient::Manager::VM');
+use HoneyClient::Manager::VM;
+
+# Make sure VMware::VmPerl loads.
+BEGIN { use_ok('VMware::VmPerl', qw(VM_EXECUTION_STATE_ON VM_EXECUTION_STATE_OFF VM_EXECUTION_STATE_STUCK VM_EXECUTION_STATE_SUSPENDED)) or diag("Can't load VMware::VmPerl package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('VMware::VmPerl');
+use VMware::VmPerl qw(VM_EXECUTION_STATE_ON VM_EXECUTION_STATE_OFF VM_EXECUTION_STATE_STUCK VM_EXECUTION_STATE_SUSPENDED);
+
-# XXX: FIX THIS
-# Make sure the module loads properly, with the exportable
@@ -229 +245 @@
-use Storable qw(dclone);
-
+# Make sure threads loads.
+BEGIN { use_ok('threads') or diag("Can't load threads package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('threads');
+use threads;
+
+# Make sure threads::shared loads.
+BEGIN { use_ok('threads::shared') or diag("Can't load threads::shared package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('threads::shared');
+use threads::shared;
+
+# Make sure File::Basename loads.
+BEGIN { use_ok('File::Basename', qw(dirname basename)) 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', 'dirname');
+can_ok('File::Basename', 'basename');
+use File::Basename qw(dirname basename);
+
-=end testing
-
@@ -236 +269 @@
-
-# Include Threading Library
-# TODO: Include unit tests.
-use threads;
-use threads::shared;
@@ -244 +276 @@
-
-# Include SOAP Library
-# TODO: Include unit tests.
-use HoneyClient::Util::SOAP qw(getClientHandle);
-
-
-
+
+
+
+
+
-use HoneyClient::Manager::VM;
-
@@ -282 +316 @@
-  $object->{key} = $value;    # Sets key's value.
-
-=head2 bypass_clone
-
-=over 4
-
-When set to 1, the object will forgo any type of initial cloning
-operation, upon initialization.  Otherwise, cloning will occur
-as normal, upon initialization.
-
-=back
-
-=head2 master_vm_config
-
@@ -304 +328 @@
-
-my %PARAMS = (
-    # When set to 1, the object will forgo any type of initial cloning
-    # operation, upon initialization.  Otherwise, cloning will occur
-    # as normal, upon initialization.
-    bypass_clone => 0,
-
-    # The full absolute path to the master VM's configuration file, whose
-    # contents will be the basis for each subsequently cloned VM.
@@ -420 +439 @@
-=begin testing
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-=end testing
@@ -475 +548 @@
-    $self->{'_vm_handle'} = getClientHandle(namespace => "HoneyClient::Manager::VM");
-
-
-
-
-
-
-
+
+
+
+
+
-    }
-

honeyclient/trunk/t/honeyclient_manager_vm.t

@@ -1159 +1159 @@
-    # this question, if need be.
-    if ($som->result == VM_EXECUTION_STATE_STUCK) {
-clone
+master
-    }
-

honeyclient/trunk/t/honeyclient_manager_vm_clone.t

@@ -43 +43 @@
-use HoneyClient::Util::Config qw(getVar);
-
+# Make sure HoneyClient::Util::SOAP loads.
+BEGIN { use_ok('HoneyClient::Util::SOAP', qw(getClientHandle)) or diag("Can't load HoneyClient::Util::SOAP package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('HoneyClient::Util::SOAP');
+can_ok('HoneyClient::Util::SOAP', 'getClientHandle');
+use HoneyClient::Util::SOAP qw(getClientHandle);
+
+# Make sure HoneyClient::Manager::VM loads.
+BEGIN { use_ok('HoneyClient::Manager::VM') or diag("Can't load HoneyClient::Manager:VM package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('HoneyClient::Manager::VM');
+use HoneyClient::Manager::VM;
+
+# Make sure VMware::VmPerl loads.
+BEGIN { use_ok('VMware::VmPerl', qw(VM_EXECUTION_STATE_ON VM_EXECUTION_STATE_OFF VM_EXECUTION_STATE_STUCK VM_EXECUTION_STATE_SUSPENDED)) or diag("Can't load VMware::VmPerl package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('VMware::VmPerl');
+use VMware::VmPerl qw(VM_EXECUTION_STATE_ON VM_EXECUTION_STATE_OFF VM_EXECUTION_STATE_STUCK VM_EXECUTION_STATE_SUSPENDED);
+
-# XXX: FIX THIS
-# Make sure the module loads properly, with the exportable
-# functions shared.
-Agent::Driver') or diag("Can't load HoneyClient::Agent::Driver
-Agent::Driver
-Agent::Driver
-Agent::Driver
-Agent::Driver
-Agent::Driver
-Agent::Driver
-Agent::Driver
+Manager::VM::Clone') or diag("Can't load HoneyClient::Manager::VM::Clone
+Manager::VM::Clone
+Manager::VM::Clone
+Manager::VM::Clone
+Manager::VM::Clone
+Manager::VM::Clone
+Manager::VM::Clone
+Manager::VM::Clone
-
-# Suppress all logging messages, since we need clean output for unit testing.
@@ -69 +85 @@
-can_ok('Storable', 'dclone');
-use Storable qw(dclone);
+
+# Make sure threads loads.
+BEGIN { use_ok('threads') or diag("Can't load threads package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('threads');
+use threads;
+
+# Make sure threads::shared loads.
+BEGIN { use_ok('threads::shared') or diag("Can't load threads::shared package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('threads::shared');
+use threads::shared;
+
+# Make sure File::Basename loads.
+BEGIN { use_ok('File::Basename', qw(dirname basename)) 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', 'dirname');
+can_ok('File::Basename', 'basename');
+use File::Basename qw(dirname basename);
-}
-
@@ -75 +108 @@
-# =begin testing
-{
-Create a generic clone, with test state data
-$clone = HoneyClient::Manager::VM::Clone->new(test => 1, bypass_clone => 1
-
-isa_ok($clone, 'HoneyClient::Manager::VM::Clone', "new(test => 1, bypass_clone => 1)") or diag("The new() call failed.
+Shared test variables
+($stub, $som, $URL
+
+                                      namespace => "HoneyClient::Manager::VM::Test
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
-
-
-# =begin testing
-{
-# Create a generic driver, with test state data.
-#my $driver = HoneyClient::Agent::Driver->new(test => 1);
-#dies_ok {$driver->drive()} 'drive()' or diag("The drive() call failed.  Expected drive() to throw an exception.");
-}
-
-
-
-# =begin testing
-{
-# Create a generic driver, with test state data.
-#my $driver = HoneyClient::Agent::Driver->new(test => 1);
-#dies_ok {$driver->isFinished()} 'isFinished()' or diag("The isFinished() call failed.  Expected isFinished() to throw an exception.");
-}
-
-
-
-# =begin testing
-{
-# Create a generic driver, with test state data.
-#my $driver = HoneyClient::Agent::Driver->new(test => 1);
-#dies_ok {$driver->next()} 'next()' or diag("The next() call failed.  Expected next() to throw an exception.");
-}
-
-
-
-# =begin testing
-{
-# Create a generic driver, with test state data.
-#my $driver = HoneyClient::Agent::Driver->new(test => 1);
-#dies_ok {$driver->status()} 'status()' or diag("The status() call failed.  Expected status() to throw an exception.");
-}
-