QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-16 19:04:45 +00:00
Code Issues Releases Wiki Activity

Add error handler to test

Browse source
This commit is contained in:
Samuel Gomes 2024-07-21 20:27:56 +05:30
parent 34a6bdc2ce
commit 5ede639a64
1 changed files with 31 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
tests/compile_tests/image/curico_test.bas
View file

@ -7,6 +7,8 @@ CONST ICON_DIR = "./icons/"
CONST TEST_FILE_FORMAT = "bmp"
CONST TOLERANCE_LIMIT = 0
ON ERROR GOTO error_handler
RESTORE file_list
DIM fileName AS STRING: READ fileName
@ -18,32 +20,36 @@ LOOP WHILE LEN(fileName)
SYSTEM
error_handler:
PRINT "Error: "; _ERRORMESSAGE$; " at line line"; _ERRORLINE
SYSTEM
file_list:
DATA 1bpp.ico
DATA 24bpp.ico
DATA 4bpp.cur
DATA 4bpp.ico
DATA 8bpp.ico
DATA 8bpp.cur
DATA bard.ico
DATA broom.ico
DATA cat.ico
DATA computer.ico
DATA dumb1.ico
DATA dumb2.ico
DATA pencil.ico
DATA please_wait.ico
DATA question.ico
DATA really_huge_duck.ico
DATA sample3.ico
DATA sample4.ico
DATA soft_drink.ico
DATA taco.ico
DATA terra_globe.ico
DATA thumbs_up.ico
DATA volme_dialog.ico
DATA word-icon.ico
DATA x.ico
DATA "1bpp.ico"
DATA "24bpp.ico"
DATA "4bpp.cur"
DATA "4bpp.ico"
DATA "8bpp.ico"
DATA "8bpp.cur"
DATA "bard.ico"
DATA "broom.ico"
DATA "cat.ico"
DATA "computer.ico"
DATA "dumb1.ico"
DATA "dumb2.ico"
DATA "pencil.ico"
DATA "please_wait.ico"
DATA "question.ico"
DATA "really_huge_duck.ico"
DATA "sample3.ico"
DATA "sample4.ico"
DATA "soft_drink.ico"
DATA "taco.ico"
DATA "terra_globe.ico"
DATA "thumbs_up.ico"
DATA "volme_dialog.ico"
DATA "word-icon.ico"
DATA "x.ico"
DATA ""
SUB PrintImageDetails (handle AS LONG, testFileName AS STRING)