QB64-PE/tests/compile_tests/console_only/libz.bas

$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
Add $CONSOLE:ONLY and libz tests 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. 2022-09-17 02:36:29 +00:00			`$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`