From 4168feb6a0c4b33e94ab2e2119a4c3af18ecf89e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 24 Apr 1998 20:29:17 -0700
Subject: [PATCH] more tests

Rev: src/modules/files/testsuite.in:1.16
---
 src/modules/files/testsuite.in | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/src/modules/files/testsuite.in b/src/modules/files/testsuite.in
index b3aa004b0c..60c266fe76 100644
--- a/src/modules/files/testsuite.in
+++ b/src/modules/files/testsuite.in
@@ -82,6 +82,29 @@ dnl test_eq(Process.popen("echo foo"),"foo\n")
 test_true(rm("conftest"))
 test_eq(file_stat("conftest"),0)
 
+test_any(object o=clone(Stdio.File); return o->open("conftest","wac") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],1)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wa") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],2)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wac") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],3)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wa") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],4)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wa") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],5)
+test_any(object o=clone(Stdio.File); return o->open("conftest","war") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],6)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wrac") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],7)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wac") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],8)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wrac") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],9)
+test_any(object o=clone(Stdio.File); return o->open("conftest","wrac") && o->write("x") && o->close(),1)
+test_eq(file_stat("conftest")[1],10)
+test_true(rm("conftest"))
+test_eq(file_stat("conftest"),0)
+
 // - file_stat
 // - perror
 // - rm
-- 
GitLab