mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 14:00:17 +00:00
These tests were intended to be added by #171, but the Linux build was having problems. The issues with the build have since been resolved so the tests are getting added back in. Fixes: #173
22 lines
318 B
QBasic
22 lines
318 B
QBasic
Option _Explicit
|
|
$Console
|
|
$ScreenHide
|
|
_Dest _Console
|
|
|
|
' Try to open a non-existent file
|
|
Dim handle As Long
|
|
|
|
handle = _SndOpen("dummy.flac")
|
|
Print handle
|
|
If Not handle Then
|
|
Print "This failure was expected!"
|
|
End If
|
|
|
|
|
|
handle = _SndCopy(handle)
|
|
Print handle
|
|
If Not handle Then
|
|
Print "So was this!"
|
|
End If
|
|
|
|
System
|