diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-22 07:39:30 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-22 07:39:30 -0700 |
| commit | b9db5d41cbf4ef8fe1c07bf0f43e01e42e632702 (patch) | |
| tree | 02c3dd2be0c79ca84c20a75abc12f8bcb4f220ed /tests | |
| parent | 27ece3ffc30437f4a70228b96764e306bd5ed4f1 (diff) | |
| download | txr-b9db5d41cbf4ef8fe1c07bf0f43e01e42e632702.tar.gz txr-b9db5d41cbf4ef8fe1c07bf0f43e01e42e632702.tar.bz2 txr-b9db5d41cbf4ef8fe1c07bf0f43e01e42e632702.zip | |
lib: rmismatch tests and bugfix.
* lib.c (rmismatch): when left is an empty string or
vector, and right is nil: we must return -1 not zero.
* tests/012/seq.tl: More rmismatch tests.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/seq.tl | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 936dc8c9..23971c97 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -120,6 +120,45 @@ (rmismatch #(2 1) #(3 2 1)) -3) (mtest + (rmismatch '() '()) nil + (rmismatch '(1) '()) -1 + (rmismatch '() '(1)) -1 + (rmismatch '(1) '(1)) nil + (rmismatch '(1 2) '(1 2)) nil + (rmismatch '(2 2) '(1 2)) -2 + (rmismatch '(1 2) '(2 2)) -2 + (rmismatch '(3 2 1) '(1 1)) -2 + (rmismatch '(1 1) '(3 2 1)) -2 + (rmismatch '(3 2 1) '(2 1)) -3 + (rmismatch '(2 1) '(3 2 1)) -3) + +(mtest + (rmismatch '() #()) nil + (rmismatch '(1) #()) -1 + (rmismatch '() #(1)) -1 + (rmismatch '(1) #(1)) nil + (rmismatch '(1 2) #(1 2)) nil + (rmismatch '(2 2) #(1 2)) -2 + (rmismatch '(1 2) #(2 2)) -2 + (rmismatch '(3 2 1) #(1 1)) -2 + (rmismatch '(1 1) #(3 2 1)) -2 + (rmismatch '(3 2 1) #(2 1)) -3 + (rmismatch '(2 1) #(3 2 1)) -3) + +(mtest + (rmismatch #() '()) nil + (rmismatch #(1) '()) -1 + (rmismatch #() '(1)) -1 + (rmismatch #(1) '(1)) nil + (rmismatch #(1 2) '(1 2)) nil + (rmismatch #(2 2) '(1 2)) -2 + (rmismatch #(1 2) '(2 2)) -2 + (rmismatch #(3 2 1) '(1 1)) -2 + (rmismatch #(1 1) '(3 2 1)) -2 + (rmismatch #(3 2 1) '(2 1)) -3 + (rmismatch #(2 1) '(3 2 1)) -3) + +(mtest (rmismatch "" "") nil (rmismatch "1" "") -1 (rmismatch "" "1") -1 |