Changeset 21651 for t/spec/S12-enums/thorough.t

Timestamp:

07/31/08 16:47:48 (5 months ago)

Author:

moritz

Message:

[spec] testing .WHAT and .perl on enum mixins

Files:

• t/spec/S12-enums/thorough.t (modified) (3 diffs)

t/spec/S12-enums/thorough.t

@@ -3 +3 @@
 use Test;
 
-plan 57;
+plan 65;
 
 =begin description
@@ -15 +15 @@
 enum day <Sun Mon Tue Wed Thu Fri Sat>;
 
-#?DOES 12
+#?DOES 14
 sub test_stuff($x) {
   ok not $x does Wed, "basic enum mixing worked ($x-2)";
@@ -29 +29 @@
   ok Tue $x,          "Tue() worked correctly ($x)";
   ok $x.Tue,          ".Tue() worked correctly ($x)";
+  ok $x.Tue.WHAT,     '$obj.Tue.WHAT returns a true valuee';
+  ok $x.Tue.perl,     '$obj.Tue.perl returns a true valuee';
 }