FEAT: debase accepting any-string! for it's value

resolves: Oldes/Rebol-issues#2453
Oldes · Mar 26, 2021 · e9b0bb1 · e9b0bb1
1 parent 9419f2f
commit e9b0bb1
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/boot/natives.reb b/src/boot/natives.reb
@@ -394,7 +394,7 @@ construct: native [
 
 debase: native [
 	{Decodes binary-coded string to binary value.}
-	value [binary! string!] {The string to decode}
+	value [binary! any-string!] {The string to decode}
 	base  [integer!] {Binary base to use: 85, 64, 16, or 2}
 	/url  {Base 64 Decoding with URL and Filename Safe Alphabet}
 	/part {Limit the length of the input}

diff --git a/src/tests/units/enbase-test.r3 b/src/tests/units/enbase-test.r3
@@ -97,6 +97,13 @@ Rebol [
 		--assert strict-equal? 
 			"A multi-line\nstring" 
 			to string! debase "41206d756c74692d6c696e655c6e737472696e67" 16
+	--test-- "debase other strings"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2453
+		--assert #{1234} = debase "1234" 16
+		--assert #{1234} = debase <1234> 16
+		--assert #{1234} = debase @1234  16
+		--assert #{01}   = debase @00000001 2
+
 
 ===end-group===