Group
Extension

Matches 3

Badger ( A/AB/ABW/Badger-0.16.tar.gz, ABW, 2023; MetaCPAN )
Badger/t/core/timestamp.t ( view source; MetaCPAN )
;
is( $other->compare($copy), 0, 'new object same as original' );

isnt( refaddr($stamp), refaddr($copy), 'copy is new object' );
isnt( refaddr($stamp), refaddr($other), 'new is new object' );


#----
Badger ( A/AB/ABW/Badger-0.16.tar.gz, ABW, 2023; MetaCPAN )
Badger/t/core/prototype.t ( view source; MetaCPAN )
), 'Damian', 'proto3 name is Damian' );
is( $p2->name(), 'Larry', 'proto2 name is still Larry' );
isnt( $p2, $p3, 'Larry is not Damian' );


#----------------------------------------------------------
ototype, 'prototype has been cleared' );

# should now get a new prototype
$p5 = $pkg->prototype;
isnt( $p5, $p3, 'new prototype created' );


__END__

# Local Variables:
# mode: perl
# perl-indent-le
Badger ( A/AB/ABW/Badger-0.16.tar.gz, ABW, 2023; MetaCPAN )
Badger/t/core/test.t ( view source; MetaCPAN )
');
ok( 1, 'Ferrets are ok, but not as cool as badgers' );
is( 'badger', 'badger', 'Badger is' );
isnt( 'badger', 'ferret', "Ferret isn't");
like( 'Badger', qr/badger/i, 'Badger Badger Badger' );
unli
ut not as cool as badgers' );
is( 'badger', 'badger', 'Badger is' );
ok( 0, 'This is not cool' );
isnt( 'badger', 'ferret', "Ferret isn't");
like( 'Badger', qr/badger/i, 'Badger Badger Badger' );
skip

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.