cocoa.apple-script: fix tests for quote-apple-script

diff --git a/basis/cocoa/apple-script/apple-script-tests.factor b/basis/cocoa/apple-script/apple-script-tests.factor
index f5d6d4f5434a944cbc0fe7018b0a8ff1e62c682f..9444d951a34e74f84975824d74166fda77718999 100644 (file)
--- a/basis/cocoa/apple-script/apple-script-tests.factor
+++ b/basis/cocoa/apple-script/apple-script-tests.factor
@@ -1,10 +1,10 @@
 USING: tools.test ;
 IN: cocoa.apple-script
 
-{ "\\\\" } [ "\\" quote-apple-script ] unit-test
-{ "hello\\nthere" } [ "hello
+{ "\"\\\\\"" } [ "\\" quote-apple-script ] unit-test
+{ "\"hello\\nthere\"" } [ "hello
 there" quote-apple-script ] unit-test ! no space, just a newline
-{ "hello\\rthere" } [ "hello\rthere" quote-apple-script ] unit-test
-{ "hello\\tthere" } [ "hello\tthere" quote-apple-script ] unit-test
-{ "hello\\tthere" } [ "hello   there" quote-apple-script ] unit-test ! actual tab character 0x09
+{ "\"hello\\rthere\"" } [ "hello\rthere" quote-apple-script ] unit-test
+{ "\"hello\\tthere\"" } [ "hello\tthere" quote-apple-script ] unit-test
+{ "\"hello\\tthere\"" } [ "hello       there" quote-apple-script ] unit-test ! actual tab character 0x09