w σʔλߏTFU
CBH
TVQFSIBTIPG w ΦϒδΣΫτͷϝιουͷνΣοΫ w ֦ுੑ͕ߴ͍5FTU%FFQ use Test::Deep; cmp_deeply [[1,3,2], {a => 1, b => 2, c => 3}], [set(1,2,3), superhashof({a => 1})]; ॱෆಉ LFZBͷνΣοΫɺ΄͔ແࢹ
package Foo; use strict; use warnings; use t::test; sub foo : Tests { } package Foo; use t::test; use warnings; use strict; my $__ENDRUNAAAAAAAA = 'Hook::AfterRuntime'->new(0); sub foo { &pass(); } package Foo; use attributes ('Foo', sub { package Foo; use warnings; use strict; &pass(); } , 'Tests'); %FQBSTF σετϥΫλ͕ݺΕΔ ϑΝΠϧ ͷऴΘΓ ίʔυΛJNQPSUઌʹ ૠೖ͍ͯ͠Δ
use Test2::V0; my $ref = {a => ['A'], b => 'baz'}; like $ref, hash { field a => array { item 'a' }; field b => match qr/bar/; # ଘࡏ͢Δ͔ field c => E(); end(); };
my $ref = {}; ref_ok($ref, 'HASH', 'ϋογϡϦϑΝϨϯε͔Ͳ͏͔'); isa_ok([], 'ARRAY'); # Failed test 'ARRAY->isa('ARRAY')' # at test.t line 3. # ARRAY is neither a blessed reference or a package name. 5FTU4VJUFͷJTB@PLͷڍಈ5FTU.PSFͱҟͳΔ
use Test::More; sub my_ok { ok($_[0]); } my_ok(0); my_ok(0); not ok 1 # Failed test at test.pl line 4. not ok 2 # Failed test at test.pl line 4. Ͳͷݺͼग़͠ݩͰGBJM͔ͨ͠Θ͔Βͳ͘ͳΔ
not ok 1 # Failed test at t/methods.t line 16. # Compared $data->foo # got : 'BAR' # expect : 'FOO' 5FTU%FFQ 5FTU%FFQ-JLF not ok 1 # Failed test at t/methods.t line 16. # +-------+-----+----+-------+ # | PATH | GOT | OP | CHECK | # +-------+-----+----+-------+ # | foo() | BAR | eq | FOO | # +-------+-----+----+-------+
not ok 1 # Failed test at test.t line 7. # Comparing $data as a Bag # Missing: 1 reference # Extra: 1 reference 5FTU%FFQ 5FTU%FFQ-JLF not ok 1 # Failed test at test.t line 7. # +------+--------------------------+---------+------------------+-----+ # | PATH | GOT | OP | CHECK | LNs | # +------+--------------------------+---------+------------------+-----+ # | [*] | | ISA | Baz | 7 | # | [1] | Bar=HASH(0x7f91c0803268) | !exists | | | # +------+--------------------------+---------+------------------+-----+