t/hosts.t

   1 use strictures 1;
   2 use Test::More;
   3 use FindBin;
   4
   5 use System::Introspector::Probe::Hosts;
   6
   7 my $probe = System::Introspector::Probe::Hosts->new(
   8     hosts_file => "$FindBin::Bin/data/hosts",
   9 );
  10
  11 my $result = $probe->gather;
  12 ok $result, 'received data';
  13 my $data = $result->{hosts};
  14 ok $data, 'received hosts data';
  15
  16 is_deeply $data,
  17     [['1.2.3.4', qw( foo bar )], ['2.3.4.5', 'bar']],
  18     'parsing worked';
  19
  20 done_testing;