/[pxelator]/lib/PXElator/t/log.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/t/log.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 71 by dpavlin, Thu Jul 30 00:08:38 2009 UTC revision 72 by dpavlin, Thu Jul 30 23:57:19 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5  use autodie;  use autodie;
6    
7  use Test::More tests => 2;  use Test::More tests => 6;
8    use Data::Dump qw/dump/;
9    
10  use_ok 'log';  use_ok 'log';
11    
12  ok( my $dir = $log::dir, 'dir' );  ok( my $dir = $log::dir, 'dir' );
13  diag $dir;  diag $dir;
14    
15    ok( log::mac( 'test', 'message ' . $_ ), 'mac' ) foreach ( 1 .. 3 );
16    
17    ok( my @changes = log::mac_changes( 'test' ), 'mac' );
18    diag dump( @changes );
Legend:
Removed from v.71  
changed lines
  Added in v.72
  ViewVC Help
Powered by ViewVC 1.1.26