Файловый менеджер - Редактировать - /home/.cpan/build/Test-Deep-1.204-0/t/isa.t
�азад
use strict; use warnings; use lib 't/lib'; use Std; { my $a = {}; check_test( sub { cmp_deeply($a, isa("HASH")); }, { actual_ok => 1, diag => "", }, "isa eq" ); check_test( sub { cmp_deeply($a, obj_isa("HASH")); }, { actual_ok => 0, diag => <<EOM, Checking class of \$data with isa() got : $a expect : blessed into 'HASH' or subclass of 'HASH' EOM }, "obj_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, obj_isa("B")); }, { actual_ok => 1, diag => "", }, "isa eq" ); check_test( sub { cmp_deeply($b, isa("A")); }, { actual_ok => 0, diag => <<EOM, Checking class of \$data with isa() got : $b expect : blessed into or ref of type 'A' EOM }, "isa eq" ); check_test( sub { cmp_deeply($b, obj_isa("A")); }, { actual_ok => 0, diag => <<EOM, Checking class of \$data with isa() got : $b expect : blessed into 'A' or subclass of 'A' EOM }, "isa eq" ); @A::ISA = (); @B::ISA = ("A"); check_test( sub { cmp_deeply($b, isa("A")); }, { actual_ok => 1, diag => "", }, "isa eq" ); check_test( sub { cmp_deeply($b, obj_isa("A")); }, { actual_ok => 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"); } { package C; use base 'A'; } package main; { my $c = bless {}, "C"; check_test( sub { cmp_deeply($c, isa("A")); }, { actual_ok => 1, diag => "", }, "isa eq" ); }
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0 |
proxy
|
phpinfo
|
�а�тройка