xXx

Hexid M1n1 5h3ll MobiLe

proc/7574/task/8331/cwd/usr/share/doc/perl-Test-Simple-0.98/t/subtest/_[ Not.Writable ]

File://proc/7574/task/8331/cwd/usr/share/doc/perl-Test-Simple-0.98/t/subtest/args.t

#!/usr/bin/perl -w

use strict;
use Test::Builder;

my $tb = Test::Builder->new;

$tb->ok( !eval { $tb->subtest() } );
$tb->like( $@, qr/^\Qsubtest()'s second argument must be a code ref/ );

$tb->ok( !eval { $tb->subtest("foo") } );
$tb->like( $@, qr/^\Qsubtest()'s second argument must be a code ref/ );

$tb->done_testing();

Your Access Expired	Date. in : 31-10-2025
Regist : 09-12-2024	Expired : 01-12-2027