From e6ff56a0417a69b8d2b64a9f5b3ee3b4401ee7f2 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Mon, 14 Apr 2003 14:53:51 +0200
Subject: [PATCH] A few FakeFile tests.
Rev: lib/modules/Stdio.pmod/testsuite.in:1.2
---
lib/modules/Stdio.pmod/testsuite.in | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/lib/modules/Stdio.pmod/testsuite.in b/lib/modules/Stdio.pmod/testsuite.in
index 46929dc0e1..c24710466e 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")
--
GitLab