changeset 40 | d0410b54a231 |
parent 21 | 2247be0e2a13 |
--- a/t/00-basic.t Tue Jan 28 11:55:03 2014 +0100 +++ b/t/00-basic.t Tue Jan 28 14:03:04 2014 +0100 @@ -7,6 +7,7 @@ package FOO; ::require_ok 'blib/nagios/plugins/ius/check_amanda-client'; +FOO->import; package main; @@ -55,4 +56,8 @@ }; +subtest 'su' => sub { + is_deeply [FOO::su('root')], [0, 0], 'su to root'; +}; + done_testing;