Permalink
Browse files

get rid of .perl for Instant comparison

  • Loading branch information...
1 parent 63157bc commit b3ef08d9cccd243d150d93db96547bc01848558a @moritz moritz committed Feb 7, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 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;

0 comments on commit b3ef08d

Please sign in to comment.