test append_inside

[catagits/HTML-Zoom.git] / t / actions.t

diff --git a/t/actions.t b/t/actions.t
index f369b13..03082bf 100644 (file)
--- a/t/actions.t
+++ b/t/actions.t
@@ -188,4 +188,12 @@ is(
   'replace w/inside'
 );
 
+($expect = $tmpl) =~ s/(?=<\/div>)/O HAI/;
+
+is(
+  run_for { $_->append_inside($ohai) },
+  $expect,
+  'append inside ok'
+);
+
 done_testing;