unicode.control-pictures: adding a test.

diff --git a/extra/unicode/control-pictures/control-pictures-tests.factor b/extra/unicode/control-pictures/control-pictures-tests.factor
new file mode 100644 (file)
index 0000000..fb19622
--- /dev/null
+++ b/extra/unicode/control-pictures/control-pictures-tests.factor
@@ -0,0 +1,5 @@
+USING: sequences strings tools.test unicode.control-pictures ;
+
+{ "␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !\"#$%&'()*+,-./" } [
+    48 <iota> >string control-pictures
+] unit-test