Commit | Line | Data |
daf48400 |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
4 | use System::Introspector::MountPoints; |
5 | |
6 | my $probe = System::Introspector::MountPoints->new; |
7 | my $data = $probe->gather; |
8 | |
9 | ok $data->{fstab}, 'received fstab data'; |
10 | ok $data->{mtab}, 'received mtab data'; |
11 | |
12 | my @fields = qw( |
13 | device_name |
14 | dump_freq |
15 | fs_type |
16 | mount_point |
17 | options |
18 | pass_num |
19 | ); |
20 | |
21 | my $run_test = sub { |
22 | my $tab = shift; |
23 | return sub { |
24 | for my $field (@fields) { |
25 | ok not(grep { not defined $_->{$field} } @$tab), |
26 | "all have $field"; |
27 | } |
28 | }; |
29 | }; |
30 | |
31 | subtest fstab => $run_test->($data->{fstab}); |
32 | subtest mtab => $run_test->($data->{mtab}); |
33 | |
34 | done_testing; |