TEST: returned tests removed by accident in commit b751885

Author: Oldes

src/tests/units/series-test.r3

@@ -280,6 +280,60 @@ Rebol [
 ===end-group===
 
 
+===start-group=== "TRIM"
+	--test-- "trim string!"
+		str1: " a b c "
+		str2: " ^(A0) ^-a b  ^- c  ^(2000) "
+		mstr: {   a ^-1^/    ab2^-  ^/  ac3  ^/  ^/^/}
+		--assert "a b c"  = trim copy str1
+		--assert "a b c"  = trim/head/tail copy str1
+		--assert "a b c " = trim/head copy str1
+		--assert " a b c" = trim/tail copy str1
+	;	--assert "a b  ^- c" = trim copy str2 ;- not like Red!
+		--assert "a ^-1^/ab2^/ac3^/" = trim copy mstr
+		--assert "a1ab2ac3" = trim/all { a ^-1^/ ab2^- ^/ ac3 ^/ ^/^/}
+		--assert "    ^-1^/    b2^-  ^/  c3  ^/  ^/^/" = trim/with copy mstr #"a"
+		--assert "    ^-1^/    b2^-  ^/  c3  ^/  ^/^/" = trim/with copy mstr 97
+	--test-- "trim binary!"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1482
+		bin: #{0011001100}
+		--assert #{110011}   = trim           copy bin
+		--assert #{110011}   = trim/head/tail copy bin
+		--assert #{11001100} = trim/head      copy bin
+		--assert #{00110011} = trim/tail      copy bin
+		--assert #{1111}     = trim/all       copy bin
+		--assert #{000000}   = trim/all/with  copy bin #{11}
+		--assert #{} = trim      #{0000}
+		--assert #{} = trim/tail #{0000}
+		--assert #{} = trim/head #{0000}
+		--assert #{2061626320} = trim/head/tail to-binary " abc "
+	--test-- "trim binary! incompatible"
+		--assert all [error? e: try [trim/auto  #{00}] e/id = 'bad-refines]
+		--assert all [error? e: try [trim/lines #{00}] e/id = 'bad-refines]
+		--assert all [error? e: try [trim/head/all #{00}] e/id = 'bad-refines]
+		--assert all [error? e: try [trim/tail/all #{00}] e/id = 'bad-refines]
+		--assert all [error? e: try [trim/tail/with #{00} 0] e/id = 'bad-refines]
+		--assert all [error? e: try [trim/head/with #{00} 0] e/id = 'bad-refines]
+	--test-- "trim binary! with index > 1"
+		bin: #{0000110000}
+		--assert #{00001100} = head trim/tail at copy bin 5
+		--assert #{00110000} = head trim/head at copy bin 2
+		--assert #{0011}     = head trim/all  at copy bin 2
+	--test-- "trim block!"
+		blk: [#[none] 1 #[none] 2 #[none]]
+		;@@ https://github.com/Oldes/Rebol-issues/issues/825
+		--assert [1 #[none] 2 #[none]] = trim/head copy blk
+		--assert [#[none] 1 #[none] 2] = trim/tail copy blk
+		;@@ https://github.com/Oldes/Rebol-issues/issues/2482
+		--assert [1 #[none] 2] = trim     copy blk
+		--assert [1 2]         = trim/all copy blk
+		--assert all [error? e: try [trim/head/all []] e/id = 'bad-refines]
+		--assert all [error? e: try [trim/tail/all []] e/id = 'bad-refines]
+
+===end-group===
+
+
+
 ===start-group=== "REPLACE string!"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/54
 	--test-- "issue-54"
@@ -812,6 +866,18 @@ Rebol [
 			unset? pick b 2
 			unset? b/2
 		]
+	--test-- "out of range"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1057
+		a: #{0102}
+		--assert 3 = poke a 1 3
+		--assert a = #{0302}
+		--assert all [error? e: try [poke a 1 300] e/id = 'out-of-range]
+		--assert 4 = a/1: 4
+		--assert a = #{0402}
+		--assert all [error? e: try [a/1: 400] e/id = 'out-of-range]
+		--assert #{02} = change a 5
+		--assert a = #{0502}
+		--assert all [error? e: try [change a 500] e/id = 'out-of-range]
 ===end-group===
 
 ===start-group=== "POKEZ"
@@ -903,6 +969,22 @@ Rebol [
 		--assert 3 = length? x
 		x: copy [] insert/dup x 5 -1
 		--assert 0 = length? x
+	--test-- "insert/part"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/856
+		a: make block! 10
+		b: at [1 2 3 4 5 6 7 8 9] 5
+		--assert tail? insert/part a b 2
+		--assert a = [5 6]
+		insert/part clear a b 2147483647
+		--assert a = [5 6 7 8 9]
+		insert/part clear a b -2
+		--assert a = [3 4]
+		insert/part clear a b -2147483647
+		--assert a = [1 2 3 4]
+		--assert all [error? e: try [insert/part clear a b  2147483648] e/id = 'out-of-range]
+		--assert all [error? e: try [insert/part clear a b -2147483649] e/id = 'out-of-range]
+
+
 
 ===end-group===
 
@@ -1097,6 +1179,20 @@ Rebol [
 		--assert not past? b
 ===end-group===
 
+===start-group=== "SNGLE?"
+	--test-- "single? block"
+		;@@ https://github.com/Oldes/Rebol-issues/issues/875
+		--assert single? [a]
+		--assert single? next [a b]
+		--assert not single? [a b]
+		--assert not single? []
+	--test-- "single? string!"
+		--assert single? "a"
+		--assert single? next "ab"
+		--assert not single? "ab"
+		--assert not single? ""
+===end-group===
+
 
 ===start-group=== "SORT"
 
@@ -1490,6 +1586,15 @@ Rebol [
 	;--assert txt = iconv #{FFFE50005901690068006C00E100730069007400} 'UTF16
 	--assert (next txt) = iconv next #{50F869686CE1736974} 28592
 
+--test-- "ICONV from UTF-8"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2475
+	--assert "š" = iconv #{C5A1} 'utf8
+	--assert "š" = iconv #{C5A1} 'utf-8
+	--assert "š" = iconv #{C5A1} 'UTF8
+	--assert "š" = iconv #{C5A1} 'UTF-8
+	--assert "š" = iconv #{C5A1} 'CP65001
+	--assert "š" = iconv #{C5A1} 65001
+
 --test-- "ICONV with empty imput"
 	--assert "" = iconv #{} 28592
 	--assert "" = iconv #{} 'utf8
@@ -1721,6 +1826,12 @@ Rebol [
 	--assert "<a<b b>>" = mold append <a> <b b>
 	--assert "<a<b b>>" = mold join <a> <b b>
 
+--test-- "CRLF inside tag"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1233
+	; CRLF is not automatically converted inside tags
+	--assert #{410D0A} = to-binary        first transcode #{3C410D0A3E}
+	--assert #{410A}   = to-binary deline first transcode #{3C410D0A3E}
+
 ===end-group===
 
 
@@ -1797,6 +1908,13 @@ Rebol [
 	--assert block?   random      next [1 2]
 	--assert integer? random/only next [1 2]
 
+--test-- "copy/part limit"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/853
+	--assert [1] = copy/part tail [1] -2147483647
+	--assert [1] = copy/part tail [1] -2147483648
+	--assert all [error? e: try [copy/part tail [1] -2147483649] e/id = 'out-of-range]
+
+
 ===end-group===
 
 
@@ -1896,6 +2014,19 @@ Rebol [
 	;@@ https://github.com/Oldes/Rebol-issues/issues/690
 	--assert (split "This! is a. test? to see " charset "!?.") = ["This" " is a" " test" " to see "]
 
+--test-- "split/at"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2490
+	--assert (split/at "a:b"   #":") = ["a" "b"]
+	--assert (split/at "a:b:c" #":") = ["a" "b:c"]
+	--assert (split/at "a"     #":") = ["a"]
+	--assert (split/at "a:"    #":") = ["a" ""]
+	--assert (split/at ":b"    #":") = ["" "b"]
+	--assert (split/at [1 a 2]     'a) = [[1] [2]]
+	--assert (split/at [1 a 2 3]   'a) = [[1] [2 3]]
+	--assert (split/at [1 a 2 a 3] 'a) = [[1] [2 a 3]]
+	--assert (split/at [1 2]       'a) = [[1 2]]
+
+
 ===end-group===
 
 
@@ -2063,6 +2194,8 @@ Rebol [
 	--assert [#[none] #[none]] = array 2
 --test-- "array/initial"
 	--assert [0 0] = array/initial 2 0
+	;@@ https://github.com/Oldes/Rebol-issues/issues/360
+	--assert [["" ""] ["" ""]] = array/initial [2 2] ""
 --test-- "array/initial func"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/2193
 	--assert [10 9 8 7 6 5 4 3 2 1] = array/initial length: 10 func [] [-- length]
@@ -2135,6 +2268,13 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "MOVE"
+--test-- "move/skip"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/740
+	--assert all [error? e: try [move/skip [1 2 3] 2 0] e/id = 'out-of-range]
+
+===end-group===
+
 ;-- VECTOR related tests moved to %vector-test.r3
 
-~~~end-file~~~
+~~~end-file~~~