Update a couple of tests for Order enum.

Author: jnthn

S29-any/cmp.t

@@ -5,12 +5,12 @@ plan 6;
 
 # L<S32::Basics/Any/"=item cmp">
 
-is('a' cmp 'a', 0,  'a is equal to a');
-is('a' cmp 'b', -1, 'a is less than b');
-is('b' cmp 'a', 1,  'b is greater than a');
+is('a' cmp 'a', Order::Same,      'a is equal to a');
+is('a' cmp 'b', Order::Increase,  'a is less than b');
+is('b' cmp 'a', Order::Decrease,  'b is greater than a');
 
-is(3   cmp   3,  0,  '3 cmp 3 is 0');
-is(2   cmp   3, -1,  '2 cmp 3 is -1');
-is(3   cmp   4, -1,  '3 cmp 4 is -1');
+is(3   cmp   3, Order::Same,      '3 cmp 3 is 0');
+is(2   cmp   3, Order::Increase,  '2 cmp 3 is -1');
+is(3   cmp   4, Order::Increase,  '3 cmp 4 is -1');
 
 # vim: ft=perl6

S32-temporal/Date.t

@@ -105,14 +105,14 @@ sub d($x) { Date.new($x); }
     ok  $b >  $a, '> (+)';
     nok $a >  $b, '> (-)';
 
-    is $a cmp $a,  0, 'cmp ( 0)';
-    is $a cmp $b, -1, 'cmp (-1)';
-    is $c cmp $a,  1, 'cmp (+1)';
+    is $a cmp $a, Order::Same,     'cmp ( 0)';
+    is $a cmp $b, Order::Increase, 'cmp (-1)';
+    is $c cmp $a, Order::Decrease, 'cmp (+1)';
 
 
-    is $a <=> $a,  0, '<=> ( 0)';
-    is $a <=> $b, -1, '<=> (-1)';
-    is $c <=> $a,  1, '<=> (+1)';
+    is $a <=> $a, Order::Same,     '<=> ( 0)';
+    is $a <=> $b, Order::Increase, '<=> (-1)';
+    is $c <=> $a, Order::Decrease, '<=> (+1)';
 }
 
 done;