Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

[t/spec] Possibly converted all remaining pod markers to pod6

git-svn-id: http://svn.pugscode.org/pugs@19736 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit f660aa63ad43d043fc25436a6fb6d3b10745806d 1 parent 8313f3f
authored January 28, 2008
2  S29-container/roundrobin.t
@@ -43,4 +43,4 @@ flunk('roundrobin :finite');
43 43
 ok(roundrobin(:finite, 1; 1..2; 1..3) eqv (1), 'roundrobin :shortest',
44 44
     :todo<feature>);
45 45
 
46  
-=cut
  46
+=end lazy_roundrobin
4  S29-os/system-with-spaces.t
@@ -14,7 +14,7 @@ if $?OS ne 'MSWin32' {
14 14
    exit;
15 15
 }
16 16
 
17  
-=kwid
  17
+=begin pod
18 18
 
19 19
 Test the interaction of system(LIST) and whitespace characters. In
20 20
 an ideal world, system() does Just Enough quoting of the parameters
@@ -31,7 +31,7 @@ programs, especially if double-quotes as parameters are involved.
31 31
 
32 32
 Haskell's automagic quoting seems to be amazingly good though.
33 33
 
34  
-=cut
  34
+=end pod
35 35
 
36 36
 # Win32 specific tests for system() being sane enough
37 37
 
4  S29-scalar/defined.t
@@ -4,11 +4,11 @@ plan 21;
4 4
 
5 5
 # L<S29/Scalar/"=item defined">
6 6
 
7  
-=pod
  7
+=begin pod
8 8
 
9 9
 Tests for the defined() builtin
10 10
 
11  
-=cut
  11
+=end pod
12 12
 
13 13
 
14 14
 
11  S29-scalar/undef.t
@@ -2,14 +2,14 @@ use v6-alpha;
2 2
 
3 3
 use Test;
4 4
 
5  
-=kwid
  5
+=begin pod
6 6
 
7 7
 `undef` and `undefine` tests
8 8
 
9 9
 This test file contains two sections: a port of the perl5 `undef.t` tests, and
10 10
 perl6-specific tests.
11 11
 
12  
-=cut
  12
+=end pod
13 13
 
14 14
 # Note: See thread "Undef issues" by Adrian Taylor on p6l
15 15
 # L<http://groups.google.com/groups?threadm=20050601002444.GB32060@wall.org>
@@ -25,7 +25,9 @@ perl6-specific tests.
25 25
 plan 74;
26 26
 
27 27
 our $GLOBAL;
  28
+
28 29
 # L<S29/Scalar/"=item undef">
  30
+
29 31
 is(undef, undef, "undef is equal to undef");
30 32
 ok(!defined(undef), "undef is not defined");
31 33
 
@@ -51,6 +53,7 @@ ok(!defined(undef), "undef is not defined");
51 53
     $a = $GLOBAL;
52 54
     ok(!defined($a), "assigning another undef global");
53 55
 }
  56
+
54 57
 # L<S29/Scalar/"=item undefine">
55 58
 {
56 59
     my @ary = "arg1";
@@ -134,11 +137,11 @@ is($interesting, 2, "Undef on LHS of function assignment");
134 137
 ($interesting, undef) = two_elements();
135 138
 is($interesting, 1, "Undef on LHS of function assignment");
136 139
 
137  
-=kwid
  140
+=begin pod
138 141
 
139 142
 Perl6-specific tests
140 143
 
141  
-=cut
  144
+=end pod
142 145
 
143 146
 {
144 147
     # aggregate references
3  S29-str/chomp.t
@@ -116,14 +116,11 @@ Basic tests for the chomp() builtin
116 116
     is_deeply(@szundi, @foo, "chomp array with 2 elements with duplicate newlines");
117 117
 }
118 118
 
119  
-#?rakudo skip "trouble with pod"
120  
-{
121 119
 =begin pod
122 120
 
123 121
 Basic tests for the chomp() builtin working on an array of strings
124 122
 
125 123
 =end pod
126  
-}
127 124
 
128 125
 # L<S29/Str/=item chomp>
129 126
 
4  S29-str/length.t
@@ -4,7 +4,7 @@ use Test;
4 4
 
5 5
 # L<S29/Str/=item length>
6 6
 
7  
-=kwid
  7
+=begin pod
8 8
 
9 9
 Various length tests (though "length" should not be used)
10 10
 
@@ -13,7 +13,7 @@ and needs more careful tests.
13 13
 
14 14
 L<"http://www.unicode.org/unicode/reports/tr11/">
15 15
 
16  
-=cut
  16
+=end pod
17 17
 
18 18
 plan 54;
19 19
 
4  S29-str/p5chomp.t
... ...
@@ -1,11 +1,11 @@
1 1
 use v6-alpha;
2 2
 use Test;
3 3
 
4  
-=kwid 
  4
+=begin pod
5 5
 
6 6
 L<S29/Str/"=item p5chomp">
7 7
 
8  
-=cut
  8
+=end pod
9 9
 
10 10
 plan 6;
11 11
 
4  S29-str/samecase.t
@@ -3,11 +3,11 @@ use Test;
3 3
 
4 4
 # L<S29/Str/"=item samecase">
5 5
 
6  
-=pod
  6
+=begin pod
7 7
 
8 8
 Basic test for the samecase() builtin with a string (Str).
9 9
 
10  
-=cut
  10
+=end pod
11 11
 
12 12
 plan 8;
13 13
 
7  S29-trig/e.t
@@ -4,14 +4,11 @@ plan 6;
4 4
 
5 5
 # L<S29/"The :Trig tag">
6 6
 
7  
-#?rakudo skip 'Cannot parse pod'
8  
-{
9  
-=head1 DESCRIPTION
  7
+=begin description
10 8
 
11 9
 Basic tests for trigonometric functions.
12 10
 
13  
-=cut
14  
-}
  11
+=end description
15 12
 
16 13
 # See also: L<"http://en.wikipedia.org/wiki/E_%28mathematical_constant%29"> :)
17 14
 my $e = 2.71828182845904523536;
7  S29-trig/trig.t
@@ -4,14 +4,11 @@ plan 51;
4 4
 
5 5
 # L<S29/"The :Trig tag">
6 6
 
7  
-#?rakudo skip 'Cannot parse pod'
8  
-{
9  
-=head1 DESCRIPTION
  7
+=begin description
10 8
 
11 9
 Basic tests for trigonometric functions.
12 10
 
13  
-=cut
14  
-}
  11
+=end description
15 12
 
16 13
 # See also: L<"http://theory.cs.iitm.ernet.in/~arvindn/pi/"> :)
17 14
 my $PI = 3.14159265358979323846264338327950288419716939937510;

0 notes on commit f660aa6

Please sign in to comment.
Something went wrong with that request. Please try again.