t/00-basic.t
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;