test return value of signature_for

tobyink · Oct 19, 2024 · 8c641c2 · 8c641c2
1 parent d8b2ea1
commit 8c641c2
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/t/20-modules/Type-Params/v2-positional.t b/t/20-modules/Type-Params/v2-positional.t
@@ -38,11 +38,13 @@ BEGIN {
 	use Types::Standard -types;
 	use Type::Params -sigs;
 
-	signature_for myfunc => (
+	my $meta = signature_for myfunc => (
 		method => Object | Str,
 		pos    => [ ArrayRef, Int ],
 	);
 
+	sub get_meta { $meta }
+
 	sub myfunc ( $self, $arr, $int ) {
 		return $arr->[$int];
 	}
@@ -61,6 +63,8 @@ BEGIN {
 my $o   = bless {} => 'Local::MyPackage';
 my @arr = ( 'a' .. 'z' );
 
+ok( Local::MyPackage->get_meta->isa('Type::Params::Signature'), 'return value of signature_for' );
+
 is $o->myfunc( \@arr, 2 ),  'c', 'myfunc (happy path)';
 is $o->myfunc2( \@arr, 4 ), 'e', 'myfunc2 (happy path)';