basis/uu/uu-tests.factor

   1 USING: kernel tools.test uu ;
   2 IN: uu.tests
   3
   4 CONSTANT: plain
   5 "The smooth-scaled python crept over the sleeping dog"
   6
   7 CONSTANT: encoded
   8 "begin
   9 M5&AE('-M;V]T:\"US8V%L960@<'ET:&]N(&-R97!T(&]V97(@=&AE('-L965P
  10 ':6YG(&1O9P
  11 end
  12 "
  13
  14 { t } [ plain string>uu encoded = ] unit-test
  15 { t } [ encoded uu>string plain = ] unit-test
  16
  17 { "Cat" } [
  18     "begin 644 cat.txt\n#0V%T\n`\nend\n" uu>string
  19 ] unit-test