basis/unicode/control-pictures/control-pictures-tests.factor

   1 USING: sequences strings tools.test unicode.control-pictures ;
   2
   3 { "␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟ !\"#$%&'()*+,-./" } [
   4     48 <iota> >string control-pictures
   5 ] unit-test
   6
   7 { "␡" } [ "\x7f" control-pictures ] unit-test
   8 { "a␡b" } [ "a\x7fb" control-pictures ] unit-test
   9 { "a␡b" } [ "a\x7fb" control-pictures* ] unit-test
  10
  11 { "␀␁␂␃␄␅␆␇␈␉␊␋␌␍␎␏␐␑␒␓␔␕␖␗␘␙␚␛␜␝␞␟␠!\"#$%&'()*+,-./" } [
  12     48 <iota> >string control-pictures*
  13 ] unit-test