basis/cocoa/apple-script/apple-script-tests.factor

   1 USING: tools.test ;
   2 IN: cocoa.apple-script
   3
   4 { "\"\\\\\"" } [ "\\" quote-apple-script ] unit-test
   5 { "\"hello\\nthere\"" } [ "hello
   6 there" quote-apple-script ] unit-test ! no space, just a newline
   7 { "\"hello\\rthere\"" } [ "hello\rthere" quote-apple-script ] unit-test
   8 { "\"hello\\tthere\"" } [ "hello\tthere" quote-apple-script ] unit-test
   9 { "\"hello\\tthere\"" } [ "hello        there" quote-apple-script ] unit-test ! actual tab character 0x09
  10