use strict; use warnings; use t::std; { my $a = {}; check_test( sub { cmp_deeply($a, isa("HASH")); }, { actual_ok => 1, diag => "", }, "isa eq" ); } { my $b = bless {}, "B"; check_test( sub { cmp_deeply($b, isa("B")); }, { actual_ok => 1, diag => "", }, "isa eq" ); check_test( sub { cmp_deeply($b, isa("A")); }, { actual_ok => 0, diag => < 1, diag => "", }, "isa eq" ); } package A; use Test::Deep; @A::ISA = qw( Test::Deep ); { ::ok(A->isa("Test::Deep"), "U::isa says yes"); ::ok(! A->isa("Test"), "U::isa says yes"); }