Файловый менеджер - Редактировать - /home/.cpan/build/Test-Deep-1.204-0/t/leaf-wrapper.t
�азад
use strict; use warnings; use lib 't/lib'; use Std; { check_test( sub { cmp_deeply( Test::Deep::EqOverloaded->new, 5); }, { actual_ok => 0, }, "comparing a plain scalar leaf against obj without eq" ); { local $Test::Deep::LeafWrapper = \&str; check_tests( sub { cmp_deeply( Test::Deep::EqOverloaded->new, 5); cmp_deeply( Test::Deep::EqOverloaded->new, 6); }, [ { actual_ok => 1, }, { actual_ok => 0, }, ], "comparing a plain scalar leaf against obj with eq" ); } { check_tests( sub { my $t1 = 5; my $t2 = any(5); my $t3 = all(5); local $Test::Deep::LeafWrapper = \&str; cmp_deeply(Test::Deep::EqOverloaded->new, $t1); cmp_deeply(Test::Deep::EqOverloaded->new, $t2); cmp_deeply(Test::Deep::EqOverloaded->new, $t3); }, [ { actual_ok => 1, }, { actual_ok => 1, }, { actual_ok => 1, }, ], "comparing a plain scalar leaf against obj with eq via any() and all()" ); } } { package Test::Deep::EqOverloaded; use overload q{""} => sub { "5" }, fallback => 1; sub new { my $self = {}; bless $self; } }
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0.11 |
proxy
|
phpinfo
|
�а�тройка