Changeset 1451

Timestamp:

04/03/08 17:08:26 (5 months ago)

Author:

kindlund

Message:

Oops.

Files:

• honeyclient/branches/exp/kindlund-simpler_agent/lib/HoneyClient/Manager/VM/Clone.pm (modified) (1 diff)
• honeyclient/branches/exp/kindlund-simpler_agent/t/honeyclient_manager_vm_clone.t (modified) (2 diffs)

honeyclient/branches/exp/kindlund-simpler_agent/lib/HoneyClient/Manager/VM/Clone.pm

@@ -957 +957 @@
-        # A variable reflected the driver assigned to this cloned VM.
-        driver_name => getVar(name      => "default_driver",
-;
+,
-
-        # A SOAP handle to the VM manager daemon.  (This internal variable

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

@@ -60 +60 @@
-use HoneyClient::Manager::VM;
-
+# Make sure HoneyClient::Manager::Database loads.
+BEGIN { use_ok('HoneyClient::Manager::Database') or diag("Can't load HoneyClient::Manager::Database package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('HoneyClient::Manager::Database');
+use HoneyClient::Manager::Database;
+
-# 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."); }
@@ -108 +113 @@
-can_ok('File::Basename', 'basename');
-use File::Basename qw(dirname basename);
+
+# Make sure Sys::Hostname loads.
+BEGIN { use_ok('Sys::Hostname') or diag("Can't load Sys::Hostname package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('Sys::Hostname');
+use Sys::Hostname;
+
+# Make sure Sys::HostIP loads.
+BEGIN { use_ok('Sys::HostIP') or diag("Can't load Sys::HostIP package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('Sys::HostIP');
+use Sys::HostIP;
+
+# Make sure DateTime::HiRes loads.
+BEGIN { use_ok('DateTime::HiRes') or diag("Can't load Sys::HostIP package.  Check to make sure the package library is correctly listed within the path."); }
+require_ok('DateTime::HiRes');
+use DateTime::HiRes;
-}
-