From 677348bb77cabe5c9667e2ba35b9efe5bf8dcc79 Mon Sep 17 00:00:00 2001 From: Oldes Huhuman Date: Fri, 17 May 2024 17:07:44 +0200 Subject: [PATCH] TEST: https://github.com/Oldes/Rebol-issues/issues/1158 (using `/dup` refine with `append/insert` action on `map!` now throws an error) --- src/tests/units/map-test.r3 | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/src/tests/units/map-test.r3 b/src/tests/units/map-test.r3 index ad61ac4c04..7b190f4384 100644 --- a/src/tests/units/map-test.r3 +++ b/src/tests/units/map-test.r3 @@ -89,12 +89,14 @@ Rebol [ --assert 1 = length? m --assert 1 = length? append/part m [b 2] 0 --assert 2 = length? append/part m [b 2] 2 - --assert 2 = length? append/dup m [c 3] 0 - --assert 3 = length? append/dup m [c 3] 1 - --assert 4 = length? append/dup m [d 4] 2 - --assert 4 = length? append/part m [e 5 f 6] 1 ;no-op! - --assert 5 = length? append/part m [e 5 f 6] 2 - --assert [1 2 3 4 5] = values-of m + --assert 2 = length? append/part m [e 5 f 6] 1 ;no-op! + --assert 3 = length? append/part m [e 5 f 6] 2 + --assert [1 2 5] = values-of m + --assert all [ + error? e: try [append/dup m [c 3] 0] e/id = 'bad-refines + error? e: try [append/dup m [c 3] 1] e/id = 'bad-refines + error? e: try [append/dup m [c 3] 2] e/id = 'bad-refines + ] --test-- "append/part map! with odd part" --assert [] == body-of append/part make map! [] [a 1 b 2 c 3] 1