Added some tests on replace() with wide-strings.

Rev: src/testsuite.in:1.164

src/testsuite.in

-stest_true([["$Id: testsuite.in,v 1.163 1999/03/20 22:24:13 hubbe Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.164 1999/03/30 13:34:17 grubba Exp $"]])
 cond([[all_constants()->_verify_internals]],
 [[
   test_do(_verify_internals())
@@ -2697,6 +2697,9 @@ test_eq(replace("f--barf--",({"f--bar","f--"}),({"f--","f--bar"})),"f--f--bar")
 test_eq(replace("test\ntest\n\ntest\ntest",({"\n","\n\n"}),({" ","<p>"})),"test test<p>test test")
 test_eq(replace("test\ntest\n\ntest\ntest",({"\n\n","\n"}),({"<p>"," "})),"test test<p>test test")
 
+test_eq("123\000456""890"-"\0", "123\456""890")
+test_eq("123\456000""890"-"\0", "123\456000""890")
+
 test_any([[
 function reference=lambda(string x, string *a, string *b)
 {