From 1c32dcfc71181ddcdca548029d1f02e86401c0c4 Mon Sep 17 00:00:00 2001 From: Oldes Date: Wed, 19 Aug 2020 12:21:09 +0200 Subject: [PATCH] TEST: https://github.com/Oldes/Rebol-issues/issues/857 --- src/tests/units/series-test.r3 | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/tests/units/series-test.r3 b/src/tests/units/series-test.r3 index 7975ec09f8..8a8a67f3cc 100644 --- a/src/tests/units/series-test.r3 +++ b/src/tests/units/series-test.r3 @@ -361,6 +361,7 @@ Rebol [ ===start-group=== "PICK" ;@@ https://github.com/Oldes/Rebol-issues/issues/608 + ;@@ https://github.com/Oldes/Rebol-issues/issues/857 --test-- "PICK of block!" b: [1 2 3] --assert all [ @@ -378,7 +379,11 @@ Rebol [ 2 = pick b -1 1 = pick b -2 ] - + --assert all [ + none? pick tail b 0 + 3 = pick tail b -1 + ] + --test-- "PICK of string!" s: "123" --assert all [ @@ -396,6 +401,10 @@ Rebol [ #"2"= pick s -1 #"1"= pick s -2 ] + --assert all [ + none? pick tail s 0 + #"3"= pick tail s -1 + ] ===end-group===