@podlite/to-jsx 0.0.18 → 0.0.20

package/t/fixtures-src/01-delimited.t

@@ -1,184 +0,0 @@
-use v6;
-use Test;
-plan 40;
-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.contents, [], 'no contents, all right';
-
-#---
-=begin foo
-some text
-=end foo
-#---
-
-$r = $=pod[1];
-isa-ok $r.contents[0], Pod::Block::Para;
-is $r.contents[0].contents, "some text", 'the contents are 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.contents[0].contents,
-   "some spaced text", 'additional whitespace removed from the contents';
-
-#---
-=begin foo
-paragraph one
-
-paragraph
-two
-=end foo
-#---
-$r = $=pod[3];
-is $r.name, 'foo', 'name is ok';
-isa-ok $r.contents[0], Pod::Block::Para;
-isa-ok $r.contents[1], Pod::Block::Para;
-is $r.contents[0].contents, "paragraph one", 'paragraphs ok, 1/2';
-is $r.contents[1].contents, "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.contents[0], Pod::Block, "nested blocks work";
-isa-ok $r.contents[0].contents[0], Pod::Block::Para, "nested blocks work";
-is $r.contents[0].contents[0].contents, "toot tooot!", "and their contents";
-is $r.contents[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.contents.elems, 5, '5 sub-nodes in foo';
-is $r.contents[0].contents,
-   '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.contents[1].contents,
-   'and it was so cold and so scary in there, that Albi began to cry',
-   '...between the make-believe trees';
-is $r.contents[2].contents[0].contents, "Dragon Tears!",
-   '...in a cottage cheese cottage';
-is $r.contents[3].contents, "Which, as we all know...",
-   '...lives Albi! Albi!';
-is $r.contents[4].contents[0].contents, "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.contents[0].contents, 'someone accidentally left a space',
-   'accidental space, 1/2';
-is $r.contents[1].contents, '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.contents[0].contents, '= DESCRIPTION bla bla';
-isa-ok $r.contents[1], Pod::Block::Para;
-is $r.contents[1].contents, '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.contents[0], Pod::Heading;
-isa-ok $r.contents[1], Pod::Block::Para;
-isa-ok $r.contents[2], Pod::Block::Para;
-isa-ok $r.contents[3], Pod::Heading;
-isa-ok $r.contents[4], Pod::Block::Para;
-is $r.contents.elems, 5;
-
-eval-lives-ok "=begin pod\nSome documentation\n=end pod", "Pod files don't have to end in a newline";

package/t/fixtures-src/02-paragraph.t

@@ -1,137 +0,0 @@
-use v6;
-use Test;
-use lib $?FILE.IO.parent(2).add("packages/Test-Helpers");
-use Test::Util;
-plan 28;
-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.contents, [], 'no contents, all right';
-
-#---
-=for Foo
-some text
-#---
-
-$r = $=pod[1];
-isa-ok $r.contents[0], Pod::Block::Para;
-is $r.contents[0].contents, "some text", 'the contents are all right';
-
-#---
-=for Foo
-some
-spaced   text
-#---
-
-$r = $=pod[2];
-is $r.contents[0].contents,
-   "some spaced text", 'additional whitespace removed  from the contents';
-#---
-=begin pod
-
-=for Got
-Inside Got
-
-   =for Bidden
-   Inside Bidden
-
-Outside blocks
-=end pod
-#---
-
-$r = $=pod[3];
-isa-ok $r.contents[0], Pod::Block;
-is $r.contents[0].contents[0].contents, "Inside Got",
-   'paragraph block contents ok, 1/2';
-isa-ok $r.contents[1], Pod::Block;
-is $r.contents[1].contents[0].contents, "Inside Bidden",
-   'paragraph block contents ok, 1/2';
-isa-ok $r.contents[2], Pod::Block::Para;
-is $r.contents[2].contents, "Outside blocks",
-   'contents 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.contents[0].contents[0].contents,
-   "One, delimited block", "mixed blocks, 1";
-is $r.contents[1].contents[0].contents,
-   "Two, paragraph block", "mixed blocks, 2";
-is $r.contents[2].contents[0].contents,
-   "Three, still a parablock", "mixed blocks, 3";
-is $r.contents[3].contents[0].contents,
-   "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.contents.elems, 5, '5 sub-nodes in foo';
-is $r.name, 'Foo';
-is $r.contents[0].contents,
-   '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.contents[1].contents,
-   'and it was so cold and so scary in there, that Albi began to cry',
-   '...between the make-believe trees';
-is $r.contents[2].name, 'Bar';
-is $r.contents[2].contents[0].contents, "Dragon Tears!",
-   '...in a cottage cheese cottage';
-is $r.contents[3].contents, "Which, as we all know...",
-   '...lives Albi! Albi!';
-is $r.contents[4].name, 'Bar';
-is $r.contents[4].contents[0].contents, "Turn into Jelly Beans!",
-   '...Albi, the Racist Dragon';
-
-
-# RT#131400
-is_run Q:to/♥♥♥/, :compiler-args['--doc=Text'],
-    =for pod
-    =for nested
-    =for para :nested(1)
-    E<a;b>E<a;b;c>
-    ♥♥♥
-{:err(''), :out("ababc\n"), :0status}, 'nested paras do not crash/warn';

package/t/fixtures-src/03-abbreviated.t

@@ -1,145 +0,0 @@
-use v6;
-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.contents, [], 'no contents, all right';
-
-#---
-=foo some text
-#---
-
-$r = $=pod[1];
-is $r.contents[0].contents, "some text", 'the contents are all right';
-
-#---
-=foo some text
-and some more
-#---
-
-$r = $=pod[2];
-is $r.contents[0].contents, "some text and some more", 'the contents are all right';
-
-#---
-=begin pod
-
-=got Inside
-got
-
-=bidden Inside
-bidden
-
-Outside blocks
-=end pod
-#---
-
-$r = $=pod[3];
-isa-ok $r.contents[0], Pod::Block;
-is $r.contents[0].contents[0].contents, "Inside got",
-   'paragraph block contents ok, 1/2';
-isa-ok $r.contents[1], Pod::Block;
-is $r.contents[1].contents[0].contents, "Inside bidden",
-   'paragraph block contents ok, 1/2';
-isa-ok $r.contents[2], Pod::Block::Para;
-is $r.contents[2].contents, "Outside blocks",
-   'contents 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.contents[0].contents[0].contents,
-   "one, delimited block", "mixed blocks, 1";
-is $r.contents[1].contents[0].contents,
-   "two, paragraph block", "mixed blocks, 2";
-is $r.contents[2].contents[0].contents,
-   "three, still a parablock", "mixed blocks, 3";
-is $r.contents[3].contents[0].contents,
-   "four, another delimited one", "mixed blocks, 4";
-is $r.contents[4].contents[0].contents,
-   "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.contents.elems, 5, '5 sub-nodes in foo';
-is $r.contents[0].contents,
-   '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.contents[1].contents,
-   'and it was so cold and so scary in there, that Albi began to cry',
-   '...between the make-believe trees';
-is $r.contents[2].contents[0].contents, "Dragon Tears!",
-   '...in a cottage cheese cottage';
-is $r.contents[3].contents, "Which, as we all know...",
-   '...lives Albi! Albi!';
-is $r.contents[4].contents[0].contents, "Turn into Jelly Beans!",
-   '...Albi, the Racist Dragon';
-
-# from S26
-#---
-Z<>=table_not
-    Constants 1
-    Variables 10
-    Subroutines 33
-    Everything else 57
-#---
-
-$r = $=pod[6];
-isa-ok $r, Pod::Block;
-is $r.contents.elems, 1;
-is $r.contents[0].contents,
-   '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.contents[0].contents, 'Heading level 3';

package/t/fixtures-src/04-code.t

@@ -1,178 +0,0 @@
-use v6;
-use Test;
-plan 50;
-my $r;
-
-#---
-=begin pod
-This ordinary paragraph introduces a code block:
-
-    $this = 1 * code('block');
-    $which.is_specified(:by<indenting>);
-
-
-    $which.spans(:newlines);
-
-=end pod
-#---
-
-$r = $=pod[0];
-is $r.contents[0].contents, 'This ordinary paragraph introduces a code block:';
-isa-ok $r.contents[1], Pod::Block::Code;
-is $r.contents[1].contents.Str.subst("\r\n", "\n", :g), q[$this = 1 * code('block');
-$which.is_specified(:by<indenting>);
-
-$which.spans(:newlines);].subst("\r\n", "\n", :g);
-
-# 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.contents.elems, 5;
-is $r.contents[0].contents, 'This is an ordinary paragraph';
-isa-ok $r.contents[1], Pod::Block::Code;
-is $r.contents[1].contents, "While this is not\nThis is a code block";
-isa-ok $r.contents[2], Pod::Block;
-is $r.contents[2].contents[0].contents, 'Mumble mumble';
-isa-ok $r.contents[3], Pod::Block::Para;
-is $r.contents[3].contents, "Suprisingly, this is not a code block"
-                        ~ " (with fancy indentation too)";
-is $r.contents[4].contents, "But this is just a text. Again";
-
-#---
-=begin pod
-
-Tests for the feed operators
-
-    ==> and <==
-    
-=end pod
-#---
-
-$r = $=pod[2];
-is $r.contents[0].contents, 'Tests for the feed operators';
-isa-ok $r.contents[1], Pod::Block::Code;
-is $r.contents[1].contents, "==> 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.contents.elems, 4;
-is $r.contents[0].contents, 'Fun comes';
-isa-ok $r.contents[1], Pod::Block::Code;
-is $r.contents[1].contents, 'This is code';
-isa-ok $r.contents[2], Pod::Block::Code;
-is $r.contents[2].contents, 'Ha, what now?';
-isa-ok $r.contents[3], Pod::Block::Code;
-is $r.contents[3].contents, "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.contents.elems, 3;
-isa-ok $r.contents[0], Pod::Block;
-is $r.contents[0].contents[0].contents, 'A heading';
-is $r.contents[1].contents[0],
-   'This is Pod too. Specifically, this is a simple ';
-isa-ok $r.contents[1].contents[1], Pod::FormattingCode;
-is $r.contents[1].contents[1].type, 'C';
-is $r.contents[1].contents[1].contents, 'para';
-is $r.contents[1].contents[2], ' block';
-isa-ok $r.contents[2], Pod::Block::Code;
-is $r.contents[2].contents,
-   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.contents.elems, 6;
-isa-ok $r.contents[0], Pod::Block::Code;
-is $r.contents[0].contents, 'this is code';
-
-isa-ok $r.contents[1], Pod::Block::Named;
-is $r.contents[1].name, 'Podcast';
-is $r.contents[1].contents[0].contents, 'this is not';
-
-isa-ok $r.contents[2], Pod::Block::Para;
-is $r.contents[2].contents, 'this is not code either';
-
-isa-ok $r.contents[3], Pod::Block::Named;
-is $r.contents[3].name, 'Itemization';
-is $r.contents[3].contents[0].contents, 'this is not';
-
-isa-ok $r.contents[4], Pod::Block::Named;
-is $r.contents[4].name, 'Quitem';
-is $r.contents[4].contents[0].contents, 'and this is not';
-
-isa-ok $r.contents[5].contents[0], Pod::Block::Code;
-is $r.contents[5].contents[0].contents, 'and this is!';
-
-#---
-=begin code
-    foo foo
-    =begin code
-    =end code
-=end code
-#---
-
-$r = $=pod[6];
-isa-ok $r, Pod::Block::Code;

package/t/fixtures-src/04a-input-output.t

@@ -1,78 +0,0 @@
-
-# test =input =output
-#---
-=begin pod
-    =begin output
-        Name:    Baracus, B.A.
-        Age:     49
-        Print? B<K<n>>
-    =end output
-    =begin output
-        Name:    Baracus, B.A.
-        Age:     49
-        Print? B<K<n>>
-    =end output
-=end pod
-#---
-
-
-use v6;
-use Test;
-use lib $?FILE.IO.parent(2).add("packages/Test-Helpers");
-use Test::Util;
-
-plan 6;
-
-my $r;
-
-# Tests expected to fail:
-
-my $p1 = Q:to<--END-->;
-=begin code
-say 1;
-say 2;
-=end
---END--
-
-my $p2 = Q:to<--END-->;
-=begin input
-say 1;
-say 2;
-=end
---END--
-
-my $p3 = Q:to<--END-->;
-=begin output
-say 1;
-say 2;
-=end
---END--
-
-my $p4 = Q:to<--END-->;
-=begin code
-say 1;
-say 2;
-=end input
---END--
-
-my $p5 = Q:to<--END-->;
-=begin input
-say 1;
-say 2;
-=end output
---END--
-
-my $p6 = Q:to<--END-->;
-=begin output
-say 1;
-say 2;
-=end code
---END--
-
-for $p1, $p2, $p3, $p4, $p5, $p6 -> $POD {
-    is_run :compiler-args['--doc'], $POD, {
-        # the %wanted hash
-        status => 1,
-    }, 'expected fail of basic --doc check';
-}
-