Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove tests from t/pod, as they now live in roast, also remove podte…

…st Makefile target. Run S26 tests
  • Loading branch information...
commit 59c1c35d93ca58d93bcaa3b3d78455a05a534401 1 parent 48af8ca
@tadzik tadzik authored
View
160 t/pod/01-delimited.t
@@ -1,160 +0,0 @@
-use Test;
-plan 39;
-my $r;
-
-=begin foo
-=end foo
-
-$r = $=POD[0];
-isa_ok $r, Pod::Block, 'returns a Pod Block';
-isa_ok $r, Pod::Block::Named, 'returns a named Block';
-is $r.name, 'foo', 'name is ok';
-is $r.content, [], 'no content, all right';
-
-=begin foo
-some text
-=end foo
-
-$r = $=POD[1];
-isa_ok $r.content[0], Pod::Block::Para;
-is $r.content[0].content, "some text", 'the content is all right';
-is $r.name, 'foo', 'name is ok';
-
-=begin foo
-some
-spaced text
-=end foo
-
-$r = $=POD[2];
-is $r.name, 'foo', 'name is ok';
-is $r.content[0].content,
- "some spaced text", 'additional whitespace removed from the content';
-
-=begin foo
-paragraph one
-
-paragraph
-two
-=end foo
-$r = $=POD[3];
-is $r.name, 'foo', 'name is ok';
-isa_ok $r.content[0], Pod::Block::Para;
-isa_ok $r.content[1], Pod::Block::Para;
-is $r.content[0].content, "paragraph one", 'paragraphs ok, 1/2';
-is $r.content[1].content, "paragraph two", 'paragraphs ok, 2/2';
-
-=begin something
- =begin somethingelse
- toot tooot!
- =end somethingelse
-=end something
-
-$r = $=POD[4];
-is $r.name, 'something', 'parent name ok';
-isa_ok $r.content[0], Pod::Block, "nested blocks work";
-isa_ok $r.content[0].content[0], Pod::Block::Para, "nested blocks work";
-is $r.content[0].content[0].content, "toot tooot!", "and their content";
-is $r.content[0].name, 'somethingelse', 'child name ok';
-
-# Albi
-=begin foo
-and so, all of the villages chased
-Albi, The Racist Dragon, into the
-very cold and very scary cave
-
-and it was so cold and so scary in
-there, that Albi began to cry
-
- =begin bar
- Dragon Tears!
- =end bar
-
-Which, as we all know...
-
- =begin bar
- Turn into Jelly Beans!
- =end bar
-=end foo
-
-$r = $=POD[5];
-isa_ok $r, Pod::Block;
-is $r.content.elems, 5, '5 sub-nodes in foo';
-is $r.content[0].content,
- 'and so, all of the villages chased Albi, The Racist Dragon, ' ~
- 'into the very cold and very scary cave',
- '...in the marmelade forest';
-is $r.content[1].content,
- 'and it was so cold and so scary in there, that Albi began to cry',
- '...between the make-believe trees';
-is $r.content[2].content[0].content, "Dragon Tears!",
- '...in a cottage cheese cottage';
-is $r.content[3].content, "Which, as we all know...",
- '...lives Albi! Albi!';
-is $r.content[4].content[0].content, "Turn into Jelly Beans!",
- '...Albi, the Racist Dragon';
-
-=begin pod
-
-someone accidentally left a space
-
-between these two paragraphs
-
-=end pod
-
-$r = $=POD[6];
-isa_ok $r, Pod::Block;
-is $r.content[0].content, 'someone accidentally left a space',
- 'accidental space, 1/2';
-is $r.content[1].content, 'between these two paragraphs',
- 'accidental space, 2/2';
-
-# various things which caused the spectest to fail at some point
-=begin kwid
-
-= DESCRIPTION
-bla bla
-
-foo
-=end kwid
-
-$r = $=POD[7];
-is $r.content[0].content, '= DESCRIPTION bla bla';
-isa_ok $r.content[1], Pod::Block::Para;
-is $r.content[1].content, 'foo';
-
-=begin more-discussion-needed
-
-XXX: chop(@array) should return an array of chopped strings?
-XXX: chop(%has) should return a hash of chopped strings?
-
-=end more-discussion-needed
-
-$r = $=POD[8];
-isa_ok $r, Pod::Block;
-
-=begin pod
- =head1 This is a heading block
-
- This is an ordinary paragraph.
- Its text will be squeezed and
- short lines filled. It is terminated by
- the first blank line.
-
- This is another ordinary paragraph.
- Its text will also be squeezed and
- short lines filled. It is terminated by
- the trailing directive on the next line.
- =head2 This is another heading block
-
- This is yet another ordinary paragraph,
- at the first virtual column set by the
- previous directive
-=end pod
-
-$r = $=POD[9];
-isa_ok $r.content[0], Pod::Heading;
-isa_ok $r.content[1], Pod::Block::Para;
-isa_ok $r.content[2], Pod::Block::Para;
-isa_ok $r.content[3], Pod::Heading;
-isa_ok $r.content[4], Pod::Block::Para;
-is $r.content.elems, 5;
View
112 t/pod/02-paragraph.t
@@ -1,112 +0,0 @@
-use Test;
-plan 27;
-my $r;
-
-=for foo
-
-$r = $=POD[0];
-isa_ok $r, Pod::Block, 'returns a Pod6 Block';
-isa_ok $r, Pod::Block::Named, 'returns a named Block';
-is $r.name, 'foo', 'name is ok';
-is $r.content, [], 'no content, all right';
-
-=for foo
-some text
-
-$r = $=POD[1];
-isa_ok $r.content[0], Pod::Block::Para;
-is $r.content[0].content, "some text", 'the content is all right';
-
-=for foo
-some
-spaced text
-
-$r = $=POD[2];
-is $r.content[0].content,
- "some spaced text", 'additional whitespace removed from the content';
-=begin pod
-
-=for got
-Inside got
-
- =for bidden
- Inside bidden
-
-Outside blocks
-=end pod
-
-$r = $=POD[3];
-isa_ok $r.content[0], Pod::Block;
-is $r.content[0].content[0].content, "Inside got",
- 'paragraph block content ok, 1/2';
-isa_ok $r.content[1], Pod::Block;
-is $r.content[1].content[0].content, "Inside bidden",
- 'paragraph block content ok, 1/2';
-isa_ok $r.content[2], Pod::Block::Para;
-is $r.content[2].content, "Outside blocks",
- 'content outside blocks is all right';
-
-# mixed blocks
-=begin pod
-=begin one
-one, delimited block
-=end one
-=for two
-two, paragraph block
-=for three
-three, still a parablock
-
-=begin four
-four, another delimited one
-=end four
-=end pod
-
-$r = $=POD[4];
-is $r.content[0].content[0].content,
- "one, delimited block", "mixed blocks, 1";
-is $r.content[1].content[0].content,
- "two, paragraph block", "mixed blocks, 2";
-is $r.content[2].content[0].content,
- "three, still a parablock", "mixed blocks, 3";
-is $r.content[3].content[0].content,
- "four, another delimited one", "mixed blocks, 4";
-
-# tests without Albi would still be tests, but definitely very, very sad
-# also, Albi without paragraph blocks wouldn't be the happiest dragon
-# either
-=begin foo
-and so, all of the villages chased
-Albi, The Racist Dragon, into the
-very cold and very scary cave
-
-and it was so cold and so scary in
-there, that Albi began to cry
-
- =for bar
- Dragon Tears!
-
-Which, as we all know...
-
- =for bar
- Turn into Jelly Beans!
-=end foo
-
-$r = $=POD[5];
-isa_ok $r, Pod::Block;
-is $r.content.elems, 5, '5 sub-nodes in foo';
-is $r.name, 'foo';
-is $r.content[0].content,
- 'and so, all of the villages chased Albi, The Racist Dragon, ' ~
- 'into the very cold and very scary cave',
- '...in the marmelade forest';
-is $r.content[1].content,
- 'and it was so cold and so scary in there, that Albi began to cry',
- '...between the make-believe trees';
-is $r.content[2].name, 'bar';
-is $r.content[2].content[0].content, "Dragon Tears!",
- '...in a cottage cheese cottage';
-is $r.content[3].content, "Which, as we all know...",
- '...lives Albi! Albi!';
-is $r.content[4].name, 'bar';
-is $r.content[4].content[0].content, "Turn into Jelly Beans!",
- '...Albi, the Racist Dragon';
View
128 t/pod/03-abbreviated.t
@@ -1,128 +0,0 @@
-use Test;
-plan 30;
-my $r;
-
-=foo
-
-$r = $=POD[0];
-isa_ok $r, Pod::Block, 'returns a Pod6 Block';
-isa_ok $r, Pod::Block::Named, 'returns a named Block';
-is $r.content, [], 'no content, all right';
-
-=foo some text
-
-$r = $=POD[1];
-is $r.content[0].content, "some text", 'the content is all right';
-
-=foo some text
-and some more
-
-$r = $=POD[2];
-is $r.content[0].content, "some text and some more", 'the content is all right';
-
-=begin pod
-
-=got Inside
-got
-
-=bidden Inside
-bidden
-
-Outside blocks
-=end pod
-
-$r = $=POD[3];
-isa_ok $r.content[0], Pod::Block;
-is $r.content[0].content[0].content, "Inside got",
- 'paragraph block content ok, 1/2';
-isa_ok $r.content[1], Pod::Block;
-is $r.content[1].content[0].content, "Inside bidden",
- 'paragraph block content ok, 1/2';
-isa_ok $r.content[2], Pod::Block::Para;
-is $r.content[2].content, "Outside blocks",
- 'content outside blocks is all right';
-
-# mixed blocks
-=begin pod
- =begin one
- one, delimited block
- =end one
- =two two,
- paragraph block
- =for three
- three, still a parablock
-
- =begin four
- four, another delimited one
- =end four
- =head1 And just for the sake of having a working =head1 :)
-=end pod
-
-$r = $=POD[4];
-is $r.content[0].content[0].content,
- "one, delimited block", "mixed blocks, 1";
-is $r.content[1].content[0].content,
- "two, paragraph block", "mixed blocks, 2";
-is $r.content[2].content[0].content,
- "three, still a parablock", "mixed blocks, 3";
-is $r.content[3].content[0].content,
- "four, another delimited one", "mixed blocks, 4";
-is $r.content[4].content[0].content,
- "And just for the sake of having a working =head1 :)", 'mixed blocks, 5';
-
-=begin foo
-and so, all of the villages chased
-Albi, The Racist Dragon, into the
-very cold and very scary cave
-
-and it was so cold and so scary in
-there, that Albi began to cry
-
- =bold Dragon Tears!
-
-Which, as we all know...
-
- =bold Turn
- into
- Jelly
- Beans!
-=end foo
-
-$r = $=POD[5];
-isa_ok $r, Pod::Block;
-is $r.content.elems, 5, '5 sub-nodes in foo';
-is $r.content[0].content,
- 'and so, all of the villages chased Albi, The Racist Dragon, ' ~
- 'into the very cold and very scary cave',
- '...in the marmelade forest';
-is $r.content[1].content,
- 'and it was so cold and so scary in there, that Albi began to cry',
- '...between the make-believe trees';
-is $r.content[2].content[0].content, "Dragon Tears!",
- '...in a cottage cheese cottage';
-is $r.content[3].content, "Which, as we all know...",
- '...lives Albi! Albi!';
-is $r.content[4].content[0].content, "Turn into Jelly Beans!",
- '...Albi, the Racist Dragon';
-
-# from S26
-=table_not
- Constants 1
- Variables 10
- Subroutines 33
- Everything else 57
-
-$r = $=POD[6];
-isa_ok $r, Pod::Block;
-is $r.content.elems, 1;
-is $r.content[0].content,
- 'Constants 1 Variables 10 Subroutines 33 Everything else 57';
-
-=head3
-Heading level 3
-
-$r = $=POD[7];
-isa_ok $r, Pod::Block;
-isa_ok $r, Pod::Heading;
-is $r.level, '3';
-is $r.content[0].content, 'Heading level 3';
View
157 t/pod/04-code.t
@@ -1,157 +0,0 @@
-use Test;
-plan 50;
-my $r;
-
-=begin pod
-This ordinary paragraph introduces a code block:
-
- $this = 1 * code('block');
- $which.is_specified(:by<indenting>);
-=end pod
-
-$r = $=POD[0];
-is $r.content[0].content, 'This ordinary paragraph introduces a code block:';
-isa_ok $r.content[1], Pod::Block::Code;
-is $r.content[1].content.Str, q[$this = 1 * code('block');
-$which.is_specified(:by<indenting>);];
-
-# more fancy code blocks
-=begin pod
-This is an ordinary paragraph
-
- While this is not
- This is a code block
-
- =head1 Mumble mumble
-
- Suprisingly, this is not a code block
- (with fancy indentation too)
-
-But this is just a text. Again
-
-=end pod
-
-$r = $=POD[1];
-is $r.content.elems, 5;
-is $r.content[0].content, 'This is an ordinary paragraph';
-isa_ok $r.content[1], Pod::Block::Code;
-is $r.content[1].content, "While this is not\nThis is a code block";
-isa_ok $r.content[2], Pod::Block;
-is $r.content[2].content[0].content, 'Mumble mumble';
-isa_ok $r.content[3], Pod::Block::Para;
-is $r.content[3].content, "Suprisingly, this is not a code block"
- ~ " (with fancy indentation too)";
-is $r.content[4].content, "But this is just a text. Again";
-
-=begin pod
-
-Tests for the feed operators
-
- ==> and <==
-
-=end pod
-
-$r = $=POD[2];
-is $r.content[0].content, 'Tests for the feed operators';
-isa_ok $r.content[1], Pod::Block::Code;
-is $r.content[1].content, "==> and <==";
-
-=begin pod
-Fun comes
-
- This is code
- Ha, what now?
-
- one more block of code
- just to make sure it works
- or better: maybe it'll break!
-=end pod
-
-$r = $=POD[3];
-is $r.content.elems, 4;
-is $r.content[0].content, 'Fun comes';
-isa_ok $r.content[1], Pod::Block::Code;
-is $r.content[1].content, 'This is code';
-isa_ok $r.content[2], Pod::Block::Code;
-is $r.content[2].content, 'Ha, what now?';
-isa_ok $r.content[3], Pod::Block::Code;
-is $r.content[3].content, "one more block of code\n"
- ~ "just to make sure it works\n"
- ~ " or better: maybe it'll break!";
-
-=begin pod
-
-=head1 A heading
-
-This is Pod too. Specifically, this is a simple C<para> block
-
- $this = pod('also'); # Specifically, a code block
-
-=end pod
-
-$r = $=POD[4];
-is $r.content.elems, 3;
-isa_ok $r.content[0], Pod::Block;
-is $r.content[0].content[0].content, 'A heading';
-is $r.content[1].content[0],
- 'This is Pod too. Specifically, this is a simple ';
-isa_ok $r.content[1].content[1], Pod::FormattingCode;
-is $r.content[1].content[1].type, 'C';
-is $r.content[1].content[1].content, 'para';
-is $r.content[1].content[2], ' block';
-isa_ok $r.content[2], Pod::Block::Code;
-is $r.content[2].content,
- q[$this = pod('also'); # Specifically, a code block];
-
-=begin pod
- this is code
-
- =for podcast
- this is not
-
- this is not code either
-
- =begin itemization
- this is not
- =end itemization
-
- =begin quitem
- and this is not
- =end quitem
-
- =begin item
- and this is!
- =end item
-=end pod
-
-$r = $=POD[5];
-is $r.content.elems, 6;
-isa_ok $r.content[0], Pod::Block::Code;
-is $r.content[0].content, 'this is code';
-
-isa_ok $r.content[1], Pod::Block::Named;
-is $r.content[1].name, 'podcast';
-is $r.content[1].content[0].content, 'this is not';
-
-isa_ok $r.content[2], Pod::Block::Para;
-is $r.content[2].content, 'this is not code either';
-
-isa_ok $r.content[3], Pod::Block::Named;
-is $r.content[3].name, 'itemization';
-is $r.content[3].content[0].content, 'this is not';
-
-isa_ok $r.content[4], Pod::Block::Named;
-is $r.content[4].name, 'quitem';
-is $r.content[4].content[0].content, 'and this is not';
-
-isa_ok $r.content[5].content[0], Pod::Block::Code;
-is $r.content[5].content[0].content, 'and this is!';
-
-=begin code
- foo foo
- =begin code
- =end code
-=end code
-
-$r = $=POD[6];
-isa_ok $r, Pod::Block::Code;
View
41 t/pod/05-comment.t
@@ -1,41 +0,0 @@
-use Test;
-plan 9;
-my $r;
-
-=begin pod
-=for comment
-foo foo
-bla bla bla
-
-This isn't a comment
-=end pod
-
-$r = $=POD[0];
-isa_ok $r.content[0], Pod::Block::Comment;
-is $r.content[0].content.elems, 1;
-is $r.content[0].content, "foo foo\nbla bla bla\n";
-
-# from S26
-=comment
-This file is deliberately specified in Perl 6 Pod format
-
-$r = $=POD[1];
-isa_ok $r, Pod::Block::Comment;
-is $r.content.elems, 1;
-is $r.content[0],
- "This file is deliberately specified in Perl 6 Pod format\n";
-
-# this happens to break hilighting in some editors,
-# so I put it at the end
-=begin comment
-foo foo
-=begin invalid pod
-=as many invalid pod as we want
-===yay!
-=end comment
-
-$r = $=POD[2];
-isa_ok $r, Pod::Block;
-is $r.content.elems, 1;
-is $r.content[0], "foo foo\n=begin invalid pod\n"
- ~ "=as many invalid pod as we want\n===yay!\n";
View
104 t/pod/06-lists.t
@@ -1,104 +0,0 @@
-use Test;
-plan 31;
-my $r;
-
-=begin pod
-The seven suspects are:
-
-=item Happy
-=item Dopey
-=item Sleepy
-=item Bashful
-=item Sneezy
-=item Grumpy
-=item Keyser Soze
-=end pod
-
-$r = $=POD[0];
-is $r.content.elems, 8;
-for 1..7 {
- isa_ok $r.content[$_], Pod::Item;
-}
-
-is $r.content[1].content[0].content, 'Happy', 'content is happy :)';
-is $r.content[2].content[0].content, 'Dopey';
-is $r.content[7].content[0].content, 'Keyser Soze';
-nok $r.content[4].level.defined, 'no level information';
-
-=begin pod
-=item1 Animal
-=item2 Vertebrate
-=item2 Invertebrate
-
-=item1 Phase
-=item2 Solid
-=item2 Liquid
-=item2 Gas
-=item2 Chocolate
-=end pod
-
-$r = $=POD[1];
-is $r.content.elems, 8;
-for 0..7 {
- isa_ok $r.content[$_], Pod::Item;
-}
-
-$r.content[0].content[0].content, 'Animal';
-$r.content[0].level, 1;
-$r.content[2].content[0].content, 'Invertebrate';
-$r.content[2].level, 2;
-$r.content[3].content[0].content, 'Phase';
-$r.content[3].level, 1;
-$r.content[4].content[0].content, 'Solid';
-$r.content[4].level, 2;
-
-=begin pod
-=comment CORRECT...
-=begin item1
-The choices are:
-=end item1
-=item2 Liberty
-=item2 Death
-=item2 Beer
-=end pod
-
-$r = $=POD[2];
-is $r.content.elems, 5;
-for 1..4 {
- isa_ok $r.content[$_], Pod::Item;
-}
-
-# XXX Those items are :numbered in S26, but we're waiting with block
-# configuration until we're inside Rakudo, otherwise we'll have to
-# pretty much implement Pair parsing in gsocmess only to get rid of
-# it later.
-
-=begin pod
-Let's consider two common proverbs:
-
-=begin item
-I<The rain in Spain falls mainly on the plain.>
-
-This is a common myth and an unconscionable slur on the Spanish
-people, the majority of whom are extremely attractive.
-=end item
-
-=begin item
-I<The early bird gets the worm.>
-
-In deciding whether to become an early riser, it is worth
-considering whether you would actually enjoy annelids
-for breakfast.
-=end item
-
-As you can see, folk wisdom is often of dubious value.
-=end pod
-
-$r = $=POD[3];
-is $r.content.elems, 4;
-is $r.content[0].content, "Let's consider two common proverbs:";
-ok $r.content[1].content[1].content
- ~~ /:s This is a common .+ are extremely attractive/;
-ok $r.content[2].content[1].content
- ~~ /:s In deciding .+ annelids for breakfast/;
-is $r.content[3].content, "As you can see, folk wisdom is often of dubious value.";
View
137 t/pod/07-tables.t
@@ -1,137 +0,0 @@
-use Test;
-plan 38;
-my $r;
-
-=begin table
- The Shoveller Eddie Stevens King Arthur's singing shovel
- Blue Raja Geoffrey Smith Master of cutlery
- Mr Furious Roy Orson Ticking time bomb of fury
- The Bowler Carol Pinnsler Haunted bowling ball
-=end table
-
-$r = $=POD[0];
-isa_ok $r, Pod::Block::Table;
-is $r.content.elems, 4;
-is $r.content[0].join('|'),
- "The Shoveller|Eddie Stevens|King Arthur's singing shovel";
-is $r.content[1].join('|'),
- "Blue Raja|Geoffrey Smith|Master of cutlery";
-is $r.content[2].join('|'),
- "Mr Furious|Roy Orson|Ticking time bomb of fury";
-is $r.content[3].join('|'),
- "The Bowler|Carol Pinnsler|Haunted bowling ball";
-
-=table
- Constants 1
- Variables 10
- Subroutines 33
- Everything else 57
-
-$r = $=POD[1];
-is $r.content.elems, 4;
-is $r.content[0].join('|'), "Constants|1";
-is $r.content[1].join('|'), "Variables|10";
-is $r.content[2].join('|'), "Subroutines|33";
-is $r.content[3].join('|'), "Everything else|57";
-
-=for table
- mouse | mice
- horse | horses
- elephant | elephants
-
-$r = $=POD[2];
-is $r.content.elems, 3;
-is $r.content[0].join('|'), "mouse|mice";
-is $r.content[1].join('|'), "horse|horses";
-is $r.content[2].join('|'), "elephant|elephants";
-
-=table
- Animal | Legs | Eats
- =======================
- Zebra + 4 + Cookies
- Human + 2 + Pizza
- Shark + 0 + Fish
-
-$r = $=POD[3];
-is $r.headers.join('|'), "Animal|Legs|Eats";
-is $r.content.elems, 3;
-is $r.content[0].join('|'), "Zebra|4|Cookies";
-is $r.content[1].join('|'), "Human|2|Pizza";
-is $r.content[2].join('|'), "Shark|0|Fish";
-
-=table
- Superhero | Secret |
- | Identity | Superpower
- ==============|=================|================================
- The Shoveller | Eddie Stevens | King Arthur's singing shovel
-
-$r = $=POD[4];
-is $r.headers.join('|'), "Superhero|Secret Identity|Superpower";
-is $r.content.elems, 1;
-is $r.content[0].join('|'),
- "The Shoveller|Eddie Stevens|King Arthur's singing shovel";
-
-=begin table
-
- Secret
- Superhero Identity Superpower
- ============= =============== ===================
- The Shoveller Eddie Stevens King Arthur's
- singing shovel
-
- Blue Raja Geoffrey Smith Master of cutlery
-
- Mr Furious Roy Orson Ticking time bomb
- of fury
-
- The Bowler Carol Pinnsler Haunted bowling ball
-
-=end table
-
-$r = $=POD[5];
-is $r.headers.join('|'), "Superhero|Secret Identity|Superpower";
-is $r.content.elems, 4;
-is $r.content[0].join('|'),
- "The Shoveller|Eddie Stevens|King Arthur's singing shovel";
-is $r.content[1].join('|'),
- "Blue Raja|Geoffrey Smith|Master of cutlery";
-is $r.content[2].join('|'),
- "Mr Furious|Roy Orson|Ticking time bomb of fury";
-is $r.content[3].join('|'),
- "The Bowler|Carol Pinnsler|Haunted bowling ball";
-
-=table
- X | O |
- ---+---+---
- | X | O
- ---+---+---
- | | X
-
-$r = $=POD[6];
-is $r.content.elems, 3;
-is $r.content[0].join(','), 'X,O,';
-is $r.content[1].join(','), ',X,O';
-is $r.content[2].join(','), ',,X';
-
-=table
- X O
- ===========
- X O
- ===========
- X
-
-$r = $=POD[7];
-is $r.content.elems, 3;
-is $r.content[0].join(','), 'X,O,';
-is $r.content[1].join(','), ',X,O';
-is $r.content[2].join(','), ',,X';
-
-=begin table
-
-foo
-bar
-
-=end table
-
-$r = $=POD[8];
-is $r.content.elems, 2;
View
79 t/pod/08-formattingcodes.t
@@ -1,79 +0,0 @@
-use Test;
-my $r;
-
-=pod
-B<I am a formatting code>
-
-$r = $=POD[0].content[0].content[1];
-isa_ok $r, Pod::FormattingCode;
-is $r.type, 'B';
-is $r.content[0], 'I am a formatting code';
-
-=pod
-The basic C<ln> command is: C<ln> B<R<source_file> R<target_file>>
-
-$r = $=POD[1].content[0].content;
-is $r[0], 'The basic ';
-isa_ok $r[1], Pod::FormattingCode;
-is $r[1].type, 'C';
-is $r[1].content, 'ln';
-is $r[2], ' command is: ';
-isa_ok $r[3], Pod::FormattingCode;
-is $r[3].type, 'C';
-is $r[3].content, 'ln';
-isa_ok $r[5], Pod::FormattingCode;
-is $r[4], " ";
-is $r[5].type, 'B';
-$r = $r[5].content;
-is $r[0], "";
-isa_ok $r[1], Pod::FormattingCode;
-is $r[1].type, 'R';
-is $r[1].content, 'source_file';
-is $r[2], ' ';
-isa_ok $r[3], Pod::FormattingCode;
-is $r[3].type, 'R';
-is $r[3].content, 'target_file';
-
-=pod
-L<C<b>|a>
-L<C<b>|a>
-
-$r = $=POD[2].content[0].content;
-for $r[1], $r[3] -> $link {
- is $link.type, 'L';
- is $link.content[0], '';
- isa_ok $link.content[1], Pod::FormattingCode;
- is $link.content[1].content, 'b';
- is $link.content[2], '|a';
-}
-
-=begin pod
-
-=head1 A heading
-
-This is Pod too. Specifically, this is a simple C<para> block
-
- $this = pod('also'); # Specifically, a code block
-
-=end pod
-
-$r = $=POD[3];
-is $r.content.elems, 3;
-isa_ok $r.content[0], Pod::Block;
-is $r.content[0].content[0].content, 'A heading';
-is $r.content[1].content[0],
- 'This is Pod too. Specifically, this is a simple ';
-isa_ok $r.content[1].content[1], Pod::FormattingCode;
-is $r.content[1].content[1].type, 'C';
-is $r.content[1].content[1].content, 'para';
-is $r.content[1].content[2], ' block';
-isa_ok $r.content[2], Pod::Block::Code;
-is $r.content[2].content,
- q[$this = pod('also'); # Specifically, a code block];
-
-=pod V<C<boo> B<bar> asd>
-
-$r = $=POD[4];
-is $r.content[0].content, 'C<boo> B<bar> asd';
-
-done;
View
50 t/pod/09-configuration.t
@@ -1,50 +0,0 @@
-use Test;
-plan 14;
-my $r;
-
-=begin pod
- =begin code :allow<B>
- =end code
-=end pod
-
-$r = $=POD[0].content[0];
-isa_ok $r, Pod::Block::Code;
-is $r.config<allow>, 'B';
-
-=begin pod
- =config head2 :like<head1> :formatted<I>
-=end pod
-
-$r = $=POD[1].content[0];
-isa_ok $r, Pod::Config;
-is $r.type, 'head2';
-is $r.config<like>, 'head1';
-is $r.config<formatted>, 'I';
-
-=begin pod
- =pod :number(42) :zebras :!sheep
-=end pod
-
-$r = $=POD[2].content[0];
-is $r.config<number>, 42;
-is $r.config<zebras>.Bool, True;
-is $r.config<sheep>.Bool, False;
-
-=begin pod
-=for DESCRIPTION :title<presentation template>
-= :author<John Brown> :pubdate(2011)
-=end pod
-
-$r = $=POD[3].content[0];
-is $r.config<title>, 'presentation template';
-is $r.config<author>, 'John Brown';
-is $r.config<pubdate>, 2011;
-
-=begin pod
-=for table :caption<Table of contents>
- foo bar
-=end pod
-
-$r = $=POD[4].content[0];
-isa_ok $r, Pod::Block::Table;
-is $r.config<caption>, 'Table of contents';
View
85 t/pod/why.t
@@ -1,85 +0,0 @@
-use Test;
-plan 19;
-
-#= simple case
-class Simple {
-}
-
-is Simple.WHY.content, 'simple case';
-is ~Simple.WHY, 'simple case', 'stringifies correctly';
-
-#= giraffe
-class Outer {
- #= zebra
- class Inner {
- }
-}
-
-is Outer.WHY.content, 'giraffe';
-is Outer::Inner.WHY.content, 'zebra';
-
-#= a module
-module foo {
- #= a package
- package bar {
- #= and a class
- class baz {
- }
- }
-}
-
-is foo.WHY.content, 'a module';
-is foo::bar.WHY.content, 'a package';
-is foo::bar::baz.WHY.content, 'and a class';
-
-#= yellow
-sub marine {}
-is &marine.WHY.content, 'yellow';
-
-#= pink
-sub panther {}
-is &panther.WHY.content, 'pink';
-
-#= a sheep
-class Sheep {
- #= usually white
- has $.wool;
-
- #= not too scary
- method roar { 'roar!' }
-}
-
-is Sheep.WHY.content, 'a sheep';
-skip 'segfault', 1;
-#is Sheep.^attributes.grep({ .name eq '$!wool' }).WHY, 'usually white';
-is Sheep.^find_method('roar').WHY.content, 'not too scary';
-
-sub routine {}
-is &routine.WHY.defined, False;
-
-#= our works too
-our sub oursub {}
-is &oursub.WHY, 'our works too', 'works for our subs';
-
-# two subs in a row
-
-#= one
-sub one {}
-
-#= two
-sub two {}
-is &one.WHY.content, 'one';
-is &two.WHY.content, 'two';
-
-#= that will break
-sub first {}
-
-#= that will break
-sub second {}
-
-is &first.WHY.content, 'that will break';
-is &second.WHY.content, 'that will break';
-
-#= trailing space here
-sub third {}
-is &third.WHY.content, 'trailing space here';
View
10 t/spectest.data
@@ -494,6 +494,16 @@ S16-unfiled/rebindstdhandles.t
S16-unfiled/slurp.t
S19-command-line/dash-e.t # icu
S19-command-line/help.t
+S26-documentation/01-delimited.t
+S26-documentation/02-paragraph.t
+S26-documentation/03-abbreviated.t
+S26-documentation/04-code.t
+S26-documentation/05-comment.t
+S26-documentation/06-lists.t
+S26-documentation/07-tables.t
+S26-documentation/08-formattingcodes.t
+S26-documentation/09-configuration.t
+S26-documentation/why.t
S28-named-variables/cwd.t
S28-named-variables/inc.t
S29-any/cmp.t
View
3  tools/build/Makefile.in
@@ -400,9 +400,6 @@ fulltest: coretest stresstest
coretest: all
$(PERL) t/harness t/00-parrot t/01-sanity t/02-embed
-podtest: lib/Test.pir
- $(PERL) t/harness t/pod
-
# Run the spectests that we know work.
spectest_regression: spectest
spectest: testable t/spectest.data
Please sign in to comment.
Something went wrong with that request. Please try again.