trunk/t/10-vz.t

#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 7;
use blib;

my $debug = shift @ARGV;

BEGIN {
        use_ok('VZ');
}

is_deeply( hostname2ip('localhost'), '127.0.0.1', 'hostname2ip' );

is_deeply( ip2hostname('127.0.0.1'), 'localhost', 'ip2hostname' );

ok(conf_veids(), 'conf_veids');

ok(my $text = vzlist(), 'vzlist');
diag $text if $debug;

ok(my $hash = vzlist( hash => 1 ), 'vzlist( hash => 1 )');
diag dump($hash) if $debug;

isa_ok($hash, 'HASH');

1	dpavlin	42	#!/usr/bin/perl
2			use warnings;
3			use strict;
4
5			use Test::More tests => 7;
6			use blib;
7
8			my $debug = shift @ARGV;
9
10			BEGIN {
11			use_ok('VZ');
12			}
13
14			is_deeply( hostname2ip('localhost'), '127.0.0.1', 'hostname2ip' );
15
16			is_deeply( ip2hostname('127.0.0.1'), 'localhost', 'ip2hostname' );
17
18			ok(conf_veids(), 'conf_veids');
19
20			ok(my $text = vzlist(), 'vzlist');
21			diag $text if $debug;
22
23			ok(my $hash = vzlist( hash => 1 ), 'vzlist( hash => 1 )');
24			diag dump($hash) if $debug;
25
26			isa_ok($hash, 'HASH');
27