honeyclient_manager_vm.t

Revision 131, 47.7 kB (checked in by kindlund, 2 years ago)
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

Line
1	#!/usr/bin/perl -w
2
3	use strict;
4	use Test::More 'no_plan';
5	$\| = 1;
6
7
8
9	# =begin testing
10	{
11	# Generate a notice, to clarify our assumptions.
12	diag("Note: These unit tests expect the VMware Server / GSX daemon to be operational on this system beforehand.");
13
14	# Make sure Log::Log4perl loads
15	BEGIN { use_ok('Log::Log4perl', qw(:nowarn))
16	or diag("Can't load Log::Log4perl package. Check to make sure the package library is correctly listed within the path.");
17
18	# Suppress all logging messages, since we need clean output for unit testing.
19	Log::Log4perl->init({
20	"log4perl.rootLogger" => "DEBUG, Buffer",
21	"log4perl.appender.Buffer" => "Log::Log4perl::Appender::TestBuffer",
22	"log4perl.appender.Buffer.min_level" => "fatal",
23	"log4perl.appender.Buffer.layout" => "Log::Log4perl::Layout::PatternLayout",
24	"log4perl.appender.Buffer.layout.ConversionPattern" => "%d{yyyy-MM-dd HH:mm:ss} %5p [%M] (%F:%L) - %m%n",
25	});
26	}
27	require_ok('Log::Log4perl');
28	use Log::Log4perl qw(:easy);
29
30	# Make sure HoneyClient::Util::Config loads.
31	BEGIN { use_ok('HoneyClient::Util::Config', qw(getVar))
32	or diag("Can't load HoneyClient::Util::Config package. Check to make sure the package library is correctly listed within the path.");
33
34	# Suppress all logging messages, since we need clean output for unit testing.
35	Log::Log4perl->init({
36	"log4perl.rootLogger" => "DEBUG, Buffer",
37	"log4perl.appender.Buffer" => "Log::Log4perl::Appender::TestBuffer",
38	"log4perl.appender.Buffer.min_level" => "fatal",
39	"log4perl.appender.Buffer.layout" => "Log::Log4perl::Layout::PatternLayout",
40	"log4perl.appender.Buffer.layout.ConversionPattern" => "%d{yyyy-MM-dd HH:mm:ss} %5p [%M] (%F:%L) - %m%n",
41	});
42	}
43	require_ok('HoneyClient::Util::Config');
44	can_ok('HoneyClient::Util::Config', 'getVar');
45	use HoneyClient::Util::Config qw(getVar);
46
47	# Suppress all logging messages, since we need clean output for unit testing.
48	Log::Log4perl->init({
49	"log4perl.rootLogger" => "DEBUG, Buffer",
50	"log4perl.appender.Buffer" => "Log::Log4perl::Appender::TestBuffer",
51	"log4perl.appender.Buffer.min_level" => "fatal",
52	"log4perl.appender.Buffer.layout" => "Log::Log4perl::Layout::PatternLayout",
53	"log4perl.appender.Buffer.layout.ConversionPattern" => "%d{yyyy-MM-dd HH:mm:ss} %5p [%M] (%F:%L) - %m%n",
54	});
55
56	# Make sure the module loads properly, with the exportable
57	# functions shared.
58	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."); }
59	require_ok('HoneyClient::Manager::VM');
60	can_ok('HoneyClient::Manager::VM', 'init');
61	can_ok('HoneyClient::Manager::VM', 'destroy');
62	use HoneyClient::Manager::VM;
63
64	# Make sure HoneyClient::Util::SOAP loads.
65	BEGIN { use_ok('HoneyClient::Util::SOAP', qw(getServerHandle getClientHandle)) or diag("Can't load HoneyClient::Util::SOAP package. Check to make sure the package library is correctly listed within the path."); }
66	require_ok('HoneyClient::Util::SOAP');
67	can_ok('HoneyClient::Util::SOAP', 'getServerHandle');
68	can_ok('HoneyClient::Util::SOAP', 'getClientHandle');
69	use HoneyClient::Util::SOAP qw(getServerHandle getClientHandle);
70
71	# Make sure File::Basename loads.
72	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."); }
73	require_ok('File::Basename');
74	can_ok('File::Basename', 'dirname');
75	can_ok('File::Basename', 'basename');
76	use File::Basename qw(dirname basename);
77
78	# Make sure File::Copy::Recursive loads.
79	BEGIN { use_ok('File::Copy::Recursive', qw(dircopy pathrmdir)) or diag("Can't load File::Copy::Recursive package. Check to make sure the package library is correctly listed within the path."); }
80	require_ok('File::Copy::Recursive');
81	can_ok('File::Copy::Recursive', 'dircopy');
82	can_ok('File::Copy::Recursive', 'pathrmdir');
83	use File::Copy::Recursive qw(dircopy pathrmdir);
84
85	# Make sure Data::Dumper loads.
86	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."); }
87	require_ok('Data::Dumper');
88	use Data::Dumper;
89
90	# Make sure File::stat loads.
91	BEGIN { use_ok('File::stat') or diag("Can't load File::stat package. Check to make sure the package library is correctly listed within the path."); }
92	require_ok('File::stat');
93	use File::stat;
94
95	# Make sure Digest::MD5 loads.
96	BEGIN { use_ok('Digest::MD5', qw(md5_hex)) or diag("Can't load Digest::MD5 package. Check to make sure the package library is correctly listed within the path."); }
97	require_ok('Digest::MD5');
98	can_ok('Digest::MD5', 'md5_hex');
99	use Digest::MD5 qw(md5_hex);
100
101	# Make sure DateTime::HiRes loads.
102	BEGIN { use_ok('DateTime::HiRes') or diag("Can't load DateTime::HiRes package. Check to make sure the package library is correctly listed within the path."); }
103	require_ok('DateTime::HiRes');
104	use DateTime::HiRes;
105
106	# Make sure Fcntl loads.
107	BEGIN { use_ok('Fcntl', qw(O_RDONLY)) or diag("Can't load Fcntl package. Check to make sure the package library is correctly listed within the path."); }
108	require_ok('Fcntl');
109	use Fcntl qw(O_RDONLY);
110
111	# Make sure VMware::VmPerl loads.
112	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."); }
113	require_ok('VMware::VmPerl');
114	use VMware::VmPerl qw(VM_EXECUTION_STATE_ON VM_EXECUTION_STATE_OFF VM_EXECUTION_STATE_STUCK VM_EXECUTION_STATE_SUSPENDED);
115
116	# Make sure VMware::VmPerl::Server loads.
117	BEGIN { use_ok('VMware::VmPerl::Server') or diag("Can't load VMware::VmPerl::Server package. Check to make sure the package library is correctly listed within the path."); }
118	require_ok('VMware::VmPerl::Server');
119	use VMware::VmPerl::Server;
120
121	# Make sure VMware::VmPerl::ConnectParams loads.
122	BEGIN { use_ok('VMware::VmPerl::ConnectParams') or diag("Can't load VMware::VmPerl::ConnectParams package. Check to make sure the package library is correctly listed within the path."); }
123	require_ok('VMware::VmPerl::ConnectParams');
124	use VMware::VmPerl::ConnectParams;
125
126	# Make sure VMware::VmPerl::VM loads.
127	BEGIN { use_ok('VMware::VmPerl::VM') or diag("Can't load VMware::VmPerl::VM package. Check to make sure the package library is correctly listed within the path."); }
128	require_ok('VMware::VmPerl::VM');
129	use VMware::VmPerl::VM;
130
131	# Make sure VMware::VmPerl::VM loads.
132	BEGIN { use_ok('VMware::VmPerl::Question') or diag("Can't load VMware::VmPerl::Question package. Check to make sure the package library is correctly listed within the path."); }
133	require_ok('VMware::VmPerl::Question');
134	use VMware::VmPerl::Question;
135
136	# Make sure threads loads.
137	BEGIN { use_ok('threads') or diag("Can't load threads package. Check to make sure the package library is correctly listed within the path."); }
138	require_ok('threads');
139	use threads;
140
141	# Make sure threads::shared loads.
142	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."); }
143	require_ok('threads::shared');
144	use threads::shared;
145
146	# Make sure Thread::Queue loads.
147	BEGIN { use_ok('Thread::Queue') or diag("Can't load Thread::Queue package. Check to make sure the package library is correctly listed within the path."); }
148	require_ok('Thread::Queue');
149	use Thread::Queue;
150
151	# Make sure Thread::Semaphore loads.
152	BEGIN { use_ok('Thread::Semaphore') or diag("Can't load Thread::Semaphore package. Check to make sure the package library is correctly listed within the path."); }
153	require_ok('Thread::Semaphore');
154	use Thread::Semaphore;
155
156	# TODO: Remove this once unit testing should actually be used.
157	# Ideally, this should be handled programmatically, based upon user prompt.
158	exit;
159
160	# Generate a notice, to inform the tester that these tests are not
161	# exactly quick.
162	diag("Note: These unit tests will take significant time to complete (10-30 minutes).");
163	}
164
165
166
167	# =begin testing
168	{
169	# Shared test variables.
170	my $PORT = getVar(name => "port",
171	namespace => "HoneyClient::Manager::VM");
172	my ($stub, $som, $URL);
173	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
174	namespace => "HoneyClient::Manager::VM::Test");
175
176	# Test init() method.
177	$URL = HoneyClient::Manager::VM->init();
178	is($URL, "http://localhost:$PORT/HoneyClient/Manager/VM", "init()") or diag("Failed to start up the VM SOAP server. Check to see if any other daemon is listening on TCP port $PORT.");
179	}
180
181
182
183	# =begin testing
184	{
185	# Shared test variables.
186	my $PORT = getVar(name => "port",
187	namespace => "HoneyClient::Manager::VM");
188	my ($stub, $som, $URL);
189	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
190	namespace => "HoneyClient::Manager::VM::Test");
191
192	# Test destroy() method.
193	is(HoneyClient::Manager::VM->destroy(), 1, "destroy()") or diag("Unable to terminate VM SOAP server. Be sure to check for any stale or lingering processes.");
194	}
195
196
197
198	# =begin testing
199	{
200	# Shared test variables.
201	my $PORT = getVar(name => "port",
202	namespace => "HoneyClient::Manager::VM");
203	my ($stub, $som, $URL);
204	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
205	namespace => "HoneyClient::Manager::VM::Test");
206
207	# Catch all errors, in order to make sure child processes are
208	# properly killed.
209	eval {
210
211	$URL = HoneyClient::Manager::VM->init();
212
213	# Connect to daemon as a client.
214	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
215
216	# Make sure the test VM is stopped.
217	$som = $stub->stopVM(config => $testVM);
218
219	# Test isRegisteredVM() method.
220	$som = $stub->isRegisteredVM(config => $testVM);
221
222	# The test VM should be registered.
223	ok($som->result, "isRegisteredVM(config => '$testVM')") or diag("The isRegisteredVM() call failed. If ($testVM) is still registered, be sure to unregister it manually.");
224
225	# Make sure the test VM is unregistered.
226	$som = $stub->unregisterVM(config => $testVM);
227
228	# Test isRegisteredVM() method.
229	$som = $stub->isRegisteredVM(config => $testVM);
230
231	# The test VM should not be registered.
232	ok(!$som->result, "isRegisteredVM(config => '$testVM')") or diag("The isRegisteredVM() call failed. If ($testVM) is still registered, be sure to unregister it manually.");
233	};
234
235	# Kill the child daemon, if it still exists.
236	HoneyClient::Manager::VM->destroy();
237	sleep (1);
238
239	# Report any failure found.
240	if ($@) {
241	fail($@);
242	}
243	}
244
245
246
247	# =begin testing
248	{
249	# Shared test variables.
250	my $PORT = getVar(name => "port",
251	namespace => "HoneyClient::Manager::VM");
252	my ($stub, $som, $URL);
253	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
254	namespace => "HoneyClient::Manager::VM::Test");
255
256	# Catch all errors, in order to make sure child processes are
257	# properly killed.
258	eval {
259
260	$URL = HoneyClient::Manager::VM->init();
261
262	# Connect to daemon as a client.
263	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
264
265	# Register the test VM.
266	$som = $stub->registerVM(config => $testVM);
267
268	# Test enumerate() method.
269	$som = $stub->enumerate();
270
271	# The test VM should be listed in the output.
272	my @list = $som->paramsall;
273	like(join(' ', @list), "/$testVM/", "enumerate()") or diag("The enumerate() call failed. Attempted to register VM ($testVM), but the VM was not listed in the output of enumerate().");
274
275	# Unregister the test VM.
276	$som = $stub->unregisterVM(config => $testVM);
277	};
278
279	# Kill the child daemon, if it still exists.
280	HoneyClient::Manager::VM->destroy();
281	sleep (1);
282
283	# Report any failure found.
284	if ($@) {
285	fail($@);
286	}
287	}
288
289
290
291	# =begin testing
292	{
293	# Shared test variables.
294	my $PORT = getVar(name => "port",
295	namespace => "HoneyClient::Manager::VM");
296	my ($stub, $som, $URL);
297	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
298	namespace => "HoneyClient::Manager::VM::Test");
299
300	# Catch all errors, in order to make sure child processes are
301	# properly killed.
302	eval {
303
304	$URL = HoneyClient::Manager::VM->init();
305
306	# Connect to daemon as a client.
307	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
308
309	# Register the test VM.
310	$som = $stub->registerVM(config => $testVM);
311
312	# Test getStateVM() method.
313	$som = $stub->getStateVM(config => $testVM);
314
315	# The test VM should be off.
316	is($som->result, VM_EXECUTION_STATE_OFF, "getStateVM(config => '$testVM')") or diag("The getStateVM() call failed. Attempted to register VM ($testVM), but the VM state was not reported as OFF.");
317
318	# Unregister the test VM.
319	$som = $stub->unregisterVM(config => $testVM);
320	};
321
322	# Kill the child daemon, if it still exists.
323	HoneyClient::Manager::VM->destroy();
324	sleep (1);
325
326	# Report any failure found.
327	if ($@) {
328	fail($@);
329	}
330	}
331
332
333
334	# =begin testing
335	{
336	# Shared test variables.
337	my $PORT = getVar(name => "port",
338	namespace => "HoneyClient::Manager::VM");
339	my ($stub, $som, $URL);
340	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
341	namespace => "HoneyClient::Manager::VM::Test");
342
343	# Catch all errors, in order to make sure child processes are
344	# properly killed.
345	eval {
346
347	$URL = HoneyClient::Manager::VM->init();
348
349	# Connect to daemon as a client.
350	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
351
352	# Register the test VM.
353	$som = $stub->registerVM(config => $testVM);
354
355	# Test startVM() method.
356	$som = $stub->startVM(config => $testVM);
357	ok($som->result, "startVM(config => '$testVM')");
358
359	# The test VM should be on.
360	$som = $stub->getStateVM(config => $testVM);
361
362	# Since the test VM doesn't have an OS installed on it,
363	# the VM may be considered stuck. Go ahead and answer
364	# this question, if need be.
365	if ($som->result == VM_EXECUTION_STATE_STUCK) {
366	$som = $stub->answerVM(config => $testVM);
367	# Fetch the state again, to see if it's now ON.
368	$som = $stub->getStateVM(config => $testVM);
369	}
370	is($som->result, VM_EXECUTION_STATE_ON, "startVM(config => '$testVM')") or diag("The startVM() call failed. Attempted to start VM ($testVM), but the VM state was not reported as ON.");
371
372	# Stop and unregister the test VM.
373	$som = $stub->stopVM(config => $testVM);
374	$som = $stub->unregisterVM(config => $testVM);
375	};
376
377	# Kill the child daemon, if it still exists.
378	HoneyClient::Manager::VM->destroy();
379	sleep (1);
380
381	# Report any failure found.
382	if ($@) {
383	fail($@);
384	}
385	}
386
387
388
389	# =begin testing
390	{
391	# Shared test variables.
392	my $PORT = getVar(name => "port",
393	namespace => "HoneyClient::Manager::VM");
394	my ($stub, $som, $URL);
395	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
396	namespace => "HoneyClient::Manager::VM::Test");
397
398	# Catch all errors, in order to make sure child processes are
399	# properly killed.
400	eval {
401
402	$URL = HoneyClient::Manager::VM->init();
403
404	# Connect to daemon as a client.
405	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
406
407	# Register and start the test VM.
408	$som = $stub->registerVM(config => $testVM);
409	$som = $stub->startVM(config => $testVM);
410
411	# Test stopVM() method.
412	$som = $stub->stopVM(config => $testVM);
413	ok($som->result, "stopVM(config => '$testVM')");
414
415	# The test VM should be on.
416	$som = $stub->getStateVM(config => $testVM);
417	is($som->result, VM_EXECUTION_STATE_OFF, "stopVM(config => '$testVM')") or diag("The stopVM() call failed. Attempted to stop VM ($testVM), but the VM state was not reported as OFF.");
418
419	# Unregister the test VM.
420	$som = $stub->unregisterVM(config => $testVM);
421	};
422
423	# Kill the child daemon, if it still exists.
424	HoneyClient::Manager::VM->destroy();
425	sleep (1);
426
427	# Report any failure found.
428	if ($@) {
429	fail($@);
430	}
431	}
432
433
434
435	# =begin testing
436	{
437	# Shared test variables.
438	my $PORT = getVar(name => "port",
439	namespace => "HoneyClient::Manager::VM");
440	my ($stub, $som, $URL);
441	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
442	namespace => "HoneyClient::Manager::VM::Test");
443
444	# Catch all errors, in order to make sure child processes are
445	# properly killed.
446	eval {
447
448	$URL = HoneyClient::Manager::VM->init();
449
450	# Connect to daemon as a client.
451	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
452
453	# Register and start the test VM.
454	$som = $stub->registerVM(config => $testVM);
455	$som = $stub->startVM(config => $testVM);
456
457	# Test rebootVM() method.
458	$som = $stub->rebootVM(config => $testVM);
459	ok($som->result, "rebootVM(config => '$testVM')");
460
461	# The test VM should be on.
462	$som = $stub->getStateVM(config => $testVM);
463
464	# Since the test VM doesn't have an OS installed on it,
465	# the VM may be considered stuck. Go ahead and answer
466	# this question, if need be.
467	if ($som->result == VM_EXECUTION_STATE_STUCK) {
468	$som = $stub->answerVM(config => $testVM);
469	# Fetch the state again, to see if it's now ON.
470	$som = $stub->getStateVM(config => $testVM);
471	}
472	is($som->result, VM_EXECUTION_STATE_ON, "rebootVM(config => '$testVM')") or diag("The rebootVM() call failed. Attempted to reboot VM ($testVM), but the VM state was not reported as ON.");
473
474	# Stop and unregister the test VM.
475	$som = $stub->stopVM(config => $testVM);
476	$som = $stub->unregisterVM(config => $testVM);
477	};
478
479	# Kill the child daemon, if it still exists.
480	HoneyClient::Manager::VM->destroy();
481	sleep (1);
482
483	# Report any failure found.
484	if ($@) {
485	fail($@);
486	}
487	}
488
489
490
491	# =begin testing
492	{
493	# Shared test variables.
494	my $PORT = getVar(name => "port",
495	namespace => "HoneyClient::Manager::VM");
496	my ($stub, $som, $URL);
497	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
498	namespace => "HoneyClient::Manager::VM::Test");
499
500	# Catch all errors, in order to make sure child processes are
501	# properly killed.
502	eval {
503
504	$URL = HoneyClient::Manager::VM->init();
505
506	# Connect to daemon as a client.
507	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
508
509	# Register and start the test VM.
510	$som = $stub->registerVM(config => $testVM);
511	$som = $stub->startVM(config => $testVM);
512
513	# Test suspendVM() method.
514	$som = $stub->suspendVM(config => $testVM);
515	ok($som->result, "suspendVM(config => '$testVM')");
516
517	# The test VM should be suspended.
518	$som = $stub->getStateVM(config => $testVM);
519	is($som->result, VM_EXECUTION_STATE_SUSPENDED, "suspendVM(config => '$testVM')") or diag("The suspendVM() call failed. Attempted to suspend VM ($testVM), but the VM state was not reported as SUSPENDED.");
520
521	# Wake, stop, and unregister the test VM.
522	$som = $stub->startVM(config => $testVM);
523	$som = $stub->stopVM(config => $testVM);
524	$som = $stub->unregisterVM(config => $testVM);
525	};
526
527	# Kill the child daemon, if it still exists.
528	HoneyClient::Manager::VM->destroy();
529	sleep (1);
530
531	# Report any failure found.
532	if ($@) {
533	fail($@);
534	}
535	}
536
537
538
539	# =begin testing
540	{
541	# Shared test variables.
542	my $PORT = getVar(name => "port",
543	namespace => "HoneyClient::Manager::VM");
544	my ($stub, $som, $URL);
545	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
546	namespace => "HoneyClient::Manager::VM::Test");
547
548	# Catch all errors, in order to make sure child processes are
549	# properly killed.
550	eval {
551
552	$URL = HoneyClient::Manager::VM->init();
553
554	# Connect to daemon as a client.
555	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
556
557	# Register the test VM.
558	$som = $stub->registerVM(config => $testVM);
559
560	# Get the test VM's parent directory,
561	# in order to create a temporary clone VM.
562	my $testVMDir = dirname($testVM);
563	my $cloneVMDir = dirname($testVMDir) . "/cloneVM";
564	my $cloneVM = $cloneVMDir . "/" . basename($testVM);
565
566	# Test fullCloneVM() method.
567	$som = $stub->fullCloneVM(src_config => $testVM, dest_dir => $cloneVMDir);
568	# Check to see if the clone's absolute file path is returned.
569	is($som->result, $cloneVM, "fullCloneVM(src_config => '$testVM', dest_dir => '$cloneVMDir')");
570
571	# Wait a small amount of time for the asynchronous clone
572	# to complete.
573	sleep (15);
574
575	# The clone VM should be on.
576	$som = $stub->getStateVM(config => $cloneVM);
577
578	# Since the clone VM doesn't have an OS installed on it,
579	# the VM may be considered stuck. Go ahead and answer
580	# this question, if need be.
581	if ($som->result == VM_EXECUTION_STATE_STUCK) {
582	$som = $stub->answerVM(config => $cloneVM);
583	# Fetch the state again, to see if it's now ON.
584	$som = $stub->getStateVM(config => $cloneVM);
585	}
586	is($som->result, VM_EXECUTION_STATE_ON, "fullCloneVM(src_config => '$testVM', dest_dir => '$cloneVMDir')") or diag("The fullCloneVM() call failed. Attempted to fully clone VM ($testVM) at ($cloneVM), but the cloned VM state was not reported as ON.");
587
588	# Destroy the clone VM.
589	$som = $stub->destroyVM(config => $cloneVM);
590
591	# Stop and unregister the test VM.
592	$som = $stub->stopVM(config => $testVM);
593	$som = $stub->unregisterVM(config => $testVM);
594	};
595
596	# Kill the child daemon, if it still exists.
597	HoneyClient::Manager::VM->destroy();
598	sleep (1);
599
600	# Report any failure found.
601	if ($@) {
602	fail($@);
603	}
604	}
605
606
607
608	# =begin testing
609	{
610	# Shared test variables.
611	my $PORT = getVar(name => "port",
612	namespace => "HoneyClient::Manager::VM");
613	my ($stub, $som, $URL);
614	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
615	namespace => "HoneyClient::Manager::VM::Test");
616
617	# Catch all errors, in order to make sure child processes are
618	# properly killed.
619	eval {
620
621	$URL = HoneyClient::Manager::VM->init();
622
623	# Connect to daemon as a client.
624	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
625
626	# Make sure the test VM is registered.
627	$som = $stub->registerVM(config => $testVM);
628
629	# Test getNameVM() method.
630	$som = $stub->getNameVM(config => $testVM);
631
632	# The test VM should not be registered.
633	is($som->result, "testVM", "getNameVM(config => '$testVM')") or diag("The getNameVM() call failed. Expected VM ($testVM) to have the name \"testVM\".");
634
635	# Unregister the test VM.
636	$som = $stub->unregisterVM(config => $testVM);
637	};
638
639	# Kill the child daemon, if it still exists.
640	HoneyClient::Manager::VM->destroy();
641	sleep (1);
642
643	# Report any failure found.
644	if ($@) {
645	fail($@);
646	}
647	}
648
649
650
651	# =begin testing
652	{
653	# Shared test variables.
654	my $PORT = getVar(name => "port",
655	namespace => "HoneyClient::Manager::VM");
656	my ($stub, $som, $URL);
657	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
658	namespace => "HoneyClient::Manager::VM::Test");
659
660	# Catch all errors, in order to make sure child processes are
661	# properly killed.
662	eval {
663
664	$URL = HoneyClient::Manager::VM->init();
665
666	# Connect to daemon as a client.
667	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
668
669	# Register the test VM.
670	$som = $stub->registerVM(config => $testVM);
671
672	# Get the current name of the test VM.
673	$som = $stub->getNameVM(config => $testVM);
674	my $oldName = $som->result;
675
676	# Set the new name of the test VM.
677	my $newName = "newVM";
678	# Test setNameVM() method.
679	$som = $stub->setNameVM(config => $testVM, name => $newName);
680	is($som->result, $newName, "setNameVM(config => '$testVM', name => '$newName')") or diag("The setNameVM() call failed. Attempted to change the test VM ($testVM) name of \"$oldName\" to \"$newName\".");
681
682	# Check to make sure the new name is set.
683	$som = $stub->getNameVM(config => $testVM);
684	is($som->result, $newName, "setNameVM(config => '$testVM', name => '$newName')") or diag("The setNameVM() call failed. Attempted to change the test VM ($testVM) name of \"$oldName\" to \"$newName\".");
685
686	# Restore the old test VM name and unregister the test VM.
687	$som = $stub->setNameVM(config => $testVM, name => $oldName);
688	$som = $stub->unregisterVM(config => $testVM);
689	};
690
691	# Kill the child daemon, if it still exists.
692	HoneyClient::Manager::VM->destroy();
693	sleep (1);
694
695	# Report any failure found.
696	if ($@) {
697	fail($@);
698	}
699	}
700
701
702
703	# =begin testing
704	{
705	# Shared test variables.
706	my $PORT = getVar(name => "port",
707	namespace => "HoneyClient::Manager::VM");
708	my ($stub, $som, $URL);
709	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
710	namespace => "HoneyClient::Manager::VM::Test");
711
712	# Catch all errors, in order to make sure child processes are
713	# properly killed.
714	eval {
715
716	$URL = HoneyClient::Manager::VM->init();
717
718	# Connect to daemon as a client.
719	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
720
721	# Register the test VM.
722	$som = $stub->registerVM(config => $testVM);
723
724	# Get the MAC address of the test VM.
725	# Test getMACaddrVM() method.
726	$som = $stub->getMACaddrVM(config => $testVM);
727
728	# The exact MAC address of the VM will change from system to system,
729	# so we check to make sure the result looks like a valid MAC address.
730	like($som->result, "/[0-9a-f][0-9a-f]\:[0-9a-f][0-9a-f]\:[0-9a-f][0-9a-f]\:[0-9a-f][0-9a-f]\:[0-9a-f][0-9a-f]\:[0-9a-f][0-9a-f]/", "getMACaddrVM(config => '$testVM')") or diag("The getMACaddrVM() call failed. Attempted to retrieve the MAC address of test VM ($testVM).");
731
732	# Unregister the test VM.
733	$som = $stub->unregisterVM(config => $testVM);
734	};
735
736	# Kill the child daemon, if it still exists.
737	HoneyClient::Manager::VM->destroy();
738	sleep (1);
739
740	# Report any failure found.
741	if ($@) {
742	fail($@);
743	}
744	}
745
746
747
748	# =begin testing
749	{
750	# Shared test variables.
751	my $PORT = getVar(name => "port",
752	namespace => "HoneyClient::Manager::VM");
753	my ($stub, $som, $URL);
754	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
755	namespace => "HoneyClient::Manager::VM::Test");
756
757	# Catch all errors, in order to make sure child processes are
758	# properly killed.
759	eval {
760
761	$URL = HoneyClient::Manager::VM->init();
762
763	# Connect to daemon as a client.
764	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
765
766	# Register and start the test VM.
767	$som = $stub->registerVM(config => $testVM);
768	$som = $stub->startVM(config => $testVM);
769
770	# Wait 10 seconds, for the DHCP server to give the testVM
771	# a DHCP lease.
772	sleep (10);
773
774	# Get the IP address of the test VM.
775	# Test getIPaddrVM() method.
776	$som = $stub->getIPaddrVM(config => $testVM);
777
778	# The exact IP address of the VM will change from system to system,
779	# so we check to make sure the result looks like a valid IP address.
780	like($som->result, "/[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}/", "getIPaddrVM(config => '$testVM')") or diag("The getIPaddrVM() call failed. Attempted to retrieve the IP address of test VM ($testVM).");
781
782	# Stop and unregister the test VM.
783	$som = $stub->stopVM(config => $testVM);
784	$som = $stub->unregisterVM(config => $testVM);
785	};
786
787	# Kill the child daemon, if it still exists.
788	HoneyClient::Manager::VM->destroy();
789	sleep (1);
790
791	# Report any failure found.
792	if ($@) {
793	fail($@);
794	}
795	}
796
797
798
799	# =begin testing
800	{
801	# Shared test variables.
802	my $PORT = getVar(name => "port",
803	namespace => "HoneyClient::Manager::VM");
804	my ($stub, $som, $URL);
805	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
806	namespace => "HoneyClient::Manager::VM::Test");
807
808	# Catch all errors, in order to make sure child processes are
809	# properly killed.
810	eval {
811
812	$URL = HoneyClient::Manager::VM->init();
813
814	# Connect to daemon as a client.
815	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
816
817	# Make sure the test VM is stopped and unregistered.
818	$som = $stub->stopVM(config => $testVM);
819	$som = $stub->unregisterVM(config => $testVM);
820
821	# Test registerVM() method.
822	$som = $stub->registerVM(config => $testVM);
823	ok($som->result, "registerVM(config => '$testVM')") or diag("The registerVM() call failed.");
824
825	# The test VM should be registered.
826	$som = $stub->isRegisteredVM(config => $testVM);
827	ok($som->result, "registerVM(config => '$testVM')") or diag("The registerVM() call failed. If ($testVM) is still registered, be sure to unregister it manually.");
828
829	# Unregister the test VM.
830	$som = $stub->unregisterVM(config => $testVM);
831	};
832
833	# Kill the child daemon, if it still exists.
834	HoneyClient::Manager::VM->destroy();
835	sleep (1);
836
837	# Report any failure found.
838	if ($@) {
839	fail($@);
840	}
841	}
842
843
844
845	# =begin testing
846	{
847	# Shared test variables.
848	my $PORT = getVar(name => "port",
849	namespace => "HoneyClient::Manager::VM");
850	my ($stub, $som, $URL);
851	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
852	namespace => "HoneyClient::Manager::VM::Test");
853
854	# Catch all errors, in order to make sure child processes are
855	# properly killed.
856	eval {
857
858	$URL = HoneyClient::Manager::VM->init();
859
860	# Connect to daemon as a client.
861	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
862
863	# Make sure the test VM is stopped and registered.
864	$som = $stub->stopVM(config => $testVM);
865	$som = $stub->registerVM(config => $testVM);
866
867	# Test unregisterVM() method.
868	$som = $stub->unregisterVM(config => $testVM);
869	ok($som->result, "unregisterVM(config => '$testVM')") or diag("The unregisterVM() call failed.");
870
871	# The test VM should be registered.
872	$som = $stub->isRegisteredVM(config => $testVM);
873	ok(!$som->result, "unregisterVM(config => '$testVM')") or diag("The unregisterVM() call failed. If ($testVM) is still registered, be sure to unregister it manually.");
874	};
875
876	# Kill the child daemon, if it still exists.
877	HoneyClient::Manager::VM->destroy();
878	sleep (1);
879
880	# Report any failure found.
881	if ($@) {
882	fail($@);
883	}
884	}
885
886
887
888	# =begin testing
889	{
890	# Shared test variables.
891	my $PORT = getVar(name => "port",
892	namespace => "HoneyClient::Manager::VM");
893	my ($stub, $som, $URL);
894	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
895	namespace => "HoneyClient::Manager::VM::Test");
896
897	# Catch all errors, in order to make sure child processes are
898	# properly killed.
899	eval {
900
901	$URL = HoneyClient::Manager::VM->init();
902
903	# Connect to daemon as a client.
904	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
905
906	# Make sure the test VM is stopped and unregistered.
907	$som = $stub->stopVM(config => $testVM);
908	$som = $stub->unregisterVM(config => $testVM);
909
910	# The only consistent way to get a VM into a stuck state,
911	# is to manually copy a VM into a new directory, register it,
912	# and then proceed to start it. VMware Server / GSX will immediately
913	# ask if we'd like to create a new identifier before
914	# moving on.
915
916	# Get the test VM's parent directory,
917	# in order to create a temporary clone VM.
918	my $testVMDir = dirname($testVM);
919	my $cloneVMDir = dirname($testVMDir) . "/cloneVM";
920	my $cloneVM = $cloneVMDir . "/" . basename($testVM);
921
922	# Make the destDir.
923	if (!dircopy($testVMDir, $cloneVMDir)) {
924	fail("answerVM()");
925	diag("Could not copy test VM directory ($testVMDir) for testing answerVM() method.");
926	} else {
927	# Update clone VM data permissions...
928	chmod(oct(700), $cloneVM);
929	chmod(oct(700), glob($cloneVMDir . "/*.nvram"));
930	chmod(oct(600), glob($cloneVMDir . "/.vms"));
931	chmod(oct(600), glob($cloneVMDir . "/REDO"));
932	}
933
934	# Register the clone VM.
935	$som = $stub->registerVM(config => $cloneVM);
936
937	# Start the clone VM.
938	# Test answerVM() method.
939	$som = $stub->startVM(config => $cloneVM);
940	ok($som->result, "answerVM(config => '$cloneVM')") or diag("The answerVM() call failed.");
941
942	# Destroy the clone VM.
943	$som = $stub->destroyVM(config => $cloneVM);
944	};
945
946	# Kill the child daemon, if it still exists.
947	HoneyClient::Manager::VM->destroy();
948	sleep (1);
949
950	# Report any failure found.
951	if ($@) {
952	fail($@);
953	}
954	}
955
956
957
958	# =begin testing
959	{
960	# Shared test variables.
961	my $PORT = getVar(name => "port",
962	namespace => "HoneyClient::Manager::VM");
963	my ($stub, $som, $URL);
964	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
965	namespace => "HoneyClient::Manager::VM::Test");
966
967	# Catch all errors, in order to make sure child processes are
968	# properly killed.
969	eval {
970
971	$URL = HoneyClient::Manager::VM->init();
972
973	# Connect to daemon as a client.
974	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
975
976	# Register the test VM.
977	$som = $stub->registerVM(config => $testVM);
978
979	# Get the test VM's parent directory,
980	# in order to create a temporary clone VM.
981	my $testVMDir = dirname($testVM);
982	my $cloneVMDir = dirname($testVMDir) . "/cloneVM";
983	my $cloneVM = $cloneVMDir . "/" . basename($testVM);
984
985	# Clone the test VM.
986	$som = $stub->fullCloneVM(src_config => $testVM, dest_dir => $cloneVMDir);
987
988	# Wait a small amount of time for the asynchronous clone
989	# to complete.
990	sleep (15);
991
992	# The clone VM should be on.
993	$som = $stub->getStateVM(config => $cloneVM);
994
995	# Since the clone VM doesn't have an OS installed on it,
996	# the VM may be considered stuck. Go ahead and answer
997	# this question, if need be.
998	if ($som->result == VM_EXECUTION_STATE_STUCK) {
999	$som = $stub->answerVM(config => $cloneVM);
1000	}
1001
1002	# Destroy the clone VM.
1003	$som = $stub->destroyVM(config => $cloneVM);
1004
1005	# Test destroyVM() method.
1006	ok($som->result, "destroyVM(config => '$cloneVM')") or diag("The destroyVM() call failed.");
1007
1008	# Check to make sure the clone VM is unregistered.
1009	$som = $stub->isRegisteredVM(config => $cloneVM);
1010	ok(!$som->result, "destroyVM(config => '$cloneVM')") or diag("The destroyVM() call failed. If ($cloneVM) is still registered, be sure to unregister it manually.");
1011
1012	# Stop and unregister the test VM.
1013	$som = $stub->stopVM(config => $testVM);
1014	$som = $stub->unregisterVM(config => $testVM);
1015	};
1016
1017	# Kill the child daemon, if it still exists.
1018	HoneyClient::Manager::VM->destroy();
1019	sleep (1);
1020
1021	# Report any failure found.
1022	if ($@) {
1023	fail($@);
1024	}
1025	}
1026
1027
1028
1029	# =begin testing
1030	{
1031	# Shared test variables.
1032	my $PORT = getVar(name => "port",
1033	namespace => "HoneyClient::Manager::VM");
1034	my ($stub, $som, $URL);
1035	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
1036	namespace => "HoneyClient::Manager::VM::Test");
1037
1038	# Catch all errors, in order to make sure child processes are
1039	# properly killed.
1040	eval {
1041
1042	$URL = HoneyClient::Manager::VM->init();
1043
1044	# Connect to daemon as a client.
1045	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
1046
1047	# Register the test VM.
1048	$som = $stub->registerVM(config => $testVM);
1049
1050	# In order to test the setMasterVM() method,
1051	# we're going to clone the test VM, then set the clone
1052	# as a master VM, and finally, check to make sure
1053	# the corresponding permissions were set in the
1054	# clone, as per master VM specification.
1055
1056	# Get the test VM's parent directory,
1057	# in order to create a temporary clone VM.
1058	my $testVMDir = dirname($testVM);
1059	my $cloneVMDir = dirname($testVMDir) . "/cloneVM";
1060	my $cloneVM = $cloneVMDir . "/" . basename($testVM);
1061
1062	# Create the clone VM.
1063	$som = $stub->fullCloneVM(src_config => $testVM, dest_dir => $cloneVMDir);
1064
1065	# Wait a small amount of time for the asynchronous clone
1066	# to complete.
1067	sleep (15);
1068
1069	# The clone VM should be on.
1070	$som = $stub->getStateVM(config => $cloneVM);
1071
1072	# Since the clone VM doesn't have an OS installed on it,
1073	# the VM may be considered stuck. Go ahead and answer
1074	# this question, if need be.
1075	if ($som->result == VM_EXECUTION_STATE_STUCK) {
1076	$som = $stub->answerVM(config => $cloneVM);
1077	}
1078
1079	# Set the clone as a master VM.
1080	$som = $stub->setMasterVM(config => $cloneVM);
1081
1082	# Test setMasterVM() method.
1083	ok($som->result, "setMasterVM(config => '$cloneVM')") or diag("The setMasterVM() call failed.");
1084
1085	my $mode = undef;
1086	foreach (glob($cloneVMDir . "/.vmdk"),
1087	glob($cloneVMDir . "/.vms"),
1088	glob($cloneVMDir . "/.vme")) {
1089	$mode = sprintf("%04o", stat($_)->mode & 07777);
1090	is($mode, "0400", "setMasterVM(config => '$cloneVM')") or diag("The setMasterVM() call failed. Expected file ($_) to be mode 0400, but it was mode $mode instead.");
1091	}
1092
1093	# Destroy the clone VM.
1094	$som = $stub->destroyVM(config => $cloneVM);
1095
1096	# Stop and unregister the test VM.
1097	$som = $stub->stopVM(config => $testVM);
1098	$som = $stub->unregisterVM(config => $testVM);
1099	};
1100
1101	# Kill the child daemon, if it still exists.
1102	HoneyClient::Manager::VM->destroy();
1103	sleep (1);
1104
1105	# Report any failure found.
1106	if ($@) {
1107	fail($@);
1108	}
1109	}
1110
1111
1112
1113	# =begin testing
1114	{
1115	# Shared test variables.
1116	my $PORT = getVar(name => "port",
1117	namespace => "HoneyClient::Manager::VM");
1118	my ($stub, $som, $URL);
1119	my $testVM = $ENV{PWD} . "/" . getVar(name => "test_vm_config",
1120	namespace => "HoneyClient::Manager::VM::Test");
1121
1122	# Catch all errors, in order to make sure child processes are
1123	# properly killed.
1124	eval {
1125
1126	$URL = HoneyClient::Manager::VM->init();
1127
1128	# Connect to daemon as a client.
1129	$stub = getClientHandle(namespace => "HoneyClient::Manager::VM");
1130
1131	# Register the test VM.
1132	$som = $stub->registerVM(config => $testVM);
1133
1134	# In order to test the quickCloneVM() method,
1135	# we're going to fully clone the test VM, then set the
1136	# newly created clone as a master VM, and finally,
1137	# create a secondary quick clone from the master VM.
1138
1139	# Get the test VM's parent directory,
1140	# in order to create a temporary master and clone VM.
1141	my $testVMDir = dirname($testVM);
1142	my $masterVMDir = dirname($testVMDir) . "/masterVM";
1143	my $cloneVMDir = dirname($testVMDir) . "/cloneVM";
1144	my $masterVM = $masterVMDir . "/" . basename($testVM);
1145	my $cloneVM = $cloneVMDir . "/" . basename($testVM);
1146
1147	# Create the master VM.
1148	$som = $stub->fullCloneVM(src_config => $testVM, dest_dir => $masterVMDir);
1149
1150	# Wait a small amount of time for the asynchronous clone
1151	# to complete.
1152	sleep (60);
1153
1154	# The master VM should be on.
1155	$som = $stub->getStateVM(config => $masterVM);
1156
1157	# Since the master VM doesn't have an OS installed on it,
1158	# the VM may be considered stuck. Go ahead and answer
1159	# this question, if need be.
1160	if ($som->result == VM_EXECUTION_STATE_STUCK) {
1161	$som = $stub->answerVM(config => $cloneVM);
1162	}
1163
1164	# Set the master VM as a true master.
1165	$som = $stub->quickCloneVM(src_config => $masterVM, dest_dir => $cloneVMDir);
1166
1167	# Test quickCloneVM() method.
1168	is($som->result, $cloneVM, "quickCloneVM(src_config => '$masterVM', dest_dir => '$cloneVMDir')") or diag("The quickCloneVM() call failed.");
1169
1170	# Wait a small amount of time for the asynchronous