view release on metacpan or  search on metacpan

t/19-more-template.t  view on Meta::CPAN

 
my $html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><td>1</td><td>rob</td><td>somewhere</td></tr><tr...
 
is($template->render, $html, "expected html");
 
ok($template->id->set_text('User Id'));
 
is($template->table->header_count, 3, "expected header count");
 
is($template->id->text, 'User Id', "expected header: User Id");
 
is($template->id->get_first_cell->text, '1', "expected header text");
 
is($template->id->get_first_cell->header->text, 'User Id', 'text cell header');
 
is($template->table->get_first_row->get_first_cell->text, '1', "first row first cell text: 1");
 
is($template->table->get_first_row->get_first_cell->header->text, 'User Id', "first row first cell header text, User Id");
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">User Id</th><th class="okay">name</th><th class="what">address</th></tr><tr><td>1</td><td>rob</td><td>somewhere</td></tr><...
 
is($template->render, $html, "expected html");
 
is($template->name->text, 'name', "expected header name");
 
is($template->name->class, 'okay', "expected class: some-class");
 
is($template->name->get_first_cell->text, 'rob', "expected header first cell text: rob");
 
is($template->name->get_first_cell->header->text, 'name', "cell header text");
 
is($template->table->get_first_row->get_cell(1)->text, 'rob', "first row first cell text: rob");
 
is($template->table->get_first_row->get_cell(1)->header->text, 'name', "first row first cell header text: name");
 
ok($template->name->set_text('User Name'));
ok($template->name->class('test'));
ok($template->name->id('test-id'));
ok($template->name->get_first_cell->set_text('Rex'));
 
is($template->name->text, 'User Name', "expected header name");
 
is($template->name->class, 'test', "expected class: test");
 
is($template->name->id, 'test-id', "expected id: test-id");
 
is($template->name->get_first_cell->text, 'Rex', "expected header first cell text: rob");
 
is($template->name->get_first_cell->header->text, 'User Name', "cell header text");
 
is($template->table->get_first_row->get_cell(1)->text, 'Rex', "first row first cell text: rob");
 
is($template->table->get_first_row->get_cell(1)->header->text, 'User Name', "first row first cell header text: name");
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">User Id</th><th class="test" id="test-id">User Name</th><th class="what">address</th></tr><tr><td>1</td><td>Rex</td><td>so...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::HeaderHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id"><a href="some/endpoint">id</a></th><th class="okay"><a href="some/endpoint">name</a></th><th class="what"><a href="some/en...
 
is($template->render, $html, "$html");
 
ok($template->id->set_text('User Id'), 'set id text');
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id"><a href="some/endpoint">User Id</a></th><th class="okay"><a href="some/endpoint">name</a></th><th class="what"><a href="so...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::HeaderHtmlCustom->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id"><a href="some/endpoint?sort=id">User Id</a></th><th class="okay"><a href="some/endpoint?sort=name">User Name</a></th><th c...
 
is($template->render, $html, "$html");
 
 
ok($template = t::Templates::OneHeaderHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id"><a href="some/endpoint?sort=id">User Id</a></th><th class="okay">User Name</th><th class="what">User Address</th></tr><tr>...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::SubHeaderHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id"><a href="some/endpoint?sort=id">User Id</a></th><th class="okay">User Name</th><th class="what"><a href="some/endpoint?sor...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::CaptionHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id"><a href="some/endpoint">table caption</a></caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><td>1</td><td>rob</td><...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::CaptionHtmlCustom->new());
 
$html = '<table><caption class="some-class" id="caption-id"><a href="www.somelinktosomethingspecial.com">table caption</a></caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><t...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::ArrCaptionHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id"><a href="www.somelinktosomethingspecial.com">table caption</a></caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><t...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::SubCaptionHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id"><a href="www.somelinktosomethingspecial.com">table caption</a></caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><t...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::RowHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><div><td>1</td><td>rob</td><td>somewhere</td></div>...
 
is($template->render, $html, "$html");
 
 
ok($template = t::Templates::ArrRowHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><div><a href="some/endpoint"><td>1</td><td>rob</td>...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::SubRowHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><div><a href="some/endpoint"><td>1</td><td>rob</td>...
 
is($template->render, $html, "$html");
 
 
ok($template = t::Templates::CellHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><div><td><span>1</span></td><td><span>rob</span></t...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::ArrCellHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><div><td><span><a href="some/endpoint">1</a></span>...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::SubCellHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><div><td><span><a href="some/endpoint">1</a></span>...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::HeaderCellHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id"><a href="some/endpoint">id</a></th><th class="okay"><a href="some/endpoint">name</a></th><th class="what"><a href="some/en...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::SubHeaderCellHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id"><a href="some/endpoint">id</a></th><th class="okay"><a href="some/endpoint">name</a></th><th class="what"><a href="some/en...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::RowCellHtml->new());
 
$html = '<table><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><div><td><span id="first-id">1</span></td><td><span...
 
is($template->render, $html, "$html");
 
my %hash = (
    id => '1',
    name => 'rob',
    address => 'thing',
);
 
my $data = [ ];
for ( 0 .. 1000 ) {
    $hash{counting} = $_;
    push @{ $data }, \%hash;
}
 
ok($template = t::Templates::BigData->new({ data => $data }));
 
is($template->table->row_count, '1001', "expected row count: 1001");
is($template->table->get_first_row->class, 'thing', "expected class: thing");
is($template->table->get_last_row->class, 'one_thousand_one', "expected class: one_thousand_one");
is($template->table->get_row(99)->class, 'hundred', "expected class: hundred");
is($template->table->get_row(149)->class, 'one_hundred_fifty', "expected class: one_hundred_fifty");
 
ok($template = t::Templates::TableStuff->new());
ok(my $t = $template->table);
 
is($t->class, "some-table-class", "okay table class");
is($t->id, "some-table-id", "okay table id");
 
$html = '<table class="some-table-class" id="some-table-id"><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><td>1</...
 
is($template->render, $html, "$html");
 
ok($template = t::Templates::TableInnerStuff->new());
 
$html = '<table class="some-table-class" id="some-table-id"><div><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><t...
 
ok($template = t::Templates::TableInnerSubStuff->new());
 
$html = '<table class="some-table-class" id="some-table-id"><div><caption class="some-class" id="caption-id">table caption</caption><tr><th class="some-class" id="something-id">id</th><th class="okay">name</th><th class="what">address</th></tr><tr><t...
 
is($template->render, $html, "$html");
 
##### OUTER HTML is going to need to be a thing at some point
 
done_testing();
 
1;