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 | ); | |
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; |