gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/behavior/err_var.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use strict;
use warnings;

use Test2::IPC;

use Test2::Tools::Tiny;

{
    local $! = 100;

    is(0 + $!, 100, 'set $!');
    is(0 + $!, 100, 'preserved $!');
}

done_testing;