diff --git a/tests/test-langs.rkt b/tests/test-langs.rkt
index 348b867..cf9fa12 100644
--- a/tests/test-langs.rkt
+++ b/tests/test-langs.rkt
@@ -1,5 +1,5 @@
 #lang racket/base
-(require rackunit)
+(require rackunit racket/port racket/system)
 
 
 (module test-default pollen
@@ -32,3 +32,11 @@
 (check-equal? ptree:doc '(pagetree-root (index (brother sister))))
 
 
+(define (run file)
+  (with-output-to-string (λ() (system (format "racket ~a" file)))))
+
+(check-equal? (run "test.ptree") "'(pagetree-root test ====)")
+(check-equal? (run "test.html.pm") "'(root \"test\" \"\\n\" \"====\")")
+(check-equal? (run "test.html.pmd") "'(root (h1 ((id \"test\")) \"test\"))")
+(check-equal? (run "test.html.pp") "test\n====")
+(check-equal? (run "test.no-ext") "test\n====")
diff --git a/tests/test.html.pm b/tests/test.html.pm
new file mode 100644
index 0000000..4cec105
--- /dev/null
+++ b/tests/test.html.pm
@@ -0,0 +1,4 @@
+#lang pollen
+
+test
+====
\ No newline at end of file
diff --git a/tests/test.html.pmd b/tests/test.html.pmd
new file mode 100644
index 0000000..4cec105
--- /dev/null
+++ b/tests/test.html.pmd
@@ -0,0 +1,4 @@
+#lang pollen
+
+test
+====
\ No newline at end of file
diff --git a/tests/test.html.pp b/tests/test.html.pp
new file mode 100644
index 0000000..4cec105
--- /dev/null
+++ b/tests/test.html.pp
@@ -0,0 +1,4 @@
+#lang pollen
+
+test
+====
\ No newline at end of file
diff --git a/tests/test.no-ext b/tests/test.no-ext
new file mode 100644
index 0000000..4cec105
--- /dev/null
+++ b/tests/test.no-ext
@@ -0,0 +1,4 @@
+#lang pollen
+
+test
+====
\ No newline at end of file
diff --git a/tests/test.ptree b/tests/test.ptree
new file mode 100644
index 0000000..4cec105
--- /dev/null
+++ b/tests/test.ptree
@@ -0,0 +1,4 @@
+#lang pollen
+
+test
+====
\ No newline at end of file