The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

ZOFFIX / Test-GetVolatileData-1.0102 / t / 01-getdata.t 

            

              
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

              
#!perl -T
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;
use Test::GetVolatileData;
plan tests => 11;
SKIP: {
    my $test = get_data('http://zoffix.com/CPAN/Test-GetVolatileData.txt')
        or skip 'Failed to fetch volatile data; error is: '
        . ( defined $Test::GetVolatileData::ERROR ? $Test::GetVolatileData::ERROR : '[undefined]'), 1;
    like($test, qr/test\d/, 'get_data() without any extra args');
}
SKIP: {
    my @test = get_data('http://zoffix.com/CPAN/Test-GetVolatileData.txt',
        num => 1,
    ) or skip 'Failed to fetch volatile data; error is: '
        . ( defined $Test::GetVolatileData::ERROR ? $Test::GetVolatileData::ERROR : '[undefined]'),  2;
    is(
        scalar(@test),
        1,
        q{get_data('...', num => 1, returns two data pieces) },
    );
    is(
        scalar(grep /\Atest\d\z/, @test),
        1,
        q{get_data('...', num => 1, returns proper data pieces },
    );
}
SKIP: {
    my @test = get_data('http://zoffix.com/CPAN/Test-GetVolatileData.txt',
        num => 2,
    ) or skip 'Failed to fetch volatile data; error is: '
        . ( defined $Test::GetVolatileData::ERROR ? $Test::GetVolatileData::ERROR : '[undefined]'),  2;
    is(
        scalar(@test),
        2,
        q{get_data('...', num => 2, returns two data pieces) },
    );
    is(
        scalar(grep /\Atest\d\z/, @test),
        2,
        q{get_data('...', num => 2, returns proper data pieces },
    );
}
SKIP: {
    my @test = get_data('http://zoffix.com/CPAN/Test-GetVolatileData.txt',
        num => 2000,
    ) or skip 'Failed to fetch volatile data; error is: '
        . ( defined $Test::GetVolatileData::ERROR ? $Test::GetVolatileData::ERROR : '[undefined]'), 2;
    is(
        scalar(@test),
        5,
        q{get_data('...', num => OVERLY_LARGE, returns all data pieces) },
    );
    is(
        scalar(grep /\Atest\d\z/, @test),
        5,
        q{get_data('...', num => OVERLY_LARGE, returns proper data pieces },
    );
}
my $must_be_undef = get_data('http://zoffix.com/CPAN/FAIL.txt');
is( $must_be_undef, undef, 'Errored out return must be undef');
diag '[Must get this error] Error is '
    . ( defined $Test::GetVolatileData::ERROR
        ? $Test::GetVolatileData::ERROR : '[undefined]'
    );
like( $Test::GetVolatileData::ERROR, qr/Network error/,
    'errored out return must set ::ERROR',
);
my $must_be_undef2 = get_data('http://zoffix.com/CPAN/FAIL.txt', num => 2 );
diag '[Must get this error] Error is '
    . ( defined $Test::GetVolatileData::ERROR
        ? $Test::GetVolatileData::ERROR : '[undefined]'
    );
is( $must_be_undef2, undef, 'Errored out return must be undef');
like( $Test::GetVolatileData::ERROR, qr/Network error/,
    'errored out return must set ::ERROR (when ``num`` is set)',
);