5 use Test::Exception;

     5 use Test::Exception;

     6 use English qw(-no_match_vars);

     6 use English qw(-no_match_vars);

     7 

     7 

     8 package FOO;

     8 package FOO;

     9 ::require_ok 'blib/nagios/plugins/ius/check_amanda-client';

     9 ::require_ok 'blib/nagios/plugins/ius/check_amanda-client';

    10 

    11 

    11 package main;

    12 package main;

    12 

    13 

    13 subtest 'find_tool' => sub {

    14 subtest 'find_tool' => sub {

    14     is FOO::find_tool('sh'), '/bin/sh' => 'found /bin/sh';

    15     is FOO::find_tool('sh'), '/bin/sh' => 'found /bin/sh';

    53     is_deeply [sort { $a->[0] cmp $b->[0] } FOO::get_devices()],

    54     is_deeply [sort { $a->[0] cmp $b->[0] } FOO::get_devices()],

    54       \@devs => 'got the proper devices';

    55       \@devs => 'got the proper devices';

    55 

    56 

    56 };

    57 };

    57 

    58 

    58 done_testing;

    63 done_testing;