1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
use strict; use warnings;
my $t; use lib ($t = -e 't' ? 't' : 'test');
use Test::More tests => 18;
use IO::All;
use IO_All_Test;
my $io1 = IO::All->new("$t/mystuff");
is(ref($io1), 'IO::All::File');
test_file_contents($$io1, "$t/mystuff");
my $io2 = io("$t/mystuff");
is(ref($io2), 'IO::All::File');
test_file_contents($$io2, "$t/mystuff");
my $io3 = io->file("$t/mystuff");
is(ref($io3), 'IO::All::File');
test_file_contents($$io3, "$t/mystuff");
my $io4 = $io3->file("$t/construct.t");
is(ref($io4), 'IO::All::File');
test_file_contents($$io4, "$t/construct.t");
my $io5 = io->dir("$t/mydir");
is(ref($io5), 'IO::All::Dir');
is(join('+', map $_->filename, grep {! /CVS|\.svn/} $io5->all), 'dir1+dir2+file1+file2+file3');
my $io6 = io->rdonly->new->file("$t/construct.t");
ok($io6->_rdonly);
SKIP: {
eval {require Tie::File};
skip "requires Tie::File", 1 if $@;
test_file_contents(join('', map {"$_\n"} @$io6), "$t/construct.t");
}
my $io7 = io->socket('foo.com:80')->get_socket_domain_port;
ok($io7->is_socket);
is($io7->domain, 'foo.com');
is($io7->port, '80');
my $io8 = io(':8000')->get_socket_domain_port;
ok($io8->is_socket);
is($io8->domain, 'localhost');
is($io8->port, '8000');
del_output_dir();
|
