Source

p5-module-quote / t / 02quotelike.t

Full commit
1
2
3
4
5
6
7
8
use Test::More tests => 2;
use Module::Quote qw( qm qp );

my $number1 = qm( Math::BigInt )->new(42);
my $number2 = qp( Math::BigInt 1.00 )->new(42);

isa_ok $number1, "Math::BigInt";
isa_ok $number2, "Math::BigInt";