t/hosts.t

   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;