diff options
Diffstat (limited to 'basic/qa/basic_coverage/test_tdf132388_ReplacePerformance.bas')
| -rw-r--r-- | basic/qa/basic_coverage/test_tdf132388_ReplacePerformance.bas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/basic/qa/basic_coverage/test_tdf132388_ReplacePerformance.bas b/basic/qa/basic_coverage/test_tdf132388_ReplacePerformance.bas index 8fcdd06e0773..531cdec5c622 100644 --- a/basic/qa/basic_coverage/test_tdf132388_ReplacePerformance.bas +++ b/basic/qa/basic_coverage/test_tdf132388_ReplacePerformance.bas @@ -14,14 +14,14 @@ End Function Sub TestReplacePerformance() On Error GoTo errorHandler - ' Assume the normal case to be much faster than 20 s even on slow boxes, and the test string + ' Assume the normal case to be much faster than 60 s even on slow boxes, and the test string ' is long enough to cause serious performance regressions make it perform much longer n = 10000000 s = Space(n) t = Now s = Replace(s, " ", "*", 1, -1, 1) t = Now - t - TestUtil.Assert(t <= TimeSerial(0, 0, 20), "TestReplacePerformance", Format(t, """t = ""[s]"" s""")) + TestUtil.Assert(t <= TimeSerial(0, 1, 0), "TestReplacePerformance", Format(t, """t = ""[s]"" s""")) Exit Sub errorHandler: TestUtil.ReportErrorHandler("TestReplacePerformance", Err, Error$, Erl) |