From 1a88785a83ede3ebe055362cf8f7b07c45286751 Mon Sep 17 00:00:00 2001 From: Moritz Lenz Date: Sun, 13 May 2012 13:29:33 +0200 Subject: [PATCH] fix one test, and remove two wrong ones --- S12-enums/pseudo-functional.t | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/S12-enums/pseudo-functional.t b/S12-enums/pseudo-functional.t index 283ad3b3d1..4eb341e08d 100644 --- a/S12-enums/pseudo-functional.t +++ b/S12-enums/pseudo-functional.t @@ -1,7 +1,7 @@ use v6; use Test; -plan 13; +plan 11; # L or C/enumeration supplies the type name as a coercion> @@ -18,9 +18,7 @@ is day(Tue), day(3), 'day(Tue) same as day(3)'; my $x = 'Today' but day(Tue); -ok $x ~~ day, 'day(Tue) is a day'; -ok $x ~~ Tue, 'day(Tue) is Tue'; -ok $x.does(Tue), 'day(Tue).does(Tue)'; +ok $x.day ~~ day, 'day(Tue).day is a day'; ok $x.day == Tue, 'day(Tue) == Tue'; ok day($x) == Tue, 'day(day(Tue)) == Tue'; ok $x.Tue, 'day(Tue).Tue';