Skip to content

Commit

Permalink
Revert "add tests for fix for RT #126740"
Browse files Browse the repository at this point in the history
  • Loading branch information
AlexDaniel committed Dec 4, 2017
1 parent 551a7ff commit 4d11359
Showing 1 changed file with 6 additions and 13 deletions.
19 changes: 6 additions & 13 deletions S26-documentation/07-tables.t
Expand Up @@ -3,7 +3,7 @@ use Test;
my $r;
my $p = 0; # use as an index for the pod chunks

plan 40;
plan 34;

=begin table
The Shoveller Eddie Stevens King Arthur's singing shovel
Expand Down Expand Up @@ -117,19 +117,12 @@ is $r.contents[0].join(','), 'X,O,';
is $r.contents[1].join(','), ',X,O';
is $r.contents[2].join(','), ',,X';

# this file also tests fixes for:
# RT #126740 - Pod::Block::Table node caption property is not populated properly
# RT #126742 - config items should not include quotes for string values
# RT #130477 - Pod config parses colopairs but simply stringifies whatever it matched
=begin table :caption("Foo") :foo('meow') :bar<meow> :ber(Q|foos|) :var(join "\n", <a b c>) :bar2<"meow">
=begin table
foo
bar
=end table

$r = $=pod[$p++];
is $r.contents.elems, 1;
is $r.caption, "Foo";
is $r.config<foo>, "meow";
is $r.config<bar>, "meow";
is $r.config<ber>, "foos";
is $r.config<var>, "join \"\\n\", <a b c>";
is $r.config<bar2>, "meow";
is $r.contents.elems, 2;

0 comments on commit 4d11359

Please sign in to comment.