PXElator/t/file.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 18;
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, 'foobar' => 'replaced content' ), 'replace' );

my $file2 = $file . '.dir/test';

ok( file::copy_once( '/etc/rc.local', $file2 ), 'copy_once' );
cmp_ok( -s $file2, '==', -s '/etc/rc.local', 'size' );
ok( file::append( $file2, '# foobar' ), 'append to rc.local' );
ok( my $content = file::read_file($file2), 'read' );
like( $content, qr/foobar.*exit/s, 'foobar before exit' );

ok( unlink($file2), 'unlink' );
ok( rmdir("$file.dir"), 'rmdir' );
ok( unlink($file), 'unlink' );
1	dpavlin	271	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5			use autodie;
6
7	dpavlin	291	use Test::More tests => 18;
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	290	ok( file::replace( $file, 'foobar' => 'replaced content' ), 'replace' );
25	dpavlin	277
26	dpavlin	291	my $file2 = $file . '.dir/test';
27	dpavlin	290
28			ok( file::copy_once( '/etc/rc.local', $file2 ), 'copy_once' );
29			cmp_ok( -s $file2, '==', -s '/etc/rc.local', 'size' );
30			ok( file::append( $file2, '# foobar' ), 'append to rc.local' );
31			ok( my $content = file::read_file($file2), 'read' );
32			like( $content, qr/foobar.*exit/s, 'foobar before exit' );
33
34			ok( unlink($file2), 'unlink' );
35	dpavlin	291	ok( rmdir("$file.dir"), 'rmdir' );
36	dpavlin	271	ok( unlink($file), 'unlink' );