QB64-PE/tests/compile_tests/http/invalid_url.bas

$Unstable:Http
$Console:Only
ON ERROR GOTO errorhand

' This domain isn't valid at all, an error is triggered
h& = _OpenClient("HTTP:NotARealURL")
Print h&

' Only HTTP URLs are supported, an error is triggered
h& = _OpenClient("HTTP:ftp://example.com")
Print h&

System

errorhand:
PRINT "Error:"; ERR; ", Line:"; _ERRORLINE
RESUME NEXT
Add basic http tests These tests cover basic HTTP functionality via _OPENCLIENT(), and also that it fails to work without `$Unstable:Http` in place. 2022-11-13 21:26:36 +00:00			`$Unstable:Http`
			`$Console:Only`
			`ON ERROR GOTO errorhand`

			`' This domain isn't valid at all, an error is triggered`
			`h& = _OpenClient("HTTP:NotARealURL")`
			`Print h&`

			`' Only HTTP URLs are supported, an error is triggered`
			`h& = _OpenClient("HTTP:ftp://example.com")`
			`Print h&`

			`System`

			`errorhand:`
_StatusCode() should give the correct error on invalid handle type Passing a handle of the invalid type (Ex. TCP) to _StatusCode should give error 52, but it gies error 9. 2022-11-20 09:32:35 +00:00			`PRINT "Error:"; ERR; ", Line:"; _ERRORLINE`
Add basic http tests These tests cover basic HTTP functionality via _OPENCLIENT(), and also that it fails to work without `$Unstable:Http` in place. 2022-11-13 21:26:36 +00:00			`RESUME NEXT`