PXElator/t/file.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 11;
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( file::replace( $file, 'replaced content' ), 'replace' );

ok( unlink($file), 'unlink' );
1	dpavlin	271	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	277	use Test::More tests => 11;
8	dpavlin	271	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	dpavlin	277	ok( file::replace( $file, 'replaced content' ), 'replace' );
25
26	dpavlin	271	ok( unlink($file), 'unlink' );