diff options
Diffstat (limited to 'cpan/IO-Compress/t/01misc.t')
-rw-r--r-- | cpan/IO-Compress/t/01misc.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/cpan/IO-Compress/t/01misc.t b/cpan/IO-Compress/t/01misc.t index 76d6a7bdc2..528b71f034 100644 --- a/cpan/IO-Compress/t/01misc.t +++ b/cpan/IO-Compress/t/01misc.t @@ -19,7 +19,7 @@ BEGIN { $extra = 1 if eval { require Test::NoWarnings ; import Test::NoWarnings; 1 }; - plan tests => 136 + $extra ; + plan tests => 140 + $extra ; use_ok('Scalar::Util'); use_ok('IO::Compress::Base::Common'); @@ -361,4 +361,12 @@ My::testParseParameters(); $z = U64::clone($x); is $z->getHigh, 21, " getHigh is 21"; is $z->getLow, 77, " getLow is 77"; + + title "U64 - cmp.gt" ; + $x = new U64 1; + $y = new U64 0; + cmp_ok $x->cmp($y), '>', 0, " cmp > 0"; + is $x->gt($y), 1, " gt"; + cmp_ok $y->cmp($x), '<', 0, " cmp < 0"; + } |