From d3f6b8dfa8354e1b04fa3d6412361c96086054f5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Tue, 5 May 1998 18:07:04 -0700
Subject: [PATCH] more tests added
Rev: src/modules/files/testsuite.in:1.17
---
src/modules/files/testsuite.in | 81 ++++++++++++++++++++++++++++++++++
1 file changed, 81 insertions(+)
diff --git a/src/modules/files/testsuite.in b/src/modules/files/testsuite.in
index 60c266fe76..a253e3b39d 100644
--- a/src/modules/files/testsuite.in
+++ b/src/modules/files/testsuite.in
@@ -30,6 +30,87 @@ test_any(int e; object o=clone(Stdio.File); if(!o->open("conftest","wct")) retur
test_any(string s; object o=clone(Stdio.File); if(!o->open("conftest","r")) return "open"+o->errno(); s=o->read(9999999); if(!o->close()) return "close"+o->errno(); return s,sprintf("%'+-*'100000s",""))
+cond([[ Stdio.File()->proxy ]],
+[[
+ test_any([[string s; object o2,o3,o=Stdio.File(); if(!o->open("conftest","r")) return "open"+o->errno(); o2=Stdio.File(); o3=o2->pipe(); o2->proxy(o); destruct(o2); s=o3->read(100000); return s]],sprintf("%'+-*'100000s",""))
+ test_any([[string s; object o2,o3,o=Stdio.File(); if(!o->open("conftest","r")) return "open"+o->errno(); o2=Stdio.File(); o3=o2->pipe(); o2->proxy(o); destruct(o2); s=o3->read(9999999); return s]],sprintf("%'+-*'100000s",""))
+ test_any([[string s; object o2,o3,o=Stdio.File(); if(!o->open("conftest","r")) return "open"+o->errno(); o2=Stdio.File(); o3=o2->pipe(); o2->proxy(o); o2=0; s=o3->read(9999999); return s]],sprintf("%'+-*'100000s",""))
+
+test_any([[
+ object o2,o=Stdio.File(); o2=o->pipe();
+ object x2,x=Stdio.File(); x2=x->pipe();
+
+ x2->proxy(o);
+ x2=0;
+ switch(o2->write("test"))
+ {
+ case 4: break;
+ default: return "Write failed";
+ case 0: return "Write failed with errno "+o2->errno()+".\n";
+ }
+
+ o2=0;
+ return x->read() || ("errno:"+x->errno());
+]],"test")
+
+test_any([[
+ object o2,o=Stdio.File(); o2=o->pipe(Stdio.PROP_IPC);
+ object x2,x=Stdio.File(); x2=x->pipe();
+
+ x2->proxy(o);
+ x2=0;
+ switch(o2->write("test"))
+ {
+ case 4: break;
+ default: return "Write failed";
+ case 0: return "Write failed with errno "+o2->errno()+".\n";
+ }
+ o2=0;
+ return x->read() || ("errno:"+x->errno());
+]],"test")
+
+test_any([[
+ object o2,o=Stdio.File(); o2=o->pipe();
+ object x2,x=Stdio.File(); x2=x->pipe(Stdio.PROP_IPC);
+
+ x2->proxy(o);
+ x2=0;
+ switch(o2->write("test"))
+ {
+ case 4: break;
+ default: return "Write failed";
+ case 0: return "Write failed with errno "+o2->errno()+".\n";
+ }
+ o2=0;
+ return x->read() || ("errno:"+x->errno());
+]],"test")
+
+test_any([[
+ object o2,o=Stdio.File(); o2=o->pipe(Stdio.PROP_IPC);
+ object x2,x=Stdio.File(); x2=x->pipe(Stdio.PROP_IPC);
+
+ x2->proxy(o);
+ x2=0;
+ switch(o2->write("test"))
+ {
+ case 4: break;
+ default: return "Write failed";
+ case 0: return "Write failed with errno "+o2->errno()+".\n";
+ }
+ o2=0;
+ return x->read() || ("errno:"+x->errno());
+]],"test")
+
+]])
+
+
+test_any([[object o,o2=Stdio.File(); o=o2->pipe(); destruct(o2); return o->read()]],"")
+test_any([[object o,o2=Stdio.File(); o=o2->pipe(); o2=0; return o->read()]],"")
+
+test_any([[object o,o2=Stdio.File(); o=o2->pipe(Stdio.PROP_IPC); destruct(o); return o2->read() || ("error:"+o2->errno())]],"")
+test_any([[object o,o2=Stdio.File(); o=o2->pipe(Stdio.PROP_IPC); o=0; return o2->read() || ("error:"+o2->errno())]],"")
+
+
// - file->seek
// - file->tell
test_any(object o=clone(Stdio.File); return o->open("conftest","r") && o->read(4711) && o->tell() == 4711 && o->close(),1)
--
GitLab