Commit | Line | Data |
29c13fbe |
1 | use strictures 1; |
2 | use Test::More; |
b06b139d |
3 | use FindBin; |
29c13fbe |
4 | |
afd7c030 |
5 | use System::Introspector::Probe::Host; |
29c13fbe |
6 | |
b06b139d |
7 | my $probe = System::Introspector::Probe::Host->new( |
8 | hostname_file => "$FindBin::Bin/data/hostname", |
9 | ); |
10 | my $data = $probe->gather; |
29c13fbe |
11 | |
12 | ok length($data->{hostname}), 'found a hostname'; |
13 | ok defined($data->{uname}{ $_ }), "has uname $_" for qw( |
14 | hardware_platform |
15 | kernel_name |
16 | kernel_release |
17 | kernel_version |
18 | machine |
19 | nodename |
20 | operating_system |
21 | processor |
22 | ); |
23 | |
24 | done_testing; |