From 31da03bf14b133f20981c9b73f22e151521051de Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 17 Mar 1997 14:52:02 -0800
Subject: [PATCH] more tests for search()
Rev: src/testsuite.in:1.37
---
src/testsuite.in | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 5afde4940b..e29e531757 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.36 1997/03/12 12:15:28 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.37 1997/03/17 22:52:02 hubbe Exp $"]])
test_any([[class foo { constant x=17; }; class bar { inherit foo; constant x=18; }; return bar()->x;]],18)
test_program([[inline string foo(string s){ while(s[0] == ' ' || s[0] == '\t') s = s[1..]; return(s); } string a() { return foo(" bar"); }]])
test_true([[lambda(function f) {return 1;}(object_program(this_object()));]])
@@ -1619,6 +1619,8 @@ test_search($1,$2,$3)
test_search($1,$2+1,$3)
test_search($1,$2+2,$3)
test_search($1,$2+3,$3)
+test_search($1,$2+4,$3)
+test_search($1,$2+5,$3)
]])
define(test_search3,[[dnl
@@ -1629,11 +1631,13 @@ test_search2($1,100000,$2)
define(test_search4,[[dnl
test_search3($1,"+-*")
-test_search3($1,($1[0..strlen($1)-2]))
-test_search3($1,($1[1..0x7fffffff]))
+test_search3($1,($1[..strlen($1)-2]))
+test_search3($1,($1[..strlen($1)-3]))
+test_search3($1,($1[1..]))
]])
test_search4("SUNE")
+test_search4("kapit�l>")
test_search4("-------------------+")
test_search4("�-------------------")
test_search4(sprintf("%'argel-bargel glop-glyf?'2000n"))
--
GitLab