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

Timestamp:

07/01/08 22:23:15 (5 months ago)

Author:

moritz

Message:

[spec] moved oo/enum.t to spec/

Files:

• t/spec/S12-enums/thorough.t (moved) (moved from t/oo/enums.t) (5 diffs)

t/spec/S12-enums/thorough.t

@@ -3 +3 @@
 use Test;
 
-plan 58;
+plan 57;
 
-=pod
+=begin description
 
 Enum tests from L<S12/Enums>
 
-=cut
+=end description
 
+#?pugs 999 skip
 # L<S12/Enums/values are specified as a list>
-ok eval('enum day <Sun Mon Tue Wed Thu Fri Sat>'), "basic enum definition worked", :todo<feature>;
+enum day <Sun Mon Tue Wed Thu Fri Sat>;
 
+#?DOES 12
 sub test_stuff($x) {
-  ok eval('not $x does Wed'), "basic enum mixing worked ($x-2)", :todo<feature>;
-  is eval('$x.day'), 3,       "automatically created accessor worked ($x)", :todo<feature>;
-  is eval('day::Tue'), 3,     "enum provided a correct mapping ($x)", :todo<feature>;
-  ok eval('$x ~~ day'),       "smartmatch worked correctly ($x-1)", :todo<feature>;
-  ok eval('$x ~~ Tue'),       "smartmatch worked correctly ($x-2)", :todo<feature>;
-  ok eval('$x ~~ day::Tue'),  "smartmatch worked correctly ($x-3)", :todo<feature>;
-  ok eval('not $x  ~~  Wed'), "smartmatch worked correctly ($x-4)", :todo<feature>;
-  ok eval('$x.does(Tue)'),    ".dos worked correctly ($x-1)", :todo<feature>;
-  ok eval('$x.does(day)'),    ".dos worked correctly ($x-2)", :todo<feature>;
-  is eval('$x.day'), 3,       ".day worked correctly ($x)", :todo<feature>;
-  ok eval('Tue $x'),          "Tue() worked correctly ($x)", :todo<feature>;
-  ok eval('$x.Tue'),          ".Tue() worked correctly ($x)", :todo<feature>;
+  ok not $x does Wed, "basic enum mixing worked ($x-2)";
+  is $x.day, 3,       "automatically created accessor worked ($x)";
+  is day::Tue, 3,     "enum provided a correct mapping ($x)";
+  ok $x ~~ day,       "smartmatch worked correctly ($x-1)";
+  ok $x ~~ Tue,       "smartmatch worked correctly ($x-2)";
+  ok $x ~~ day::Tue,  "smartmatch worked correctly ($x-3)";
+  ok $x |~~  Wed,     "smartmatch worked correctly ($x-4)";
+  ok $x.does(Tue),    ".does worked correctly ($x-1)";
+  ok $x.does(day),    ".does worked correctly ($x-2)";
+  is $x.day, 3,       ".day worked correctly ($x)";
+  ok Tue $x,          "Tue() worked correctly ($x)";
+  ok $x.Tue,          ".Tue() worked correctly ($x)";
 }
 
@@ -33 +35 @@
   is $x, 1, "basic sanity (1)";
   # L<S12/Enums/has the right semantics mixed in:>
-  ok eval('$x does Tue'), "basic enum mixing worked (1-1)";
+  ok $x does Tue, "basic enum mixing worked (1-1)";
+  $x does Tue;
   test_stuff($x);
 }
@@ -41 +44 @@
   is $x, 2, "basic sanity (2)";
   # L<S12/Enums/or pseudo-hash form:>
-  ok eval('$x does day<Tue>'), "basic enum mixing worked (2-1)";
+  ok $x does day<Tue>, "basic enum mixing worked (2-1)";
   test_stuff($x);
 }
@@ -49 +52 @@
   is $x, 3, "basic sanity (3)";
   # L<S12/Enums/is the same as>
-  ok eval('$x does day::Tue'), "basic enum mixing worked (3-1)";
+  ok $x does day::Tue, "basic enum mixing worked (3-1)";
   test_stuff($x);
 }
@@ -57 +60 @@
   is $x, 4, "basic sanity (4)";
   # L<S12/Enums/which is short for something like:>
-  ok eval('$x does day'),            "basic enum mixing worked (4-0)";
-  ok eval('$x.day = &day::("Tue")'), "basic enum mixing worked (4-1)", :todo<feature>;
+  ok $x does day,            "basic enum mixing worked (4-0)";
+  ok $x.day = &day::("Tue"), "basic enum mixing worked (4-1)";
   test_stuff($x);
 }