get rid of .perl for Instant comparison

Raku · Feb 7, 2011 · b3ef08d · b3ef08d
1 parent 63157bc
commit b3ef08d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/S02-builtin_data_types/instants-and-durations.t b/S02-builtin_data_types/instants-and-durations.t
@@ -30,7 +30,7 @@ isa_ok eval('now +300'), Instant, 'now is a term, not a function';
     isa_ok $d + $t0, Instant, 'Instant + Duration ~~ Instant';
     isa_ok $d + $t0, Instant, 'Duration + Instant ~~ Instant';
     isa_ok $t0 - $d, Instant, 'Instant - Duration ~~ Instant';
-    is ($t0 + ($t1 - $t0)).perl, $t1.perl, 'Instant A + (Instant B - Instant A) == Instant B';
+    is $t0 + ($t1 - $t0), $t1, 'Instant A + (Instant B - Instant A) == Instant B';
 }
 
 done;