diff --git a/tests/resources/read-insert.lisp b/tests/resources/read-insert.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..cae19a492a74b6130cd6c704be71d22d0d5d6a68
--- /dev/null
+++ b/tests/resources/read-insert.lisp
@@ -0,0 +1,11 @@
+(in-package :cl-haml)
+
+(defun read-haml-insert-line (stream &optional (eof-error-p nil)
+                                               (eof-value +eof+))
+  (list +haml+
+        (read-contents stream
+                       (read-options stream
+                                     eof-error-p
+                                     eof-value)
+                       eof-error-p
+                       eof-value)))