Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 17 lines (9 sloc) 528 Bytes
#!/usr/bin/env perl6
use lib 'lib';
use Test;
use Flower::TAL;
plan 1;
my $xml = '<?xml version="1.0"?>';
my $template = '<test><escaped tal:content="string"/><unescaped tal:content="structure string"/></test>';
my $tal = Flower::TAL.new();
is ~$tal.parse($template, string=>'hello to you & your friend, "how are you?"'), $xml~'<test><escaped>hello to you &amp; your friend, &quot;how are you?&quot;</escaped><unescaped>hello to you & your friend, "how are you?"</unescaped></test>', 'XML escapes and structure keyword';