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_file};
  14 ok $data, 'received hosts data';
  15
  16 is $result->{__error__}, undef, 'no errors';
  17 ok $data->{file_name}, 'received file name';
  18
  19 my $body = $data->{body};
  20 ok $body, 'received a body';
  21 like $body, qr{1.2.3.4\s+foo\s+bar}, 'first host';
  22 like $body, qr{2.3.4.5\s+bar}, 'second host';
  23 like $body, qr{some comment}, 'comment preserved';
  24
  25 done_testing;