forked from amazingfate/loongoffice
9258f7009e
Change-Id: I4ff8a8dc855da2c60084318e067d4ec8149d055e Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118330 Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org> Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com> Tested-by: Jenkins
23 lines
614 B
QBasic
23 lines
614 B
QBasic
Option Explicit
|
|
|
|
Function doUnitTest As String
|
|
' Trying to create too long string should generate proper BASIC overflow error.
|
|
' Longest possible string is 2147483638 wchar_t (2G - 10).
|
|
' This tries to create string with 2G wchar_t. If it does not overflow, test fails.
|
|
' If overflow is not safe, it segfaults.
|
|
On Error GoTo errorHandler
|
|
Dim s As String, i As Integer
|
|
s = "0"
|
|
For i=1 To 31
|
|
s = s & s
|
|
Next i
|
|
doUnitTest = "FAIL"
|
|
Exit Function
|
|
errorHandler:
|
|
If ( Err <> 6 ) Then
|
|
doUnitTest = "FAIL"
|
|
Else
|
|
doUnitTest = "OK"
|
|
Endif
|
|
End Function
|