/[pxelator]/lib/PXElator/t/file.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/t/file.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 290 by dpavlin, Wed Aug 26 08:43:40 2009 UTC revision 291 by dpavlin, Wed Aug 26 08:59:50 2009 UTC
# Line 4  use warnings; Line 4  use warnings;
4  use strict;  use strict;
5  use autodie;  use autodie;
6    
7  use Test::More tests => 17;  use Test::More tests => 18;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9    
10  use_ok 'file';  use_ok 'file';
# Line 23  ok( ! file::change( $file, 'test' => 'fo Line 23  ok( ! file::change( $file, 'test' => 'fo
23    
24  ok( file::replace( $file, 'foobar' => 'replaced content' ), 'replace' );  ok( file::replace( $file, 'foobar' => 'replaced content' ), 'replace' );
25    
26  my $file2 = $file . '.2';  my $file2 = $file . '.dir/test';
27    
28  ok( file::copy_once( '/etc/rc.local', $file2 ), 'copy_once' );  ok( file::copy_once( '/etc/rc.local', $file2 ), 'copy_once' );
29  cmp_ok( -s $file2, '==', -s '/etc/rc.local', 'size' );  cmp_ok( -s $file2, '==', -s '/etc/rc.local', 'size' );
# Line 32  ok( my $content = file::read_file($file2 Line 32  ok( my $content = file::read_file($file2
32  like( $content, qr/foobar.*exit/s, 'foobar before exit' );  like( $content, qr/foobar.*exit/s, 'foobar before exit' );
33    
34  ok( unlink($file2), 'unlink' );  ok( unlink($file2), 'unlink' );
35    ok( rmdir("$file.dir"), 'rmdir' );
36  ok( unlink($file), 'unlink' );  ok( unlink($file), 'unlink' );
Legend:
Removed from v.290  
changed lines
  Added in v.291
  ViewVC Help
Powered by ViewVC 1.1.26