This commit includes tests for the following bugs:

  + RT #124403 - Table parsing broken in Rakudo
  + RT #128221 - Weird internal error when parsing some very simple pod...
  + RT #129862 - Pod::To::Text failing on uneven row lengths
  + RT #132341 - table handling should ensure table rows have the same number of cells...
  + RT #132348 - tables should accept an inline comment (Z<some comment>)

Note that this commit should only be used with Rakudo after incorporating its PR #1240.

Author: tbrowder

S26-documentation/07a-tables.t

@@ -4,7 +4,7 @@ use Test;
 my ($r, $p, $hdrs, @rows);
 $p = -1; # starting index for pod number
 
-plan 33;
+plan 37;
 
 # includes tests for fixes for RT bugs:
 #   124403 - incorrect table parse:
@@ -88,6 +88,7 @@ is $r.contents[1].elems, 3;
 is $r.contents[2].elems, 3;
 
 # test fix for RT #132341
+# also tests fix for RT #129862
 =table
     X   O
    ===========
@@ -106,6 +107,7 @@ is $r.contents[1].elems, 3;
 is $r.contents[2].elems, 3;
 
 # test fix for RT #132348 (allow inline Z comments)
+# also tests fix for RT #129862
 =begin table
 a | b | c
 l | m | n
@@ -116,3 +118,23 @@ is $r.contents.elems, 3;
 is $r.contents[0].join(','), 'a,b,c';
 is $r.contents[1].join(','), 'l,m,n';
 is $r.contents[2].join(','), 'x,y,';
+
+# a single column table, no headers
+=begin table
+a
+=end table
+
+$r = $=pod[++$p];
+is $r.headers.elems, 0;
+is $r.contents.elems, 1;
+
+# a single column table, with header
+=begin table
+b
+-
+a
+=end table
+
+$r = $=pod[++$p];
+is $r.headers.elems, 1;
+is $r.contents.elems, 1;

S26-documentation/07b-tables.t

@@ -3,17 +3,16 @@ use Test;
 
 plan 4;
 
-# test for the two fatal table failures
+# test for the two designed fatal table failures
 
-# empty table should cause an exception
+# empty tables should cause an exception
 my $table1 = qq:to/HERE/;
 =begin table
 =end table
 HERE
 
 my $table2 = qq:to/HERE/;
 =table
-
 HERE
 
 # consecutive row separators should cause an exception
@@ -32,7 +31,7 @@ my $table4 = qq:to/HERE/;
 4  5  6
 HERE
 
-eval-dies-ok $table1;
-eval-dies-ok $table2;
-eval-dies-ok $table3;
-eval-dies-ok $table4;
+eval-dies-ok $table1, "dies-ok, empty table";
+eval-dies-ok $table2, "dies-ok, empty table";
+eval-dies-ok $table3, "dies-ok, consecutive row separators";
+eval-dies-ok $table4, "dies-ok, mixed ws and vis col separators";