Permalink
Browse files

[t/spec] delete some outdated tests in S12-enums/thorough.t and fix s…

…martlinks

git-svn-id: http://svn.pugscode.org/pugs@30089 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 61bc9c8 commit b7c9e84a301021908a6c430c9c63a7e1dbe9b289 moritz committed Mar 15, 2010
Showing with 4 additions and 13 deletions.
  1. +4 −13 S12-enums/thorough.t
View
@@ -13,7 +13,7 @@ Enum tests from L<S12/Enumerations>
=end description
#?pugs 999 skip
-# L<S12/Enumerations/values are specified as a list>
+# L<S12/Enumerations/keys are specified as a parenthesized list>
enum day <Sun Mon Tue Wed Thu Fri Sat>;
ok day ne "", 'enum itself stringififes';
@@ -44,26 +44,16 @@ sub test_stuff($x) {
{
my $x = 1;
is $x, 1, "basic sanity (1)";
- # L<S12/Enumerations/has the right semantics mixed in:>
+ # L<S12/Enumerations/on the right side of a but or does.>
ok $x does day(Tue), "basic enum mixing worked (1-1)";
test_stuff($x);
}
-#?DOES 15
-#?rakudo skip 'does day<tue> - but is this even valid?'
-{
- my $x = 2;
- is $x, 2, "basic sanity (2)";
- # L<S12/Enumerations/or pseudo-hash form:>
- ok $x does day<Tue>, "basic enum mixing worked (2-1)";
- test_stuff($x);
-}
#?rakudo skip 'does day::Tue'
{
my $x = 3;
is $x, 3, "basic sanity (3)";
- # L<S12/Enumerations/is the same as>
ok $x does day::Tue, "basic enum mixing worked (3-1)";
test_stuff($x);
}
@@ -73,7 +63,8 @@ sub test_stuff($x) {
{
my $x = 4;
is $x, 4, "basic sanity (4)";
- # L<S12/Enumerations/which is short for something like:>
+ # L<S12/Enumerations/Mixing in the full enumeration type produces a
+ # read-write attribute>
ok $x does day, "basic enum mixing worked (4-0)";
ok $x.day = &day::("Tue"), "basic enum mixing worked (4-1)";
test_stuff($x);

0 comments on commit b7c9e84

Please sign in to comment.