use strict;
use warnings;
-use Test::More;
+use Test::More tests => 6;
use Test::Fatal 0.003;
-
-if ( !eval { require Test::Deep } )
-{
- plan skip_all => 'Test requires Test::Deep';
- exit;
-}
-else
-{
- plan tests => 6;
-}
+use Test::Requires 'Test::Deep';
{
package Testing::Foo;
use strict;
use warnings;
-use Test::More 0.88;
+
+use Test::More tests => 8;
use Test::Trap;
{
is_deeply \@MyScript::exception, $exp;
}
-done_testing;
-
use strict;
use warnings;
-use Test::More;
+
+use Test::More tests => 12;
use Moose ();
use Moose::Meta::Class;
"Debug was set for argv --debug on $role");
}
-done_testing;
-
use strict;
use warnings;
-use Test::More;
+
+use Test::More tests => 21;
use Moose ();
use Moose::Meta::Class;
}
}
-done_testing;
-
# Summary: If we disable the "auto_help" option in Getopt::Long, then
# getoptions() will not call into pod2usage() (causing program termination)
# when --help is passed (and MooseX::ConfigFromFile is in use).
+
use strict;
use warnings;
-use Test::More;
-
+use Test::More tests => 1;
use Test::Requires {
'MooseX::SimpleConfig' => 0.07, # skip all if not installed
};
END {
ok(!$fail_on_exit, 'getoptions() lives');
- done_testing;
-
# cancel the non-zero exit status from _getopt_full_usage()
exit 0;
}
use strict;
use warnings;
-use Test::More;
+use Test::More tests => 5;
{
package example;
is_deeply($example->results, [qw(1234 5678 9012)], 'result as expected');
}
-done_testing;
-