Changeset 10753

Timestamp:

02/12/10 14:10:27 (2 years ago)

Author:

Sewi

Message:

Fixed and improved test

File:

• trunk/Padre/t/92-padre-file.t (modified) (2 diffs)

trunk/Padre/t/92-padre-file.t

@@ -17 +17 @@
 print $fh "foo";
 close $fh;
-ok( -s $testfile == 3, 'Local: Check test file size' );
+is( -s $testfile , 3, 'Local: Check test file size' );
 
 $file = Padre::File->new($testfile);
 ok( defined($file), 'Local: Create Padre::File object' );
 
-ok( -s $testfile == 3, 'Local: Check test file size again' );
+is( -s $testfile,3, 'Local: Check test file size again' );
 ok( ref($file) eq 'Padre::File::Local', 'Local: Check module' );
 ok( $file->{protocol} eq 'local', 'Local: Check protocol' );
@@ -34 +34 @@
 # Check the most interesting functions only:
 ok( $file->exists,             'Local: file exists' );
-ok( $file->size == $Stat1[7],  'Local: file size' );
-ok( $file->mtime == $Stat1[9], 'Local: file size' );
-ok( $file->basename eq 'padre-file-test', 'Local: basename' );
+is( $file->size , $Stat1[7],  'Local: file size' );
+is( $file->mtime , $Stat1[9], 'Local: file size' );
+is( $file->basename ,'padre-file-test', 'Local: basename' );
 
 # Allow both results (for windows):
-ok( ( ( $file->dirname eq 't/files' ) or ( $file->dirname eq 't\files' ) ), 'Local: dirname' );
+like(  $file->dirname ,qr/(^|[\/\\])t[\/\\]files/ , 'Local: dirname' );
 
 undef $file;