This is an automatically generated mail to inform you that tests are now
available in at least one of these files: t/spec/S32-num/int.t,
t/spec/S32-temporal/Temporal.t
commit 6d920b0174a83cf0f4d2deefb1cfd07c3d9786e0
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Aug 16 03:59:35 2009 +0000
[t/spec] Test for RT #65132
git-svn-id: http://svn.pugscode.org/p...@28000
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S32-num/int.t b/t/spec/S32-num/int.t
index 913b51b..060e3bc 100644
--- a/t/spec/S32-num/int.t
+++ b/t/spec/S32-num/int.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 66;
+plan 68;
# L<S32::Numeric/Num/"=item truncate">
# truncate and int() are synonynms.
@@ -87,4 +87,12 @@ is(int(Inf), Inf, "int Inf is Inf");
is(int(-Inf), -Inf, "int -Inf is -Inf");
is(int(NaN), NaN, "int NaN is NaN");
+# RT #65132
+{
+ #?rakudo todo 'no more prefix:int'
+ eval_dies_ok 'int time', 'dies: int time (prefix:int is gone)';
+ my $t = time;
+ is int($t), $t.int, 'int(time) == time.int'
+}
+
# vim: ft=perl6
diff --git a/t/spec/S32-temporal/Temporal.t b/t/spec/S32-temporal/Temporal.t
index c42ce6a..0db2cf1 100644
--- a/t/spec/S32-temporal/Temporal.t
+++ b/t/spec/S32-temporal/Temporal.t
@@ -73,7 +73,7 @@ ok $g1.epoch==3661, "epoch at 1970-01-01 01:01:01"; # test 15
ok ~$g1 eq '1970-01-01T01:01:01+0100', "as Str 1970-01-01T01:01:01+0100"; #
test 16
# round trip test for current number of seconds in the Unix epoch
-$t = int time;
+$t = time.int;
my @t = test_gmtime( $t );
$g1 = Temporal::DateTime.new(
date => Temporal::Date.new( :year(@t[5]+1900), :month(@t[4]+1),
:day(@t[3]) ),
