Substantially modified the way Parenscript compilation and

[clinton/parenscript.git] / t / package-system-tests.lisp

diff --git a/t/package-system-tests.lisp b/t/package-system-tests.lisp
dissimilarity index 88%
index 7388f46..c5c5a64 100644 (file)
--- a/t/package-system-tests.lisp
+++ b/t/package-system-tests.lisp
@@ -1,43 +1,67 @@
-(in-package :parenscript-test)
-
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (def-suite package-system-tests))
-
-(in-suite package-system-tests)
-
-(defpstest simple-variable-prefix ()
-  (progn
-    (defpackage test (:lisp-package :parenscript-test))
-    (defvar the-var))
-   "var TEST_theVar;")
-
-(defpstest no-global-variable-prefix ()
-  (progn
-    (defvar global::the-var)
-    (defvar global::global))
-   "var theVar; var global;")
-
-(defpstest eval-when-returns-paren-form ()
-  (progn
-    (eval-when (:compile-toplevel)
-      `(global::sort-of-macro-like))
-    global::treat-me-right)
-  "sortOfMacroLike(); treatMeRight;")
-
-(defpstest javascript-operations ()
-  (progn
-    (+ 1 2 3 4)
-    (- 1 2 3 4)
-    nil t this false undefined)
-  "1 + 2 + 3 + 4; 1 - 2 - 3 - 4; null; true; this; false; undefined;")
-
-(defpstest def-keywords ()
-  (progn
-    (defun global::hello-world () (return 5)))
-  "function helloWorld() { return 5; };")
-
-(defpstest ps-js-reserved ()
-  (eval-when (:compile-toplevel)
-    (format nil "~A" (script-package-name (symbol-script-package 'defclass))))
-  "'JAVASCRIPT';")
-
+(in-package "PARENSCRIPT-TEST")
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (def-suite package-system-tests))
+
+(in-suite package-system-tests)
+
+(test-ps-js operator-packages1
+  (#:new)
+  "new();")
+
+(defpackage "PS-TEST.MY-LIBRARY"
+  (:use "PARENSCRIPT"))
+(setf (ps-package-prefix "PS-TEST.MY-LIBRARY") "my_library_")
+
+(test-ps-js lib-function1
+  (defun ps-test.my-library::library-function (x y)
+    (return (+ x y)))
+  "function my_library_libraryFunction(x, y) {
+        return x + y;
+     };")
+
+(test-ps-js uniform-symbol-handling1
+  (progn (create 'ps-test.my-library::foo 1)
+         (create ps-test.my-library::foo 1)
+         (slot-value foo 'ps-test.my-library::foo))
+  "{ 'my_library_foo' : 1 };
+{ my_library_foo : 1 };
+foo.my_library_foo;")
+
+(defpackage "PS-TEST.OBFUSCATE-ME")
+(obfuscate-package "PS-TEST.OBFUSCATE-ME")
+
+(test-ps-js obfuscation1
+  (defun ps-test.obfuscate-me::library-function2 (a b ps-test.obfuscate-me::foo)
+    (+ a (ps-test.my-library::library-function b ps-test.obfuscate-me::foo)))
+  "function g1(a, b, g2) {
+    a + my_library_libraryFunction(b, g2);
+};")
+
+(defpackage "PS-TEST.OBFUSCATE-AND-PREFIX")
+(obfuscate-package "PS-TEST.OBFUSCATE-AND-PREFIX")
+(setf (ps-package-prefix "PS-TEST.OBFUSCATE-AND-PREFIX") "__FOO___")
+
+(test-ps-js obfuscate-and-prefix
+  (defun ps-test.obfuscate-and-prefix::some-function (a ps-test.obfuscate-and-prefix::b ps-test.my-library::d)
+    (* a
+       (ps-test.obfuscate-me::library-function2 ps-test.obfuscate-and-prefix::b a)
+       (ps-test.my-library::library-function ps-test.my-library::d ps-test.obfuscate-and-prefix::b)))
+  "function __FOO___g1(a, __FOO___g2, my_library_d) {
+    a * g1(__FOO___g2, a) * my_library_libraryFunction(my_library_d, __FOO___g2);
+};")
+
+(defpackage "PS-TEST.PSTSTPKG"
+  (:use "PARENSCRIPT"))
+
+(test namespace1 ()
+  (setf (ps-package-prefix "PS-TEST.PSTSTPKG") "prefix_")
+  (is (string= "prefix_foo;" (normalize-js-code (ps* 'ps-test.pststpkg::foo)))))
+
+(common-lisp:in-package "PS-TEST.PSTSTPKG")
+
+(ps-test::test-ps-js namespace-and-special-forms
+  (let ((foo (create bar 1 not-a-keyword something)))
+    (return (and (not foo) (+ (slot-value foo 'bar) some-other-var))))
+"var prefix_foo1 = { prefix_bar : 1, prefix_notAKeyword : prefix_something };
+return !prefix_foo1 && prefix_foo1.prefix_bar + prefix_someOtherVar;")