Merge pull request #363 from tbrowder/fix-table-caption-rt-126740

add tests for fix for RT #126740

S26-documentation/07-tables.t

@@ -3,7 +3,7 @@ use Test;
 my $r;
 my $p = 0; # use as an index for the pod chunks
 
-plan 34;
+plan 40;
 
 =begin table
         The Shoveller   Eddie Stevens     King Arthur's singing shovel
@@ -117,12 +117,19 @@ is $r.contents[0].join(','), 'X,O,';
 is $r.contents[1].join(','), ',X,O';
 is $r.contents[2].join(','), ',,X';
 
-=begin table
-
+# 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">
 foo
-bar
-
 =end table
 
 $r = $=pod[$p++];
-is $r.contents.elems, 2;
+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";