Fix relational operator tests to work properly with NaN values.

karay12 · May 10, 2011 · c929021 · c929021
1 parent 705435e
commit c929021
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -197,7 +197,7 @@ multi sub infix:«==»(Num $a, Num $b) {
 }
 
 multi sub infix:«!=»(Num $a, Num $b) {
-    pir::iseq__INN( $a, $b) ?? False !! True # note reversed
+    pir::isne__INN( $a, $b) ?? True !! False
 }
 
 multi sub infix:«<»(Num $a, Num $b) {
@@ -209,11 +209,11 @@ multi sub infix:«>»(Num $a, Num $b) {
 }
 
 multi sub infix:«<=»(Num $a, Num $b) {
-    pir::isgt__INN( $a, $b) ?? False !! True # note reversed
+    pir::isle__INN( $a, $b) ?? True !! False
 }
 
 multi sub infix:«>=»(Num $a, Num $b) {
-    pir::islt__INN( $a, $b) ?? False !! True # note reversed
+    pir::isge__INN( $a, $b) ?? True !! False
 }
 
 # Arithmetic operators