diff --git a/t/mojo/signatures.t b/t/mojo/signatures.t index 8d308a10aa..8da3e9c474 100644 --- a/t/mojo/signatures.t +++ b/t/mojo/signatures.t @@ -16,16 +16,19 @@ sub foo ($self, $bar, $baz) { $bar - $baz } package main; -# Basics -my $test = MojoSignatureBaseTest->new; -is($test->foo(23, 24), 47, 'right result'); - -# Random order flags -my $test2 = MojoSignatureBaseTest2->new; -is($test2->foo(26, 24), 2, 'right result'); - -# Bad flag -eval "package MojoSignaturesTest3; use Mojo::Base -unsupported"; -like $@, qr/Unsupported flag: -unsupported/, 'right error'; +subtest 'Basics' => sub { + my $test = MojoSignatureBaseTest->new; + is($test->foo(23, 24), 47, 'right result'); +}; + +subtest 'Random order flags' => sub { + my $test2 = MojoSignatureBaseTest2->new; + is($test2->foo(26, 24), 2, 'right result'); +}; + +subtest 'Bad flag' => sub { + eval "package MojoSignaturesTest3; use Mojo::Base -unsupported"; + like $@, qr/Unsupported flag: -unsupported/, 'right error'; +}; done_testing();