diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2026-02-17 07:57:38 -0600 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2026-02-17 07:59:08 -0600 |
| commit | fa0c039cd366605852386a7fa59b84ff6a9eeb19 (patch) | |
| tree | 23932d92193ddb9f23cfabb2fbbc259e1f9c4877 | |
| parent | Initialize memory allocated by put (#1715) (diff) | |
Add regression test for issue #1714
| -rw-r--r-- | test/suite-array.janet | 4 | ||||
| -rw-r--r-- | test/suite-buffer.janet | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/test/suite-array.janet b/test/suite-array.janet index b6c7954a..e3e8a0b3 100644 --- a/test/suite-array.janet +++ b/test/suite-array.janet @@ -86,5 +86,9 @@ (assert-error "array/join error 4" (array/join @[] "abc123")) (assert-error "array/join error 5" (array/join @[] "abc123")) +# Regression 1714 +(repeat 10 + (assert (deep= (put @[] 100 10) (put (seq [_ :range [0 101]] nil) 100 10)) "regression 1714")) + (end-suite) diff --git a/test/suite-buffer.janet b/test/suite-buffer.janet index b1362537..a0262bf9 100644 --- a/test/suite-buffer.janet +++ b/test/suite-buffer.janet @@ -179,5 +179,9 @@ (assert (= (string buf) "xxxxxx") "buffer/format-at negative index") (assert-error "expected index at to be in range [0, 0), got 1" (buffer/format-at @"" 1 "abc")) +# Regression 1714 +(repeat 10 + (assert (deep= (put @"" 100 10) (put (buffer (string/repeat "\0" 101)) 100 10)) "regression 1714")) + (end-suite) |