use strict; use warnings;
use Test::More tests => 6;
-use Test::Exception;
+use Test::Fatal;
{
package MyClass;
{
local @ARGV = @$args;
- throws_ok { MyClass->new_with_options() }
+ like exception { MyClass->new_with_options() },
qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-? --usage --help Prints this usage information.\E$/ms,
'Help request detected; usage information properly printed';
}