t/WarnColor.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 5;
   6 use File::Path qw(remove_tree);
   7 use Data::Dump qw(dump);
   8
   9 use lib 'lib';
  10
  11 use_ok 'WarnColor';
  12
  13 ok warn('test warn'), 'warn';
  14
  15 remove_tree '/tmp/slice' if -e '/tmp/slice';
  16
  17 mkdir '/tmp/slice';
  18 mkdir '/tmp/slice/log';
  19 $ENV{SLICE} = '/tmp/slice';
  20 $ENV{NAME}  = 'test';
  21
  22 ok warn('slice warn'), 'with ENV';
  23
  24 ok glob('/tmp/slice/log/*'), 'log created';
  25
  26 ok warn('2012/02/12 11:22:13 rsync timestamp'), 'rsync timestamp';