From d8ad5b25bdedef35ed9deabba8c427934937dd62 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 23 Oct 2017 16:48:25 -0700
Subject: [PATCH] unicode.control-pictures: adding a test.

---
 extra/unicode/control-pictures/control-pictures-tests.factor | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 extra/unicode/control-pictures/control-pictures-tests.factor

diff --git a/extra/unicode/control-pictures/control-pictures-tests.factor b/extra/unicode/control-pictures/control-pictures-tests.factor
new file mode 100644
index 0000000000..fb19622cee
--- /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