Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[t/spec] fudge an "augment" test for rakudo; try to test the same wit…

…h existing methods

git-svn-id: http://svn.pugscode.org/pugs@26738 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit df3f661f5cb6d4344c2ca7e48e895e9e573eba02 1 parent 1139657
moritz authored
Showing with 6 additions and 2 deletions.
  1. +6 −2 S12-enums/thorough.t
View
8 S12-enums/thorough.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 66;
+plan 68;
=begin description
@@ -77,6 +77,8 @@ sub test_stuff($x) {
}
# used to be Rakudo regression, RT #64098
+#?rakudo skip 'augment'
+#?DOES 2
{
augment class Object {
method f { 'inObject' };
@@ -87,7 +89,9 @@ sub test_stuff($x) {
}
is True.f, 'inBool', 'method on short name pick up the one from the enum';
is Bool::True.f, 'inBool', 'method on long name pick up the one from the enum';
-
}
+ok True.perl ~~/^ 'Bool::True'/, 'True.perl';
+ok Bool::True.perl ~~/^ 'Bool::True'/, 'Bool::True.perl';
+
# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.