Perl6-Pugs/ext/WTemplate/t/basic.t
use v6-alpha;
use Test;
plan 3;
=pod
Very basic tests for WTemplate
=cut
#use_ok('WTemplate');
skip_rest "unreliable test results"; exit;
if eval('!("a" ~~ /a/)') { skip_rest "skipped tests - rules support appears to be missing"; exit }
my $template;
my %var;
$template='<server:text id="var" />';
%var{'var'} = 'value';
is($template.fill_with(%var), 'value', 'element replaced correctly');
$template='<server:repeater id="list"><server:text id="v" /></server:repeater>';
%var{'list'} = [{v => '1'}, {v => '2'}];
is($template.fill_with(%var), '12', 'block replaced correctly');