Permalink
Browse files

[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...
1 parent 8313f3f commit f660aa63ad43d043fc25436a6fb6d3b10745806d cosimo committed Jan 28, 2008
Showing with 22 additions and 28 deletions.
  1. +1 −1 S29-container/roundrobin.t
  2. +2 −2 S29-os/system-with-spaces.t
  3. +2 −2 S29-scalar/defined.t
  4. +7 −4 S29-scalar/undef.t
  5. +0 −3 S29-str/chomp.t
  6. +2 −2 S29-str/length.t
  7. +2 −2 S29-str/p5chomp.t
  8. +2 −2 S29-str/samecase.t
  9. +2 −5 S29-trig/e.t
  10. +2 −5 S29-trig/trig.t
@@ -43,4 +43,4 @@ flunk('roundrobin :finite');
ok(roundrobin(:finite, 1; 1..2; 1..3) eqv (1), 'roundrobin :shortest',
:todo<feature>);
-=cut
+=end lazy_roundrobin
@@ -14,7 +14,7 @@ if $?OS ne 'MSWin32' {
exit;
}
-=kwid
+=begin pod
Test the interaction of system(LIST) and whitespace characters. In
an ideal world, system() does Just Enough quoting of the parameters
@@ -31,7 +31,7 @@ programs, especially if double-quotes as parameters are involved.
Haskell's automagic quoting seems to be amazingly good though.
-=cut
+=end pod
# Win32 specific tests for system() being sane enough
View
@@ -4,11 +4,11 @@ plan 21;
# L<S29/Scalar/"=item defined">
-=pod
+=begin pod
Tests for the defined() builtin
-=cut
+=end pod
View
@@ -2,14 +2,14 @@ use v6-alpha;
use Test;
-=kwid
+=begin pod
`undef` and `undefine` tests
This test file contains two sections: a port of the perl5 `undef.t` tests, and
perl6-specific tests.
-=cut
+=end pod
# Note: See thread "Undef issues" by Adrian Taylor on p6l
# L<http://groups.google.com/groups?threadm=20050601002444.GB32060@wall.org>
@@ -25,7 +25,9 @@ perl6-specific tests.
plan 74;
our $GLOBAL;
+
# L<S29/Scalar/"=item undef">
+
is(undef, undef, "undef is equal to undef");
ok(!defined(undef), "undef is not defined");
@@ -51,6 +53,7 @@ ok(!defined(undef), "undef is not defined");
$a = $GLOBAL;
ok(!defined($a), "assigning another undef global");
}
+
# L<S29/Scalar/"=item undefine">
{
my @ary = "arg1";
@@ -134,11 +137,11 @@ is($interesting, 2, "Undef on LHS of function assignment");
($interesting, undef) = two_elements();
is($interesting, 1, "Undef on LHS of function assignment");
-=kwid
+=begin pod
Perl6-specific tests
-=cut
+=end pod
{
# aggregate references
View
@@ -116,14 +116,11 @@ Basic tests for the chomp() builtin
is_deeply(@szundi, @foo, "chomp array with 2 elements with duplicate newlines");
}
-#?rakudo skip "trouble with pod"
-{
=begin pod
Basic tests for the chomp() builtin working on an array of strings
=end pod
-}
# L<S29/Str/=item chomp>
View
@@ -4,7 +4,7 @@ use Test;
# L<S29/Str/=item length>
-=kwid
+=begin pod
Various length tests (though "length" should not be used)
@@ -13,7 +13,7 @@ and needs more careful tests.
L<"http://www.unicode.org/unicode/reports/tr11/">
-=cut
+=end pod
plan 54;
View
@@ -1,11 +1,11 @@
use v6-alpha;
use Test;
-=kwid
+=begin pod
L<S29/Str/"=item p5chomp">
-=cut
+=end pod
plan 6;
View
@@ -3,11 +3,11 @@ use Test;
# L<S29/Str/"=item samecase">
-=pod
+=begin pod
Basic test for the samecase() builtin with a string (Str).
-=cut
+=end pod
plan 8;
View
@@ -4,14 +4,11 @@ plan 6;
# L<S29/"The :Trig tag">
-#?rakudo skip 'Cannot parse pod'
-{
-=head1 DESCRIPTION
+=begin description
Basic tests for trigonometric functions.
-=cut
-}
+=end description
# See also: L<"http://en.wikipedia.org/wiki/E_%28mathematical_constant%29"> :)
my $e = 2.71828182845904523536;
View
@@ -4,14 +4,11 @@ plan 51;
# L<S29/"The :Trig tag">
-#?rakudo skip 'Cannot parse pod'
-{
-=head1 DESCRIPTION
+=begin description
Basic tests for trigonometric functions.
-=cut
-}
+=end description
# See also: L<"http://theory.cs.iitm.ernet.in/~arvindn/pi/"> :)
my $PI = 3.14159265358979323846264338327950288419716939937510;

0 comments on commit f660aa6

Please sign in to comment.