--- lib/PXElator/t/log.t 2009/07/30 22:55:08 71 +++ lib/PXElator/t/log.t 2009/07/30 23:57:19 72 @@ -4,9 +4,15 @@ use strict; use autodie; -use Test::More tests => 2; +use Test::More tests => 6; +use Data::Dump qw/dump/; use_ok 'log'; ok( my $dir = $log::dir, 'dir' ); diag $dir; + +ok( log::mac( 'test', 'message ' . $_ ), 'mac' ) foreach ( 1 .. 3 ); + +ok( my @changes = log::mac_changes( 'test' ), 'mac' ); +diag dump( @changes );