diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2026-02-06 00:04:18 -0600 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2026-02-06 00:04:18 -0600 |
| commit | ca5c617fba091e33d3fa0a4d4f24bc28c194a034 (patch) | |
| tree | 772ca0e5553885090f7fee81982d8b35aad653ca | |
| parent | Print "actual" output on verbose mode for suite-peg (diff) | |
More tweaks to peg suite for arm32 failures.
| -rw-r--r-- | src/core/pp.c | 2 | ||||
| -rw-r--r-- | test/suite-peg.janet | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/src/core/pp.c b/src/core/pp.c index 8c8b3884..80d745a1 100644 --- a/src/core/pp.c +++ b/src/core/pp.c @@ -897,7 +897,7 @@ void janet_formatbv(JanetBuffer *b, const char *format, va_list args) { case 's': case 'S': { const char *str = va_arg(args, const char *); - int32_t len = c[-1] == 's' + int32_t len = (c[-1] == 's') ? (int32_t) strlen(str) : janet_string_length((JanetString) str); if (form[2] == '\0') diff --git a/test/suite-peg.janet b/test/suite-peg.janet index 828acfbf..a3edaca4 100644 --- a/test/suite-peg.janet +++ b/test/suite-peg.janet @@ -857,7 +857,8 @@ (with-dyns [:err actual *err-color* true] (test name peg input expected-matches)) (when (os/getenv "VERBOSE") - (eprint actual)) + (eprint (describe actual)) + (eprint (describe expected-stderr))) (assert (deep= (string actual) expected-stderr))) (defn test-stderr-no-color [name peg input expected-matches expected-stderr] @@ -865,7 +866,8 @@ (with-dyns [:err actual *err-color* false] (test name peg input expected-matches)) (when (os/getenv "VERBOSE") - (eprint actual)) + (eprint (describe actual)) + (eprint (describe expected-stderr))) (assert (deep= (string actual) expected-stderr))) (test-stderr |