24 lines
403 B
Perl
Executable File
24 lines
403 B
Perl
Executable File
#!/usr/bin/perl -I../lib -I./lib
|
|
#
|
|
# Test we can load the (stub) Xen::Tools package.
|
|
#
|
|
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More skip_all => 'Xen::Tools is not used for now';
|
|
|
|
SKIP: {
|
|
skip "Test only works as root", 1 if $< > 0;
|
|
|
|
eval {
|
|
use Xen::Tools;
|
|
|
|
my $xt = Xen::Tools->new( hostname => 'xen-tools-test' );
|
|
|
|
ok( $xt->isa('Xen::Tools') );
|
|
};
|
|
}
|
|
|
|
done_testing();
|