mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-06-06 12:42:15 +00:00
Code Issues 1 Releases Wiki Activity

More tweaks to peg suite for arm32 failures.

Browse Source
This commit is contained in:
Calvin Rose
2026-02-06 00:04:18 -06:00
parent 16b449a137
commit ca5c617fba
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/core/pp.c
+1 -1
View File
@@ -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')
test/suite-peg.janet
+4 -2
View File
@@ -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