@podlite/to-jsx 0.0.17 → 0.0.19

package/t/fixtures-src/05-comment.t

@@ -1,53 +0,0 @@
-use v6;
-use Test;
-plan 9;
-my $r;
-
-sub norm_crlf($str) {
-    $str.subst("\r\n", "\n", :g)
-}
-
-#---
-=begin pod
-=for comment
-foo foo
-bla bla    bla
-
-This isn't a comment
-=end pod
-#---
-
-$r = $=pod[0];
-isa-ok $r.contents[0], Pod::Block::Comment;
-is $r.contents[0].contents.elems, 1;
-is norm_crlf($r.contents[0].contents), "foo foo\nbla bla    bla\n";
-
-# from S26
-#---
-=comment
-This file is deliberately specified in Raku Pod format
-#---
-
-$r = $=pod[1];
-isa-ok $r, Pod::Block::Comment;
-is $r.contents.elems, 1, 'one-line comment: number of elements';;
-is norm_crlf($r.contents[0]),
-   "This file is deliberately specified in Raku Pod format\n",
-   'one-line comment: contents';
-
-# 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.contents.elems, 1;
-is norm_crlf($r.contents[0]), "foo foo\n=begin invalid pod\n"
-                ~ "=as many invalid pod as we want\n===yay!\n";

package/t/fixtures-src/06-lists.t

@@ -1,113 +0,0 @@
-use v6;
-use Test;
-plan 39;
-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.contents.elems, 8;
-for 1..7 {
-    isa-ok $r.contents[$_], Pod::Item;
-}
-
-is $r.contents[1].contents[0].contents, 'Happy', 'contents is happy :)';
-is $r.contents[2].contents[0].contents, 'Dopey';
-is $r.contents[7].contents[0].contents, 'Keyser Soze';
-ok $r.contents[4].level.defined, '=item is an abbreviation of =item1';
-
-#---
-=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.contents.elems, 8;
-for 0..7 {
-    isa-ok $r.contents[$_], Pod::Item;
-}
-
-is $r.contents[0].contents[0].contents, 'Animal';
-is $r.contents[0].level,   1;
-is $r.contents[2].contents[0].contents, 'Invertebrate';
-is $r.contents[2].level,   2;
-is $r.contents[3].contents[0].contents, 'Phase';
-is $r.contents[3].level,   1;
-is $r.contents[4].contents[0].contents, 'Solid';
-is $r.contents[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.contents.elems, 5;
-for 1..4 {
-    isa-ok $r.contents[$_], 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.contents.elems, 4;
-is $r.contents[0].contents, "Let's consider two common proverbs:";
-ok $r.contents[1].contents[1].contents
-   ~~ /:s This is a common .+ are extremely attractive/;
-ok $r.contents[2].contents[1].contents
-   ~~ /:s In deciding .+ annelids for breakfast/;
-is $r.contents[3].contents, "As you can see, folk wisdom is often of dubious value.";

package/t/fixtures-src/07-tables.t

@@ -1,153 +0,0 @@
-use v6;
-use Test;
-my $r;
-my $p = 0; # use as an index for the pod chunks
-
-plan 37;
-
-#---
-=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[$p++];
-isa-ok $r, Pod::Block::Table;
-is $r.contents.elems, 4;
-is $r.contents[0].join('|'),
-   "The Shoveller|Eddie Stevens|King Arthur's singing shovel";
-is $r.contents[1].join('|'),
-   "Blue Raja|Geoffrey Smith|Master of cutlery";
-is $r.contents[2].join('|'),
-   "Mr Furious|Roy Orson|Ticking time bomb of fury";
-is $r.contents[3].join('|'),
-   "The Bowler|Carol Pinnsler|Haunted bowling ball";
-
-#---
-=table
-    Constants           1
-    Variables           10
-    Subroutines         33
-    Everything else     57
-#---
-
-$r = $=pod[$p++];
-is $r.contents.elems, 4;
-is $r.contents[0].join('|'), "Constants|1";
-is $r.contents[1].join('|'), "Variables|10";
-is $r.contents[2].join('|'), "Subroutines|33";
-is $r.contents[3].join('|'), "Everything else|57";
-
-#---
-=for table
-    mouse    | mice
-    horse    | horses
-    elephant | elephants
-#---
-
-$r = $=pod[$p++];
-is $r.contents.elems, 3;
-is $r.contents[0].join('|'), "mouse|mice";
-is $r.contents[1].join('|'), "horse|horses";
-is $r.contents[2].join('|'), "elephant|elephants";
-
-#---
-=table
-    Animal | Legs |    Eats
-    =======================
-    Zebra  +   4  + Cookies
-    Human  +   2  +   Pizza
-    Shark  +   0  +    Fish
-#---
-
-$r = $=pod[$p++];
-is $r.headers.join('|'), "Animal|Legs|Eats";
-is $r.contents.elems, 3;
-is $r.contents[0].join('|'), "Zebra|4|Cookies";
-is $r.contents[1].join('|'), "Human|2|Pizza";
-is $r.contents[2].join('|'), "Shark|0|Fish";
-
-#---
-=table
-        Superhero     | Secret          |
-                      | Identity        | Superpower
-        ==============|=================|================================
-        The Shoveller | Eddie Stevens   | King Arthur's singing shovel
-#---
-
-$r = $=pod[$p++];
-is $r.headers.join('|'), "Superhero|Secret Identity|Superpower";
-is $r.contents.elems, 1;
-is $r.contents[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[$p++];
-is $r.headers.join('|'), "Superhero|Secret Identity|Superpower";
-is $r.contents.elems, 4;
-is $r.contents[0].join('|'),
-   "The Shoveller|Eddie Stevens|King Arthur's singing shovel";
-is $r.contents[1].join('|'),
-   "Blue Raja|Geoffrey Smith|Master of cutlery";
-is $r.contents[2].join('|'),
-   "Mr Furious|Roy Orson|Ticking time bomb of fury";
-is $r.contents[3].join('|'),
-   "The Bowler|Carol Pinnsler|Haunted bowling ball";
-
-#---
-=table
-    X | O |
-   ---+---+---
-      | X | O
-   ---+---+---
-      |   | X
-#---
-
-$r = $=pod[$p++];
-is $r.contents.elems, 3;
-is $r.contents[0].join(','), 'X,O,';
-is $r.contents[1].join(','), ',X,O';
-is $r.contents[2].join(','), ',,X';
-
-# test for:
-#   RT #126740 - Pod::Block::Table node caption property is not populated properly
-# Note that the caption property is just one of the table's %config key/value
-# pairs so any tests for other config keys in a single table are usually the same as testing
-# multiple tables, each for one caption test.
-
-#---
-=begin table :caption<foo> :bar(0)
-=            :baz(2.3)
-
-foo
-bar
-
-=end table
-#---
-
-$r = $=pod[$p++];
-is $r.contents.elems, 2;
-is $r.caption, "foo";
-is $r.config<bar>, "0";
-is $r.config<baz>, "2.3";

package/t/fixtures-src/08-formattingcodes.t

@@ -1,104 +0,0 @@
-use v6;
-use Test;
-plan 43;
-
-my $r;
-
-#---
-=pod
-B<I am a formatting code>
-#---
-
-$r = $=pod[0].contents[0].contents[0];
-isa-ok $r, Pod::FormattingCode;
-is $r.type, 'B';
-is $r.contents[0], 'I am a formatting code', 'a single FC becomes a single FC';
-
-#---
-=pod
-The basic C<ln> command is: C<ln> B<R<source_file> R<target_file>>
-#---
-
-$r = $=pod[1].contents[0].contents;
-is $r[0], 'The basic ';
-isa-ok $r[1], Pod::FormattingCode;
-is $r[1].type, 'C';
-is $r[1].contents, 'ln';
-is $r[2], ' command is: ';
-isa-ok $r[3], Pod::FormattingCode;
-is $r[3].type, 'C';
-is $r[3].contents, 'ln';
-isa-ok $r[5], Pod::FormattingCode;
-is $r[4], " ";
-is $r[5].type, 'B';
-$r = $r[5].contents;
-isa-ok $r[0], Pod::FormattingCode;
-is $r[0].type, 'R';
-is $r[0].contents, 'source_file';
-is $r[1], ' ';
-isa-ok $r[2], Pod::FormattingCode;
-is $r[2].type, 'R';
-is $r[2].contents, 'target_file';
-
-#---
-=pod
-L<C<b>|a>
-L<C<b>|a>
-#---
-
-$r = $=pod[2].contents[0].contents;
-for $r[0], $r[2] -> $link {
-    is $link.type, 'L';
-    isa-ok $link.contents[0], Pod::FormattingCode;
-    is $link.contents[0].contents, 'b';
-    is $link.meta, '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.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];
-
-#---
-=pod V<C<boo> B<bar> asd>
-#---
-
-$r = $=pod[4];
-is $r.contents[0].contents, 'C<boo> B<bar> asd';
-
-# RT #114510
-=pod C< infix:<+> >
-=pod C<< infix:<+> >>
-
-for @$=pod[5, 6] {
-    is .contents[0].contents[0].contents[0], "infix:<+> ", "Can parse nested angles in formatting codes"
-}
-
-=pod B< < B<foo> > >
-
-
-$r = $=pod[7];
-is $r.contents[0].contents[0].contents[1].contents[0], 'foo','FC inside balanced <>';
-
-# vim: ft=perl6