Commit | Line | Data |
94fb29f6 |
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 | ); |
c0159b01 |
10 | my $result = $probe->gather; |
11 | ok $result, 'received data'; |
12 | my $data = $result->{resolv_conf}; |
13 | ok $data, 'received resolv.conf data'; |
94fb29f6 |
14 | |
15 | is_deeply $data, |
16 | [[qw( domain foo )], |
17 | [qw( search bar )], |
18 | [qw( nameserver baz )], |
19 | [qw( nameserver qux )]], |
20 | 'parsing worked'; |
21 | |
22 | done_testing; |