Commit | Line | Data |
94fb29f6 |
1 | use strictures 1; |
2 | use Test::More; |
3 | use FindBin; |
4 | |
afd7c030 |
5 | use System::Introspector::Probe::ResolvConf; |
94fb29f6 |
6 | |
afd7c030 |
7 | my $probe = System::Introspector::Probe::ResolvConf->new( |
94fb29f6 |
8 | resolv_conf_file => "$FindBin::Bin/data/resolv.conf", |
9 | ); |
c0159b01 |
10 | my $result = $probe->gather; |
11 | ok $result, 'received data'; |
13642dda |
12 | my $data = $result->{resolv_conf_file}; |
c0159b01 |
13 | ok $data, 'received resolv.conf data'; |
94fb29f6 |
14 | |
13642dda |
15 | is $data->{__error__}, undef, 'no errors'; |
16 | ok $data->{file_name}, 'received file name'; |
17 | ok $data->{body}, 'received file body'; |
18 | |
19 | like $data->{body}, qr{domain\s+foo}, 'domain specification'; |
20 | like $data->{body}, qr{search\s+bar}, 'search specification'; |
21 | like $data->{body}, qr{nameserver\s+baz}, 'first nameserver specification'; |
22 | like $data->{body}, qr{nameserver\s+qux}, 'second nameserver specification'; |
94fb29f6 |
23 | |
24 | done_testing; |