ACIL FM

Nama	Ukuran	Aksi
lib	-	Open
00-report-prereqs.dd	10.7 MB	View DL Edit
00-report-prereqs.t	5.95 MB	View DL Edit
01-basic.t	2.19 MB	View DL Edit
02-done_testing.t	763 B	View DL Edit
03-subtest.t	727 B	View DL Edit
04-no-tests.t	493 B	View DL Edit
05-no-end-block.t	503 B	View DL Edit
06-skip-all.t	237 B	View DL Edit
07-no_plan.t	792 B	View DL Edit
08-use-if.t	359 B	View DL Edit
09-warnings-contents.t	1.91 MB	View DL Edit
10-no-done_testing.t	481 B	View DL Edit
11-double-use.t	557 B	View DL Edit
12-no-newline.t	747 B	View DL Edit
13-propagate-warnings.t	909 B	View DL Edit
14-propagate-subname.t	934 B	View DL Edit
15-propagate-default.t	644 B	View DL Edit
16-propagate-ignore.t	641 B	View DL Edit
17-propagate-subname-colons.t	366 B	View DL Edit
18-propagate-subname-package.t	443 B	View DL Edit
19-propagate-nonexistent-subname.t	661 B	View DL Edit
20-propagate-stub.t	287 B	View DL Edit
21-fail-on-warning.t	1.2 MB	View DL Edit
22-warnings-bareword.t	638 B	View DL Edit
23-report-warnings.t	1.03 MB	View DL Edit
24-only-report-warnings.t	805 B	View DL Edit
25-allowed_patterns.t	556 B	View DL Edit
zzz-check-breaks.t	1.06 MB	View DL Edit

Edit file: /home/.cpan/build/Test-Warnings-0.033-0/t/09-warnings-contents.t

use strict;
use warnings;

use Test::More 0.88;
use Test::Warnings ':all';

{
    my @lines;
    my @warnings = warnings {
        warn 'testing 1 2 3';   push @lines, __LINE__;
    };

my $file = __FILE__;
    is_deeply(
        \@warnings,
        [
            "testing 1 2 3 at $file line $lines[0].\n",
        ],
        'warnings() successfully captured the warning',
    );

my $warning = warning {
        warn 'testing 1 2 3';   push @lines, __LINE__;
    };
    is(
        $warning,
        "testing 1 2 3 at $file line $lines[1].\n",
        'warning() successfully the warning as a string',
    );
}

{
    my @lines;
    my @warnings = warnings {
        warn 'testing 1 2 3';   push @lines, __LINE__;
        warn 'another warning'; push @lines, __LINE__;
    };

my $file = __FILE__;
    is_deeply(
        \@warnings,
        [
            "testing 1 2 3 at $file line $lines[0].\n",
            "another warning at $file line $lines[1].\n",
        ],
        'warnings() successfully captured all warnings',
    );

my $warning = warning {
        warn 'testing 1 2 3';   push @lines, __LINE__;
        warn 'another warning'; push @lines, __LINE__;
    };
    is_deeply(
        $warning,
        [
            "testing 1 2 3 at $file line $lines[2].\n",
            "another warning at $file line $lines[3].\n",
        ],
        'warning() successfully captured all warnings as a scalar ref',
    );
}

{
    my @warnings = warnings {
        note 'no warning here';
        note 'nor here';
    };

is_deeply(
        \@warnings,
        [ ],
        'warnings() successfully captured all warnings (none!)',
    );

my $warning = warning {
        note 'no warning here';
        note 'nor here';
    };

is_deeply(
        $warning,
        [ ],
        'warning() successfully captured all warnings (none!)',
    );

is(@$warning, 0, 'warning() reports zero warnings caught');
}

done_testing;

Batal