use strictures 1;
use Test::More;
-use System::Introspector::Host;
+use System::Introspector::Probe::Host;
-my $probe = System::Introspector::Host->new;
+my $probe = System::Introspector::Probe::Host->new;
my $data = $probe->gather;
ok length($data->{hostname}), 'found a hostname';