1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
use strict; use warnings;
my $t; use lib ($t = -e 't' ? 't' : 'test');
use Test::More tests => 4;
use IO::All;
use IO_All_Test;
my $filename = f $t . '/mydir/file1';
my $file = io($filename);
ok($file->isa('IO::All::File'), 'string passed to io() is returned as a file');
is($file->name, $filename, 'name() is the same as the string');
my $file2 = io($file);
ok($file2->isa('IO::All::File'), 'IO::All::File object passed to io() is returned as a file');
is($file2->name, $filename, 'name() is the same as the original string');
del_output_dir();
|
