PXElator/t/log.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

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 );
1	dpavlin	50	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	72	use Test::More tests => 6;
8			use Data::Dump qw/dump/;
9	dpavlin	50
10			use_ok 'log';
11
12			ok( my $dir = $log::dir, 'dir' );
13			diag $dir;
14	dpavlin	72
15			ok( log::mac( 'test', 'message ' . $_ ), 'mac' ) foreach ( 1 .. 3 );
16
17			ok( my @changes = log::mac_changes( 'test' ), 'mac' );
18			diag dump( @changes );