diff --git a/lib/modules/Stdio.pmod/testsuite.in b/lib/modules/Stdio.pmod/testsuite.in
index 46929dc0e1dbfdda65d31a468aa49d990e64f568..c24710466e85df8f9dee0c59d9b647a523ff0791 100644
--- a/lib/modules/Stdio.pmod/testsuite.in
+++ b/lib/modules/Stdio.pmod/testsuite.in
@@ -110,3 +110,17 @@ lambda()
 ]],({"hej","hopp","gazonk"}))
 
 test_true(rm("testsuite.tmp"))
+
+// Stdio.FakeFile
+
+test_eq( Stdio.FakeFile("abc")->read(600), "abc" )
+test_any([[
+  object x=Stdio.FakeFile("abc");
+  x->read(600);
+  return x->read(600);
+]], "")
+test_any([[
+  object x=Stdio.FakeFile("abc");
+  x->read(2);
+  return x->read(2);
+]], "c")