ref: f7507b7782471014f77f5177ac76f8af6132be6a
dir: /macros/asserts.asm/
; Macros to verify assumptions about the data or code MACRO table_width DEF CURRENT_TABLE_WIDTH = \1 if _NARG == 2 REDEF CURRENT_TABLE_START EQUS "\2" else REDEF CURRENT_TABLE_START EQUS "._table_width\@" {CURRENT_TABLE_START}: endc ENDM MACRO assert_table_length DEF x = \1 assert x * CURRENT_TABLE_WIDTH == @ - {CURRENT_TABLE_START}, \ "{CURRENT_TABLE_START}: expected {d:x} entries, each {d:CURRENT_TABLE_WIDTH} bytes" ENDM MACRO list_start DEF list_index = 0 if _NARG == 1 REDEF CURRENT_LIST_START EQUS "\1" else REDEF CURRENT_LIST_START EQUS "._list_start\@" {CURRENT_LIST_START}: endc ENDM MACRO li assert !STRIN(\1, "@"), STRCAT("String terminator \"@\" in list entry: ", \1) db \1, "@" DEF list_index += 1 ENDM MACRO assert_list_length DEF x = \1 assert x == list_index, \ "{CURRENT_LIST_START}: expected {d:x} entries, got {d:list_index}" ENDM MACRO def_grass_wildmons ;\1: map id REDEF CURRENT_GRASS_WILDMONS_MAP EQUS "\1" REDEF CURRENT_GRASS_WILDMONS_LABEL EQUS "._def_grass_wildmons_\1" {CURRENT_GRASS_WILDMONS_LABEL}: map_id \1 ENDM MACRO end_grass_wildmons assert GRASS_WILDDATA_LENGTH == @ - {CURRENT_GRASS_WILDMONS_LABEL}, \ "def_grass_wildmons {CURRENT_GRASS_WILDMONS_MAP}: expected {d:GRASS_WILDDATA_LENGTH} bytes" ENDM MACRO def_water_wildmons ;\1: map id REDEF CURRENT_WATER_WILDMONS_MAP EQUS "\1" REDEF CURRENT_WATER_WILDMONS_LABEL EQUS "._def_water_wildmons_\1" {CURRENT_WATER_WILDMONS_LABEL}: map_id \1 ENDM MACRO end_water_wildmons assert WATER_WILDDATA_LENGTH == @ - {CURRENT_WATER_WILDMONS_LABEL}, \ "def_water_wildmons {CURRENT_WATER_WILDMONS_MAP}: expected {d:WATER_WILDDATA_LENGTH} bytes" ENDM