Help language development. Donate to The Perl Foundation

Template6 zef:raku-community-modules last updated on 2023-03-20

t/02-for.rakutest 
use Test;
use Template6;

plan 2;

my $t6 = Template6.new;
$t6.add-path: 't/templates';

my $wanted = "<html>
<head>
<title>For Test</title>
</head>
<body>
<ul>
<li>First</li>
<li>Second</li>
<li>Third</li>
</ul>
<ol>
<li>One</li>
<li>Two</li>
<li>Three</li>
</ol>
</body>
</html>
";

my @ul = 'First', 'Second', 'Third';
my @ol = 'One', 'Two', 'Three';

is $t6.process('for', :title<For Test>, :ul(@ul), :ol(@ol)), $wanted, 'Basic for statement.';

my $bobpiece = "<tr>
<td>bob\@smith.com</td>
<td>27</td>
</tr>
";

my $lisapiece = "<tr>
<td>lisa\@abbot.org</td>
<td>18</td>
</tr>
";

my $melissapiece = "<tr>
<td>melissa\@senstry.com</td>
<td>31</td>
</tr>
";


$wanted = rx{ "<html>
<head>
<title>For Hash Test</title>
</head>
<body>
<table>
<tr>
<th>Email</th>
<th>Age</th>
</tr>
" [
    | $bobpiece
        [ | $lisapiece $melissapiece
          | $melissapiece $lisapiece ]
    | $lisapiece
        [ | $bobpiece $melissapiece
          | $melissapiece $bobpiece ]
    | $melissapiece
        [ | $bobpiece $lisapiece
          | $lisapiece $bobpiece ]
  ]
"</table>
</body>
</html>
" };

my %users = %(
 
  '[email protected]'        => 27,
  '[email protected]'       => 18,
  '[email protected]' => 31,
);

ok $t6.process('for-hash', :title<For Hash Test>, :users(%users)) ~~ $wanted, 'For statement with hash.';

# vim: expandtab shiftwidth=4