--- t/10escape.t.orig	Tue Jan 17 15:54:38 2006
+++ t/10escape.t	Tue Jan 17 15:54:44 2006
@@ -1,4 +1,4 @@
-use Test::More tests => 5;
+use Test::More tests => 6;
 use HTML::Template::JIT;
 my $debug = 0;
 
@@ -57,3 +57,16 @@
 $template->param(STUFF => "\xf4"); #"
 $output = $template->output;
 like($output, qr/%F4/); #"
+
+# test WML escaping
+$template = HTML::Template::JIT->new(
+                                     filename => 'wmlescape.tmpl',
+                                     path => ['t/templates'],
+                                     jit_path => 't/jit_path',
+                                     jit_debug => $debug,
+                                    );
+$template->param(STUFF => q{My <friend name="$name" /> has got <b type='big heap'>lots</b> of $$$.});
+$output = $template->output;
+$res = q{My &lt;friend name=&quot;$$name&quot; /&gt; has got }
+    . q{&lt;b type=&#39;big heap&#39;&gt;lots&lt;/b&gt; of $$$$$$.};
+like($output, qr/\Q$res/);