RT#125555: DateTime comparison ops

Raku · Feb 3, 2018 · ff0472a · ff0472a
1 parent ceabda6
commit ff0472a
Showing 1 changed file with 14 additions and 1 deletion.
diff --git a/S32-temporal/DateTime.t b/S32-temporal/DateTime.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 291;
+plan 297;
 
 my $orwell = DateTime.new(year => 1984);
 
@@ -838,3 +838,16 @@ throws-like { DateTime.new: :2016year, 42 }, Exception,
     is-deeply $dur + $dt2, $dt1.in-timezone($dt2.timezone),
         'Duration + DateTime = DateTime';
 }
+
+# comparison operators
+
+{
+    my $dt1 = DateTime.now;
+    my $dt2 = $dt1.later(:1hour); 
+     ok $dt1 <  $dt2, 'DateTime <  DateTime';
+     ok $dt1 <= $dt2, 'DateTime <= DateTime';
+    nok $dt1 == $dt2, 'DateTime == DateTime';
+     ok $dt1 != $dt2, 'DateTime != DateTime';
+    nok $dt1 >  $dt2, 'DateTime >  DateTime';
+    nok $dt1 >= $dt2, 'DateTime >= DateTime';
+}