Add more control-pictures

[factor.git] / basis / unicode / control-pictures / control-pictures-tests.factor

diff --git a/basis/unicode/control-pictures/control-pictures-tests.factor b/basis/unicode/control-pictures/control-pictures-tests.factor
index fb19622ceeff89b7f929b7d5729fd2297c8425fa..35b2b6d496526f5a47f8716e53b54e0e36fe4e2b 100644 (file)
--- a/basis/unicode/control-pictures/control-pictures-tests.factor
+++ b/basis/unicode/control-pictures/control-pictures-tests.factor
@@ -3,3 +3,10 @@ USING: sequences strings tools.test unicode.control-pictures ;
 { "␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !\"#$%&'()*+,-./" } [
     48 <iota> >string control-pictures
 ] unit-test
+
+{ "␡" } [ "\x7f" control-pictures ] unit-test
+{ "a␡b" } [ "a\x7fb" control-pictures ] unit-test
+
+{ "␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟␠!\"#$%&'()*+,-./" } [
+    48 <iota> >string control-pictures*
+] unit-test