X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F24-cmp_ok.t;fp=t%2F24-cmp_ok.t;h=ad880f35b5995b6206190ef679ecfe9a5d1d7ea4;hb=6c548b9b29eaa5e43616cb1c9422d0fd6b85121c;hp=0000000000000000000000000000000000000000;hpb=e63601e117e265834dc41b4001bcacfa73d270df;p=perl%2Fmodules%2FTest-Leaner.git

diff --git a/t/24-cmp_ok.t b/t/24-cmp_ok.t
new file mode 100644
index 0000000..ad880f3
--- /dev/null
+++ b/t/24-cmp_ok.t
@@ -0,0 +1,61 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::Leaner tests => 4 * 10 + 7 + 10;
+
+my @num_tests = (
+ [ '1.0', '==', '1.0' ],
+ [ '1e0', '==', '1e0' ],
+ [ '1.0', '<=', '1.0' ],
+ [ '1.0', '>=', '1.0' ],
+ [ '1.0', '<=', '2.0' ],
+ [ '1.0', '<',  '2.0' ],
+ [ '2.0', '>=', '1.0' ],
+ [ '2.0', '>',  '1.0' ],
+ [ '1.0', '!=', '2.0' ],
+ [ '2.0', '!=', '1.0' ],
+);
+
+for my $t (@num_tests) {
+ my ($x, $op, $y) = @$t;
+ cmp_ok $x,      $op, $y;
+ cmp_ok int($x), $op, $y;
+ cmp_ok $x,      $op, int($y);
+ cmp_ok int($x), $op, int($y);
+}
+
+my @str_tests = (
+ [ 'a', 'eq', 'a' ],
+ [ 'a', 'le', 'b' ],
+ [ 'a', 'lt', 'b' ],
+ [ 'b', 'ge', 'a' ],
+ [ 'b', 'gt', 'a' ],
+ [ 'a', 'ne', 'b' ],
+ [ 'b', 'ne', 'a' ],
+);
+
+for my $t (@str_tests) {
+ my ($x, $op, $y) = @$t;
+ cmp_ok $x, $op, $y;
+}
+
+my @logic_tests = (
+ [ 1, 'or',  0 ],
+ [ 0, 'or',  1 ],
+ [ 1, 'or',  1 ],
+ [ 1, 'xor', 0 ],
+ [ 0, 'xor', 1 ],
+ [ 1, 'and', 1 ],
+
+ [ 1, '||', 0 ],
+ [ 0, '||', 1 ],
+ [ 1, '||', 1 ],
+ [ 1, '&&', 1 ],
+);
+
+for my $t (@logic_tests) {
+ my ($x, $op, $y) = @$t;
+ cmp_ok $x, $op, $y;
+}