Avoid nonessential EQUS expansion in tests

This commit is contained in:
Rangi42
2025-09-06 13:30:01 -04:00
parent 94ed28acf8
commit c8a088f281
24 changed files with 68 additions and 57 deletions

View File

@@ -1,5 +1,5 @@
DEF VAL EQUS STRFMT("Hello %s! I am %d years old today!", "world", $f)
PRINTLN "{VAL}"
PRINTLN #VAL
DEF N = -42
PRINTLN STRFMT("signed %010d == unsigned %010u", N, N)
@@ -10,10 +10,10 @@ PRINTLN STRFMT("\tdb %#03{s:FMT} %% 26\t; %#03{FMT}", N, N % 26)
PRINTLN STRFMT("%d = %#x = %#b = %#o != %f", 42, 42, 42, 42, 42.0)
DEF TEMPLATE EQUS "\"%s are %s\\n\""
PRINT STRFMT(TEMPLATE, "roses", "red")
PRINT STRFMT(TEMPLATE, "violets", "blue")
PRINT STRFMT(TEMPLATE, "void", 0, "extra")
DEF TEMPLATE EQUS "%s are %s\n"
PRINT STRFMT(#TEMPLATE, "roses", "red")
PRINT STRFMT(#TEMPLATE, "violets", "blue")
PRINT STRFMT(#TEMPLATE, "void", 0, "extra")
PRINTLN STRCAT(STRFMT(STRFMT("%%%s.%d%s", "", 9, "f"), 3.14159), \
STRFMT(" ~ %s", STRFMT("%s%x", "thr", 238)))