Changeset 9218 for trunk/Padre

Timestamp:

11/14/09 13:27:23 (2 years ago)

Author:

Sewi

Message:

Some test script cleanup

File:

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

trunk/Padre/t/94-padre-file-remote.t

@@ -3 +3 @@
 use strict;
 use warnings;
-use Test::More;# tests => 47;
+use Test::More;
 
 use Padre::File;
@@ -54 +54 @@
 $file = Padre::File->new('ftp://ftp.cpan.org/pub/CPAN/README');
 ok( defined($file), 'FTP: Create Padre::File object' );
-ok( ref($file) eq 'Padre::File::FTP', 'HTTP: Check module' );
+ok( ref($file) eq 'Padre::File::FTP', 'FTP: Check module' );
 ok( $file->{protocol} eq 'ftp', 'FTP: Check protocol' );
 ok( $file->size > 0,            'FTP: file size' );