mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-04 11:10:15 +00:00
libz tests were missing, I added one to test the libz dependency. Additionally $CONSOLE:ONLY creates many weird interactions and is currently broken in some cases. This adds tests for all the dependencies that can work with $CONSOLE:ONLY to verify that they compile correctly.
18 lines
289 B
QBasic
18 lines
289 B
QBasic
$CONSOLE:ONLY
|
|
_DEST _CONSOLE
|
|
|
|
PRINT HexString$(_DEFLATE$("this is a test"))
|
|
SYSTEM
|
|
|
|
Function HexString$(s As String)
|
|
Dim ret As String
|
|
|
|
For i = 1 To Len(s)
|
|
Dim h As String
|
|
h = Hex$(Asc(s, i))
|
|
If Len(h) = 1 Then h = "0" + h
|
|
ret = ret + h
|
|
Next
|
|
|
|
HexString$ = ret
|
|
End Function
|