diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test/Deep/Isa.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Test/Deep/Isa.pm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test/Deep/Isa.pm b/Master/tlpkg/tlperl/lib/Test/Deep/Isa.pm new file mode 100755 index 00000000000..5face21b51a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Test/Deep/Isa.pm @@ -0,0 +1,33 @@ +use strict; +use warnings; + +package Test::Deep::Isa; + +use Test::Deep::Cmp; + +sub init +{ + my $self = shift; + + my $val = shift; + $self->{val} = $val; +} + +sub descend +{ + my $self = shift; + my $got = shift; + + return UNIVERSAL::isa($got, $self->{val}); +} + +sub diag_message +{ + my $self = shift; + + my $where = shift; + + return "Checking class of $where with isa()"; +} + +1; |