tests/package-system-tests.lisp

   1 ;; SPDX-License-Identifier: BSD-3-Clause
   2
   3 (in-package #:parenscript.tests)
   4
   5 (in-suite package-system-tests)
   6
   7 (test-ps-js operator-packages1
   8   (#:new)
   9   "new();")
  10
  11 (defpackage #:parenscript.tests.my-library
  12   (:use #:parenscript))
  13 (setf (ps-package-prefix '#:parenscript.tests.my-library) "my_library_")
  14
  15 (test-ps-js lib-function1
  16   (defun parenscript.tests.my-library::library-function (x y)
  17     (+ x y))
  18   "function my_library_libraryFunction(x, y) {
  19         return x + y;
  20      };")
  21
  22 (test-ps-js uniform-symbol-handling1
  23   (progn (create parenscript.tests.my-library::foo 1)
  24          (getprop foo 'parenscript.tests.my-library::foo))
  25   "({ my_library_foo : 1 });
  26 foo.my_library_foo;")
  27
  28 (let ((map (make-hash-table)))
  29   (defun symbol-obfuscator (symbol)
  30     (or #1=(gethash symbol map)
  31         (setf #1# (make-symbol (map 'string (lambda (x)
  32                                               (code-char (1+ (char-code x))))
  33                                     (symbol-name symbol)))))))
  34
  35 (defpackage #:parenscript.tests.obfuscate-me)
  36 (obfuscate-package '#:parenscript.tests.obfuscate-me #'symbol-obfuscator)
  37
  38 (test-ps-js obfuscation1
  39   (defun parenscript.tests.obfuscate-me::libfun2 (a b parenscript.tests.obfuscate-me::foo)
  40     (+ a (parenscript.tests.my-library::library-function b parenscript.tests.obfuscate-me::foo)))
  41   "function mjcgvo3(a, b, gpp) {
  42     return a + my_library_libraryFunction(b, gpp);
  43 };")
  44
  45 (defpackage #:parenscript.tests.obfuscate-and-prefix)
  46 (obfuscate-package '#:parenscript.tests.obfuscate-and-prefix #'symbol-obfuscator)
  47 (setf (ps-package-prefix '#:parenscript.tests.obfuscate-and-prefix) "__FOO___")
  48
  49 (test-ps-js obfuscate-and-prefix
  50   (defun parenscript.tests.obfuscate-and-prefix::xfun (a parenscript.tests.obfuscate-and-prefix::b parenscript.tests.my-library::d)
  51     (* a
  52        (parenscript.tests.obfuscate-me::libfun2 parenscript.tests.obfuscate-and-prefix::b a)
  53        (parenscript.tests.my-library::library-function parenscript.tests.my-library::d parenscript.tests.obfuscate-and-prefix::b)))
  54   "function __FOO___ygvo(a, __FOO___c, my_library_d) {
  55     return a * mjcgvo3(__FOO___c, a) * my_library_libraryFunction(my_library_d, __FOO___c);
  56 };")
  57
  58 (defpackage #:parenscript.tests.pststpkg
  59   (:use #:parenscript))
  60
  61 (setf (ps-package-prefix '#:parenscript.tests.pststpkg) "prefix_")
  62
  63 (test namespace1 ()
  64   (is (string= "prefix_foo;" (normalize-js-code (ps* 'parenscript.tests.pststpkg::foo)))))
  65
  66 (cl:in-package #:parenscript.tests.pststpkg)
  67
  68 (parenscript.tests::test-ps-js namespace-and-special-forms
  69   (defun foo ()
  70     (let ((foo (create bar 1 not-a-keyword something)))
  71       (return-from foo (and (not foo) (+ (getprop foo 'bar) some-other-var)))))
  72 "function prefix_foo() {
  73 var foo1 = { prefix_bar : 1, prefix_notAKeyword : prefix_something };
  74 return !foo1 && foo1.prefix_bar + prefix_someOtherVar;
  75 };")
  76
  77 (parenscript.tests::test-ps-js exported-interface
  78   (defun parenscript.tests:interface-function (baz)
  79     (+ baz parenscript.tests.obfuscate-me::foo))
  80 "function interfaceFunction(prefix_baz) {
  81     return prefix_baz + gpp;
  82 };")
  83
  84 (parenscript.tests::test-ps-js prefixed-symbol-macro-obj1
  85   (symbol-macrolet ((x (+ 1 2)))
  86     (ps:create x x))
  87   "({ prefix_x : 1 + 2 });")
  88
  89 (cl:in-package #:parenscript.tests)
  90
  91 (test compile-stream-in-package
  92   (is (string=
  93        "function __FOO___ygvo(a, __FOO___c, my_library_d) {
  94     return a * mjcgvo3(__FOO___c, a) * my_library_libraryFunction(my_library_d, __FOO___c);
  95 };
  96 function interfaceFunction(prefix_baz) {
  97     return prefix_baz + gpp;
  98 };
  99 "
 100        (with-input-from-string (s "
 101 (defun parenscript.tests.obfuscate-and-prefix::xfun (a parenscript.tests.obfuscate-and-prefix::b parenscript.tests.my-library::d)
 102     (* a
 103        (parenscript.tests.obfuscate-me::libfun2 parenscript.tests.obfuscate-and-prefix::b a)
 104        (parenscript.tests.my-library::library-function parenscript.tests.my-library::d parenscript.tests.obfuscate-and-prefix::b)))
 105
 106 (in-package #:parenscript.tests.pststpkg)
 107
 108 (defun parenscript.tests:interface-function (baz)
 109     (+ baz parenscript.tests.obfuscate-me::foo))
 110 ")
 111          (ps-compile-stream s)))))