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	#!/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