top level resolv_conf/error value

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

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

use System::Introspector::ResolvConf;

my $probe = System::Introspector::ResolvConf->new(
    resolv_conf_file => "$FindBin::Bin/data/resolv.conf",
);
my $result = $probe->gather;
ok $result, 'received data';
my $data = $result->{resolv_conf};
ok $data, 'received resolv.conf data';

is_deeply $data,
    [[qw( domain foo )],
     [qw( search bar )],
     [qw( nameserver baz )],
     [qw( nameserver qux )]],
    'parsing worked';

done_testing;