18 lines
384 B
Perl
18 lines
384 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use v5.14;
|
||
|
|
use warnings
|
||
|
|
FATAL => qw(all),
|
||
|
|
NONFATAL => qw(deprecated exec internal malloc newline once portable redefine recursion uninitialized);
|
||
|
|
|
||
|
|
use Test::Builder::Tester tests => 1;
|
||
|
|
|
||
|
|
use Test::Expander;
|
||
|
|
|
||
|
|
use constant CLASS => 't::Test::Expander::Boilerplate';
|
||
|
|
|
||
|
|
my $title = "use @{[CLASS]}";
|
||
|
|
test_out("ok 1 - $title;");
|
||
|
|
use_ok(CLASS);
|
||
|
|
test_test($title);
|