Increase RGBASM test coverage

This commit is contained in:
Rangi42
2025-08-13 10:56:32 -04:00
parent 92826a726a
commit 2bdf61da70
19 changed files with 94 additions and 18 deletions

View File

@@ -0,0 +1,3 @@
section "test", rom0
incbin "incbin-mg-noexist.bin", 0, 2
println "never reached"

View File

@@ -0,0 +1 @@
-MG

View File

@@ -0,0 +1,3 @@
section "test", rom0
incbin "incbin-mg-noexist.bin", 2
println "never reached"

View File

@@ -0,0 +1 @@
-MG

View File

@@ -0,0 +1,15 @@
opt Wno-unmapped-char
def s equs "Hello world!"
assert strin(#s, "l") == strfind(#s, "l") + 1
assert strrin(#s, "l") == strrfind(#s, "l") + 1
assert !strcmp(strsub(#s, 7), strslice(#s, 6))
assert !strcmp(strsub(#s, 7, 5), strslice(#s, 6, 11))
assert !strcmp(strsub(#s, strlen(#s), 1), strslice(#s, strlen(#s) - 1, strlen(#s)))
assert !strcmp(strsub(#s, 7, 999), strslice(#s, 6, 999))
assert !strcmp(charsub(#s, 12), strchar(#s, 11))
assert !strcmp(charsub(#s, -1), strchar(#s, -1))
assert !strcmp(charsub(#s, -999), strchar(#s, -999))
assert !strcmp(charsub(#s, 999), strchar(#s, 999))

View File

@@ -0,0 +1,32 @@
warning: `STRIN` is deprecated; use 0-indexed `STRFIND` instead [-Wobsolete]
at deprecated-functions.asm(4)
warning: `STRRIN` is deprecated; use 0-indexed `STRRFIND` instead [-Wobsolete]
at deprecated-functions.asm(5)
warning: `STRSUB` is deprecated; use 0-indexed `STRSLICE` instead [-Wobsolete]
at deprecated-functions.asm(7)
warning: `STRSUB` is deprecated; use 0-indexed `STRSLICE` instead [-Wobsolete]
at deprecated-functions.asm(8)
warning: `STRSUB` is deprecated; use 0-indexed `STRSLICE` instead [-Wobsolete]
at deprecated-functions.asm(9)
warning: `STRSUB` is deprecated; use 0-indexed `STRSLICE` instead [-Wobsolete]
at deprecated-functions.asm(10)
warning: STRSUB: Length too big: 999 [-Wbuiltin-args]
at deprecated-functions.asm(10)
warning: STRSLICE: Stop index 999 is past the end of the string [-Wbuiltin-args]
at deprecated-functions.asm(10)
warning: `CHARSUB` is deprecated; use 0-indexed `STRCHAR` instead [-Wobsolete]
at deprecated-functions.asm(12)
warning: `CHARSUB` is deprecated; use 0-indexed `STRCHAR` instead [-Wobsolete]
at deprecated-functions.asm(13)
warning: `CHARSUB` is deprecated; use 0-indexed `STRCHAR` instead [-Wobsolete]
at deprecated-functions.asm(14)
warning: CHARSUB: Position starts at 1 [-Wbuiltin-args]
at deprecated-functions.asm(14)
warning: STRCHAR: Index starts at 0 [-Wbuiltin-args]
at deprecated-functions.asm(14)
warning: `CHARSUB` is deprecated; use 0-indexed `STRCHAR` instead [-Wobsolete]
at deprecated-functions.asm(15)
warning: CHARSUB: Position 999 is past the end of the string [-Wbuiltin-args]
at deprecated-functions.asm(15)
warning: STRCHAR: Index 999 is past the end of the string [-Wbuiltin-args]
at deprecated-functions.asm(15)

View File

@@ -4,7 +4,9 @@ PUSHS
SECTION "test", WRAM0
UNION
INCLUDE "does not exist"
/*
ENDU
POPS
POPO
POPC
*/

View File

@@ -0,0 +1,2 @@
def s equs readfile("readfile-mg-noexist.inc", $ff)
println "unreached"

View File

@@ -0,0 +1 @@
-MG

2
test/asm/readfile-mg.asm Normal file
View File

@@ -0,0 +1,2 @@
def s equs readfile("readfile-mg-noexist.inc")
println "unreached"

View File

@@ -0,0 +1 @@
-MG