HCoop / clinton / parenscript.git / blame
| Commit | Line | Data |
|---|---|---|
| 5aa10005 RD |
1 | (in-package :parenscript-test) |
| 2 | ||
| 3 | (eval-when (:compile-toplevel :load-toplevel :execute) | |
| 4 | (def-suite package-system-tests)) | |
| 5 | ||
| 6 | (in-suite package-system-tests) | |
| 7 | ||
| 8 | (defpstest simple-variable-prefix () | |
| 9 | (progn | |
| 10 | (defpackage test (:lisp-package :parenscript-test)) | |
| 11 | (defvar the-var)) | |
| 905f534e | 12 | "var TEST_theVar;") |
| 5aa10005 RD |
13 | |
| 14 | (defpstest no-global-variable-prefix () | |
| 15 | (progn | |
| 16 | (defvar global::the-var) | |
| 17 | (defvar global::global)) | |
| 18 | "var theVar; var global;") | |
| 19 | ||
| 20 | (defpstest eval-when-returns-paren-form () | |
| 21 | (progn | |
| 22 | (eval-when (:compile-toplevel) | |
| 23 | `(global::sort-of-macro-like)) | |
| 24 | global::treat-me-right) | |
| 25 | "sortOfMacroLike(); treatMeRight;") | |
| 26 | ||
| 27 | (defpstest javascript-operations () | |
| 28 | (progn | |
| 29 | (+ 1 2 3 4) | |
| 30 | (- 1 2 3 4) | |
| 31 | nil t this false undefined) | |
| 32 | "1 + 2 + 3 + 4; 1 - 2 - 3 - 4; null; true; this; false; undefined;") | |
| 33 | ||
| 34 | (defpstest def-keywords () | |
| 35 | (progn | |
| 36 | (defun global::hello-world () (return 5))) | |
| 37 | "function helloWorld() { return 5; };") | |
| 38 | ||
| 39 | (defpstest ps-js-reserved () | |
| 40 | (eval-when (:compile-toplevel) | |
| 41 | (format nil "~A" (script-package-name (symbol-script-package 'defclass)))) | |
| 42 | "'JAVASCRIPT';") | |
| 43 |