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
|
use lib 't', 'lib';
use strict;
use warnings;
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);
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');
|
