4 use Test::Fatal 'exception';
7 use Web::Simple 'RunTest';
11 has test => is => ro => default => sub { 2 };
12 sub to_psgi_app { "to_psgi_app" }
17 use Web::Simple 'DieTest';
21 has die => is => ro => required => 1;
25 sub { RunTest->run_if_script }
28 "to_psgi_app is called when run_if_script is called inside a function"
32 ( RunTest->run_if_script )[0]->test, #
34 "calling run_if_script on a class name instantiates it and runs it"
37 my $rt = RunTest->new( test => 3 );
40 [ $rt->run_if_script ], #
42 "calling run_if_script on an object runs it directly"
46 ( RunTest->run_if_script( test => 4 ) )[0]->test, #
48 "passing arguments to run_if_script has them passed on to the new method"
52 exception { DieTest->_build_for_run_if_script }, #
53 qr/^Failed to create new 'DieTest' object during/,
54 "object creation in run_if_script decorates failure with useful information"