PXElator/t/file.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 10;
use Data::Dump qw/dump/;

use_ok 'file';

my $file = '/tmp/test';

ok( ! -e $file, "$file doesn't exist" );
ok( file::append( $file, 'test' ), 'append' );
ok( my $size = -s $file, "size" );
ok( ! file::append( $file, 'test' ), 'append again' );
cmp_ok( -s $file, '==', $size, 'size not changed' );

ok( file::change( $file, 'test' => 'foobar' ), 'change' );
cmp_ok( -s $file, '>', $size, 'size bigger' );
ok( ! file::change( $file, 'test' => 'foobar' ), 'change again' );

ok( unlink($file), 'unlink' );
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use Test::More tests => 10;
8	use Data::Dump qw/dump/;
9
10	use_ok 'file';
11
12	my $file = '/tmp/test';
13
14	ok( ! -e $file, "$file doesn't exist" );
15	ok( file::append( $file, 'test' ), 'append' );
16	ok( my $size = -s $file, "size" );
17	ok( ! file::append( $file, 'test' ), 'append again' );
18	cmp_ok( -s $file, '==', $size, 'size not changed' );
19
20	ok( file::change( $file, 'test' => 'foobar' ), 'change' );
21	cmp_ok( -s $file, '>', $size, 'size bigger' );
22	ok( ! file::change( $file, 'test' => 'foobar' ), 'change again' );
23
24	ok( unlink($file), 'unlink' );