[perl #64102] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-enums/pseudo-functional.t

commit 82d963e5541998a12262bd5f66541a84ef6f0374
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Thu Jul 30 03:37:38 2009 +0000

    [t/spec] Tests for RT #64102 (enum functional form)
    
    git-svn-id: http://svn.pugscode.org/p...@27809 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-enums/pseudo-functional.t 
b/t/spec/S12-enums/pseudo-functional.t
new file mode 100644
index 0000000..bbdf121
--- /dev/null
+++ b/t/spec/S12-enums/pseudo-functional.t
@@ -0,0 +1,33 @@
+use v6;
+use Test;
+
+plan 13;
+
+# L<12/Enums/There's also a pseudo-functional form>
+
+enum day <<:Sun(1) Mon Tue Wed Thu Fri Sat>>;
+
+is day(Tue), day(3), 'day(Tue) same as day(3)';
+
+{
+    my $today_tue = 'Today' but day(Tue);
+    my $today_3   = 'Today' but day(3);
+
+    is $today_tue, $today_3, 'day(Tue) same as day(3) in variables';
+}
+
+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 == Tue,  'day(Tue) == Tue';
+ok day($x) == Tue, 'day(day(Tue)) == Tue';
+ok $x.Tue,         'day(Tue).Tue';
+
+ok $x.day != Wed, 'day(Tue) != Wed';
+
+nok $x.does(Wed), '! day(Tue).does(Wed)';
+nok $x.Wed,       '! day(Tue).does(Wed)';
+nok 8.does(day),  '8 is not a day';
+nok 8 ~~ day,     '8 does not match day';