squilu/discount/tests/tables.t

. tests/functions.sh

title "tables"

rc=0
MARKDOWN_FLAGS=

try 'single-column table' \
    '|hello
|-----
|sailor' \
    '<table>
<thead>
<tr>
<th>hello</th>
</tr>
</thead>
<tbody>
<tr>
<td>sailor</td>
</tr>
</tbody>
</table>'


try 'two-column table' \
    '
  a  |  b
-----|------
hello|sailor' \
    '<table>
<thead>
<tr>
<th>a  </th>
<th>  b</th>
</tr>
</thead>
<tbody>
<tr>
<td>hello</td>
<td>sailor</td>
</tr>
</tbody>
</table>'

try 'three-column table' \
'a|b|c
-|-|-
hello||sailor'\
    '<table>
<thead>
<tr>
<th>a</th>
<th>b</th>
<th>c</th>
</tr>
</thead>
<tbody>
<tr>
<td>hello</td>
<td></td>
<td>sailor</td>
</tr>
</tbody>
</table>'

try 'two-column table with empty cells' \
    '
  a  |  b
-----|------
hello|
     |sailor' \
    '<table>
<thead>
<tr>
<th>a  </th>
<th>  b</th>
</tr>
</thead>
<tbody>
<tr>
<td>hello</td>
<td></td>
</tr>
<tr>
<td></td>
<td>sailor</td>
</tr>
</tbody>
</table>'

try 'two-column table with alignment' \
    '
  a  |  b
----:|:-----
hello|sailor' \
    '<table>
<thead>
<tr>
<th style="text-align:right;">a  </th>
<th style="text-align:left;">  b</th>
</tr>
</thead>
<tbody>
<tr>
<td style="text-align:right;">hello</td>
<td style="text-align:left;">sailor</td>
</tr>
</tbody>
</table>'
    
try 'table with extra data column' \
    '
  a  |  b
-----|------
hello|sailor|boy' \
    '<table>
<thead>
<tr>
<th>a  </th>
<th>  b</th>
</tr>
</thead>
<tbody>
<tr>
<td>hello</td>
<td>sailor|boy</td>
</tr>
</tbody>
</table>'


try -fnotables 'tables with -fnotables' \
    'a|b
-|-
hello|sailor' \
    '<p>a|b
-|-
hello|sailor</p>'

try 'deceptive non-table text' \
    'a | b | c

text' \
    '<p>a | b | c</p>

<p>text</p>'

try 'table headers only' \
    'a|b|c
-|-|-' \
    '<p>a|b|c
-|-|-</p>'

try 'escaped title line' \
    'A\|B
--|-
C |D' \
    '<table>
<thead>
<tr>
<th>A|B</th>
</tr>
</thead>
<tbody>
<tr>
<td>C |D</td>
</tr>
</tbody>
</table>'


try 'escaped dashes line' \
    'A |B
-\|-
C |D' \
    '<p>A |B
-|-
C |D</p>'

try 'escaped content line' \
    'A |B
--|-
C\|D' \
    '<table>
<thead>
<tr>
<th>A </th>
<th>B</th>
</tr>
</thead>
<tbody>
<tr>
<td>C|D</td>
<td></td>
</tr>
</tbody>
</table>'

try 'content line w/o dashes' \
    'A |B
--|-
CD' \
    '<p>A |B
&ndash;|-
CD</p>'

try 'table followed by text' \
    '
A|B
-|-
C|D

foo?' \
'<table>
<thead>
<tr>
<th>A</th>
<th>B</th>
</tr>
</thead>
<tbody>
<tr>
<td>C</td>
<td>D</td>
</tr>
</tbody>
</table>


<p>foo?</p>'

try "table with flanking |'s" \
'
|A|B|
|-|-|
|D|C|' \
'<table>
<thead>
<tr>
<th>A</th>
<th>B</th>
</tr>
</thead>
<tbody>
<tr>
<td>D</td>
<td>C</td>
</tr>
</tbody>
</table>'

try "table with leading |'s and alignment" \
'|AA|BB|CC
|:-|::|-:
|aa|bb|cc' \
'<table>
<thead>
<tr>
<th style="text-align:left;">AA</th>
<th style="text-align:center;">BB</th>
<th style="text-align:right;">CC</th>
</tr>
</thead>
<tbody>
<tr>
<td style="text-align:left;">aa</td>
<td style="text-align:center;">bb</td>
<td style="text-align:right;">cc</td>
</tr>
</tbody>
</table>'


summary $0
exit $rc