--- t/99-old-test-pl.t.orig	Fri Jul  1 15:41:05 2005
+++ t/99-old-test-pl.t	Fri Jul  1 16:02:47 2005
@@ -801,6 +801,17 @@
 $output = $template->output();
 is($output, q{\\"He said \\'Hello\\'.\\n\\r\\"});
 
+# test WML escaping
+$template = HTML::Template->new(
+    scalarref => \(my $dummy = '<tmpl_var name=msg escape=wml>')
+);
+$template->param(
+    msg => q{My <friend name="$name" /> has got <b type='big heap'>lots</b> of $$$.}
+);
+$output = $template->output();
+is($output, 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 $$$$$$.});
+
 # test empty filename
 eval { $template = $template = HTML::Template->new(path => ['templates'],
                                                    filename => '');