more command error handling fixes

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

diff --git a/t/resolvconf.t b/t/resolvconf.t
index 4d927f0..9d2d773 100644 (file)
--- a/t/resolvconf.t
+++ b/t/resolvconf.t
@@ -2,21 +2,23 @@ use strictures 1;
 use Test::More;
 use FindBin;
 
-use System::Introspector::ResolvConf;
+use System::Introspector::Probe::ResolvConf;
 
-my $probe = System::Introspector::ResolvConf->new(
+my $probe = System::Introspector::Probe::ResolvConf->new(
     resolv_conf_file => "$FindBin::Bin/data/resolv.conf",
 );
 my $result = $probe->gather;
 ok $result, 'received data';
-my $data = $result->{resolv_conf};
+my $data = $result->{resolv_conf_file};
 ok $data, 'received resolv.conf data';
 
-is_deeply $data,
-    [[qw( domain foo )],
-     [qw( search bar )],
-     [qw( nameserver baz )],
-     [qw( nameserver qux )]],
-    'parsing worked';
+is $data->{__error__}, undef, 'no errors';
+ok $data->{file_name}, 'received file name';
+ok $data->{body}, 'received file body';
+
+like $data->{body}, qr{domain\s+foo}, 'domain specification';
+like $data->{body}, qr{search\s+bar}, 'search specification';
+like $data->{body}, qr{nameserver\s+baz}, 'first nameserver specification';
+like $data->{body}, qr{nameserver\s+qux}, 'second nameserver specification';
 
 done_testing;