### ----------------------------------------------------
### -- Raku::Pod::Render
### -- Licenses: Artistic-2.0
### -- Authors: Richard Hainsworth
### -- File: t-legacy/060-table.rakutest
### ----------------------------------------------------
use Test; # -*- mode: perl6 -*-
use Pod::To::HTML2;

plan 4;

my $r;

=table 
  col1  col2

$r = pod2html $=pod[0];
#say $r.perl;
ok $r ~~ ms[[
    '<table class="pod-table">'
      '<tbody>'
        '<tr>'
          '<td>' col1 '</td>'
          '<td>' col2 '</td>'
        '</tr>'
      '</tbody>'
    '</table>'
]];

=table
  H1    H2
  --    --
  col1  col2

$r = pod2html $=pod[1];
#say $r.perl;
ok $r ~~ ms[[
    '<table class="pod-table">'
      '<thead>'
        '<tr>'
          '<th>' H1 '</th>'
          '<th>' H2 '</th>'
        '</tr>'
      '</thead>'
      '<tbody>'
        '<tr>'
          '<td>' col1 '</td>'
          '<td>' col2 '</td>'
        '</tr>'
      '</tbody>'
    '</table>'
]];


=begin table :class<sorttable>

  H1    H2
  --    --
  col1  col2

  col1  col2

=end table

$r = pod2html $=pod[2];
#say $r.perl;
ok $r ~~ ms[[
    '<table class="pod-table sorttable">'
      '<thead>'
        '<tr>'
          '<th>' H1 '</th>'
          '<th>' H2 '</th>'
        '</tr>'
      '</thead>'
      '<tbody>'
        '<tr>'
          '<td>' col1 '</td>'
          '<td>' col2 '</td>'
        '</tr>'
        '<tr>'
          '<td>' col1 '</td>'
          '<td>' col2 '</td>'
        '</tr>'
      '</tbody>'
    '</table>'
]];

=begin table :caption<Test Caption>

  H1    H2
  --    --
  col1  col2

=end table

$r = pod2html $=pod[3];
# say $r;
ok $r ~~ ms[[
    '<table class="pod-table">'
      '<caption>' 'Test Caption' '</caption>'
      '<thead>'
        '<tr>'
          '<th>' H1 '</th>'
          '<th>' H2 '</th>'
        '</tr>'
      '</thead>'
      '<tbody>'
        '<tr>'
          '<td>' col1 '</td>'
          '<td>' col2 '</td>'
        '</tr>'
      '</tbody>'
    '</table>'
]];


