mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-03-02 22:09:49 +00:00
Code Issues 1 Releases Wiki Activity

Add regression test for issue #1714

Browse Source
This commit is contained in:
Calvin Rose
2026-02-17 07:57:38 -06:00
parent 78ef9d1733
commit fa0c039cd3
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/suite-array.janet
View File

@@ -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)

4
test/suite-buffer.janet
View File

@@ -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)