blob: f245e14abc4ead7f6063dd9dc836ee68bcce5295 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
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
|