Permalink
Browse files

[t/spec] more smartlinks; less than 100 remain without smartlinks

git-svn-id: http://svn.pugscode.org/pugs@27846 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
moritz
moritz committed Aug 2, 2009
1 parent eda6db1 commit 820912f27ee8ac45debb9759b45a4bbee272e9bc
View
@@ -11,12 +11,8 @@ use Test;
plan 20;
-unless "a" ~~ /a/ {
- skip_rest "skipped tests - rule support appears to be missing";
- exit;
-}
+# L<S05/Extensible metasyntax (C<< <...> >>)>
-# rule r { <?> | x <r> } - XXX 'rule' doesn't backtrack
regex r { <?> | x <r> }
ok "" ~~ /<r>/, '"" ~~ /<r>/ matched';
View
@@ -4,9 +4,13 @@ use Test;
plan 1;
+# L<S06/Macros>
+
macro postfix:<!> (Int $n) {
my $factorial = [*] 1..$n;
return "$factorial + 0";
}
is 3!, 6, "macro postfix:<!> works";
+
+# vim: ft=perl6
@@ -2,11 +2,7 @@ use v6;
use Test;
-=begin pod
-
-See L<S06/"Macros">.
-
-=end pod
+#L<S06/"Macros">
plan 4;
@@ -25,3 +21,5 @@ plan 4;
is returns_a_closure, 145, "closure returning macro";
is $in_macro_clos, 1, "macro closure was executed during runtime";
}
+
+# vim: ft=perl6
@@ -2,11 +2,7 @@ use v6;
use Test;
-=begin pod
-
-See L<S06/"Macros">.
-
-=end pod
+# L<S06/Macros>
plan 8;
@@ -48,3 +44,5 @@ plan 8;
is (prefix_2000 42), 200042,
"simple string returning macro without argparens is parsed correctly (2)";
}
+
+# vim: ft=perl6
View
@@ -3,6 +3,9 @@ use Test;
plan 8;
+# L<S12/Construction and Initialization/The default BUILD and BUILDALL>
+
+
class Parent {
has Str $.gather is rw = '';
has Int $.parent-counter is rw = 0;
View
@@ -10,6 +10,8 @@ Tests for WALK, defined in L<S12/Calling sets of methods>
=end pod
+#L<S12/Calling sets of methods>
+
class A {
method m { 'A' }
}
View
@@ -3,6 +3,8 @@ use Test;
plan 16;
+# L<S12/Methods/may be declared as lvalues with is rw.>
+
class T {
has $.a;
has $.b;
View
@@ -9,6 +9,8 @@ plan 4;
# Test two attributes in each role because roles with single attributes are special
# Author: Richard Hainsworth, Oct 2, 2006
+# L<S14/Roles/but may be composed of other roles>
+
role InnerRole {
has $.inner_role_var_1 is rw;
has $.inner_role_var_2 is rw;
@@ -75,3 +75,5 @@ role ParaRole[$x] {
}
is(NotNewTest.x, 69, "it's not just .new that causes a pun, but any method");
}
+
+# vim: ft=perl6
@@ -7,6 +7,8 @@ plan 22;
#?pugs emit skip_rest('parameterized roles'); exit;
#?pugs emit =begin SKIP
+# L<S14/Parametric Subtyping>
+
role R1[::T] { }
role R1[::T1, ::T2] { }
class C1 { }
@@ -13,6 +13,9 @@ Tests for using parameterized roles as types, plus the of keyword.
#?pugs emit skip_rest('parameterized roles'); exit;
#?pugs emit =begin SKIP
+# L<S14/Parametric Roles>
+# L<S14/Relationship Between of And Types>
+
role R1[::T] { method x { T } }
class C1 does R1[Int] { }
class C2 does R1[Str] { }
View
@@ -3,6 +3,8 @@ use Test;
plan 3;
+# L<S32::IO/IO::Socket::INET>
+
# Testing socket must solve 2 problems: find an unused port to bind to,
# and fork a client process before the server is blocked in accept().

0 comments on commit 820912f

Please sign in to comment.