3 ;; Testcases for parenscript
5 (defun trim-whitespace(str)
6 (string-trim '(#\Space
#\Tab
#\Newline
) str
))
8 (defun same-space-between-statements(code)
9 (cl-ppcre:regex-replace-all
"\\s*;\\s*" code
(concatenate 'string
(list #\
; #\Newline))))
11 (defun no-indentation(code)
12 (cl-ppcre:regex-replace-all
(cl-ppcre:create-scanner
"^\\s*" :multi-line-mode t
) code
""))
14 (defun no-trailing-spaces(code)
15 (cl-ppcre:regex-replace-all
(cl-ppcre:create-scanner
"\\s*$" :multi-line-mode t
) code
""))
17 (defun normalize-js-code(str)
18 (trim-whitespace (no-indentation (no-trailing-spaces (same-space-between-statements str
)))))
20 (defmacro test-ps-js
(testname parenscript javascript
)
22 (setf js
::*var-counter
* 0)
23 ;; is-macro expands its argument again when reporting failures, so
24 ;; the reported temporary js-variables get wrong if we don't evalute first.
25 (let ((generated-code (js-to-string ',parenscript
))
26 (js-code ,javascript
))
27 (is (string= (normalize-js-code generated-code
)
28 (normalize-js-code js-code
))))))
31 (format t
"Running reference tests:~&")
33 (format t
"Running other tests:~&")