[scpubgit/System-Introspector.git] / t / hosts.t

use strictures 1;
use Test::More;
use FindBin;

use System::Introspector::Hosts;

my $probe = System::Introspector::Hosts->new(
    hosts_file => "$FindBin::Bin/data/hosts",
);
my $data  = $probe->gather;

is_deeply $data,
    [['1.2.3.4', qw( foo bar )], ['2.3.4.5', 'bar']],
    'parsing worked';

done_testing;
Commit	Line	Data
6bc93875	1	use strictures 1;
	2	use Test::More;
	3	use FindBin;
	4
	5	use System::Introspector::Hosts;
	6
	7	my $probe = System::Introspector::Hosts->new(
	8	hosts_file => "$FindBin::Bin/data/hosts",
	9	);
	10	my $data = $probe->gather;
	11
	12	is_deeply $data,
	13	[['1.2.3.4', qw( foo bar )], ['2.3.4.5', 'bar']],
	14	'parsing worked';
	15
	16	done_testing;