use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 2;
use Data::Dump qw(dump);
use lib 'lib';
-use_ok 'APKPM::Davolink';
+use_ok 'H1::Davolink';
-ok my $o = APKPM::Davolink->new, 'new';
-
-ok my $r = $o->info( 'job', [ '10.16.9.2', 'nobody', 'adsl' ] ), 'info';
+ok my $r = H1::Davolink->info( $ARGV[0] || '10.16.9.2' ), 'info';
diag dump($r);