#!/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();
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| args.t | File | 328 B | 0644 |
|
| basic.t | File | 5.19 KB | 0644 |
|
| die.t | File | 531 B | 0644 |
|
| do.t | File | 274 B | 0644 |
|
| exceptions.t | File | 1.81 KB | 0644 |
|
| for_do_t.test | File | 112 B | 0644 |
|
| fork.t | File | 1.22 KB | 0644 |
|
| implicit_done.t | File | 479 B | 0644 |
|
| line_numbers.t | File | 3.59 KB | 0644 |
|
| plan.t | File | 1.34 KB | 0644 |
|
| predicate.t | File | 4.38 KB | 0644 |
|
| singleton.t | File | 712 B | 0644 |
|
| todo.t | File | 5.27 KB | 0644 |
|
| wstat.t | File | 369 B | 0644 |
|