5 use Test::More tests => 5;
6 use File::Path qw(remove_tree);
7 use Data::Dump qw(dump);
13 ok warn('test warn'), 'warn';
15 remove_tree '/tmp/slice' if -e '/tmp/slice';
18 mkdir '/tmp/slice/log';
19 $ENV{SLICE} = '/tmp/slice';
22 ok warn('slice warn'), 'with ENV';
24 ok glob('/tmp/slice/log/*'), 'log created';
26 ok warn('2012/02/12 11:22:13 rsync timestamp'), 'rsync timestamp';