t/resolvconf.t

   1 use strictures 1;
   2 use Test::More;
   3 use FindBin;
   4
   5 use System::Introspector::ResolvConf;
   6
   7 my $probe = System::Introspector::ResolvConf->new(
   8     resolv_conf_file => "$FindBin::Bin/data/resolv.conf",
   9 );
  10 my $data = $probe->gather;
  11
  12 is_deeply $data,
  13     [[qw( domain foo )],
  14      [qw( search bar )],
  15      [qw( nameserver baz )],
  16      [qw( nameserver qux )]],
  17     'parsing worked';
  18
  19 done_testing;