I&#39;m happy to add tests for bug fixes etc. that I push, so I tried compiling<div>and running the PS test suite. It requires the Arnesi and FiveAM libraries,</div><div>so I downloaded and asdf-loaded those, then called (RUN-TESTS).</div>

<div>The output I got seems to include many failures. How many of these</div><div>are actual failures in the official tests, and how many are glitches local</div><div>to me?</div><div><br></div><div>Since we have many custom PS macros, I was careful to run</div>

<div>these in a Lisp that only loaded the PARENSCRIPT-TEST package.</div><div><br></div><div>Daniel</div><div><br></div><div><br></div><div><br></div><div><div>Running reference tests:</div><div>...............f....................................................................f....</div>

<div> Did 89 checks.</div><div>    Pass: 87 (97%)</div><div>    Skip: 0 ( 0%)</div><div>    Fail: 2 ( 2%)</div><div><br></div><div> Failure Details:</div><div> --------------------------------</div><div> THE-HTML-GENERATOR-3 []: </div>

<div>      (NORMALIZE-JS-CODE &quot;document.write(&#39;&lt;A HREF=\&quot;#\&quot; ONCLICK=\&quot;&#39; + &#39;javascript:&#39; + &#39;transport()&#39; + &#39;\&quot;&gt;link&lt;/A&gt;&#39;);&quot;) evaluated to &quot;document.write(&#39;&lt;A HREF=\&quot;#\&quot; ONCLICK=\&quot;&#39; + &#39;javascript:&#39; + &#39;transport()&#39; + &#39;\&quot;&gt;link&lt;/A&gt;&#39;);&quot;, which is not STRING= to &quot;document.write(&#39;&lt;A HREF=\&quot;#\&quot; ONCLICK=\&quot;&#39; + [&#39;javascript:&#39;, &#39;transport()&#39;].join(&#39;&#39;) + &#39;\&quot;&gt;link&lt;/A&gt;&#39;);&quot;..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> ASSIGNMENT-11 []: </div><div>      (NORMALIZE-JS-CODE &quot;var _js2 = someDiv;</div><div>var _js1 = 123 + &#39;px&#39;;</div>
<div>
_js2.style.left = _js1;&quot;) evaluated to &quot;var _js2 = someDiv; var _js1 = 123 + &#39;px&#39;; _js2.style.left = _js1;&quot;, which is not STRING= to &quot;left(someDiv) = 123 + &#39;px&#39;;&quot;..</div><div> --------------------------------</div>

<div><br></div><div>Running other tests:</div><div>.................................................................................................f............ff.....f...............f.......................................................................f.f....</div>

<div>;Compiler warnings :</div><div>;   In an anonymous lambda form: Undeclared free variable X..f.......f........</div><div> Did 231 checks.</div><div>    Pass: 222 (96%)</div><div>    Skip: 0 ( 0%)</div><div>    Fail: 9 ( 3%)</div>

<div><br></div><div> Failure Details:</div><div> --------------------------------</div><div> VALUES2 []: </div><div>      (NORMALIZE-JS-CODE &quot;var val1_1 = x;</div><div>var valrest2 = [y];</div><div>if (undefined !== arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;]) {</div>

<div>    arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;] = valrest2;</div><div>};</div><div>val1_1;&quot;) evaluated to &quot;var val1_1 = x; var valrest2 = [y]; if (undefined !== arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;]) { arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;] = valrest2; }; val1_1;&quot;, which is not STRING= to &quot;var val1_1 = x; var valrest2 = [y]; if (undefined !== <a href="http://arguments.callee.caller.mv">arguments.callee.caller.mv</a>) { <a href="http://arguments.callee.caller.mv">arguments.callee.caller.mv</a> = valrest2; }; val1_1;&quot;..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> VALUES3 []: </div><div>      (NORMALIZE-JS-CODE &quot;var val1_1 = x;</div><div>var valrest2 = [y, z];</div><div>if (undefined !== arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;]) {</div>

<div>    arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;] = valrest2;</div><div>};</div><div>val1_1;&quot;) evaluated to &quot;var val1_1 = x; var valrest2 = [y, z]; if (undefined !== arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;]) { arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;] = valrest2; }; val1_1;&quot;, which is not STRING= to &quot;var val1_1 = x; var valrest2 = [y, z]; if (undefined !== <a href="http://arguments.callee.caller.mv">arguments.callee.caller.mv</a>) { <a href="http://arguments.callee.caller.mv">arguments.callee.caller.mv</a> = valrest2; }; val1_1;&quot;..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> VALUES-RETURN []: </div><div>      (NORMALIZE-JS-CODE &quot;var val1_1 = x;</div><div>var valrest2 = [y];</div><div>if (undefined !== arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;]) {</div>

<div>    arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;] = valrest2;</div><div>};</div><div>return val1_1;&quot;) evaluated to &quot;var val1_1 = x; var valrest2 = [y]; if (undefined !== arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;]) { arguments[&#39;callee&#39;][&#39;caller&#39;][&#39;mv&#39;] = valrest2; }; return val1_1;&quot;, which is not STRING= to &quot;var val1_1 = x; var valrest2 = [y]; if (undefined !== <a href="http://arguments.callee.caller.mv">arguments.callee.caller.mv</a>) { <a href="http://arguments.callee.caller.mv">arguments.callee.caller.mv</a> = valrest2; }; return val1_1;&quot;..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> EVAL-WHEN-MACROLET-EXPANSION []: </div><div>      *LISP-OUTPUT* evaluated to ORIGINAL-VALUE, which is not EQL to :CL-USER..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> EVAL-WHEN-MACRO-EXPANSION []: </div><div>      *LISP-OUTPUT* evaluated to ORIGINAL-VALUE, which is not EQL to :CL-USER..</div>
<div>
 --------------------------------</div><div> --------------------------------</div><div> MV-BIND1 []: </div><div>      (NORMALIZE-JS-CODE &quot;returnsMv();</div><div>var prevmv2 = arguments[&#39;callee&#39;][&#39;mv&#39;];</div>

<div>try {</div><div>    arguments[&#39;callee&#39;][&#39;mv&#39;] = true;</div><div>    var a = doesnt();</div><div>    var mv1 = typeof arguments[&#39;callee&#39;][&#39;mv&#39;] === &#39;object&#39; ? arguments[&#39;callee&#39;][&#39;mv&#39;] : new Array(1);</div>

<div>    var b = mv1[0];</div><div>    alert(a);</div><div>    alert(b);</div><div>} finally {</div><div>    if (undefined === prevmv2) {</div><div>        delete arguments[&#39;callee&#39;][&#39;mv&#39;];</div><div>    } else {</div>

<div>        arguments[&#39;callee&#39;][&#39;mv&#39;] = prevmv2;</div><div>    };</div><div>};&quot;) evaluated to &quot;returnsMv(); var prevmv2 = arguments[&#39;callee&#39;][&#39;mv&#39;]; try { arguments[&#39;callee&#39;][&#39;mv&#39;] = true; var a = doesnt(); var mv1 = typeof arguments[&#39;callee&#39;][&#39;mv&#39;] === &#39;object&#39; ? arguments[&#39;callee&#39;][&#39;mv&#39;] : new Array(1); var b = mv1[0]; alert(a); alert(b); } finally { if (undefined === prevmv2) { delete arguments[&#39;callee&#39;][&#39;mv&#39;]; } else { arguments[&#39;callee&#39;][&#39;mv&#39;] = prevmv2; }; };&quot;, which is not STRING= to &quot;returnsMv(); var prevmv2 = <a href="http://arguments.callee.mv">arguments.callee.mv</a>; try { <a href="http://arguments.callee.mv">arguments.callee.mv</a> = true; var a = doesnt(); var mv1 = typeof <a href="http://arguments.callee.mv">arguments.callee.mv</a> === &#39;object&#39; ? <a href="http://arguments.callee.mv">arguments.callee.mv</a> : new Array(1); var b = mv1[0]; alert(a); alert(b); } finally { if (undefined === prevmv2) { delete <a href="http://arguments.callee.mv">arguments.callee.mv</a>; } else { <a href="http://arguments.callee.mv">arguments.callee.mv</a> = prevmv2; }; };&quot;..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> EVAL-WHEN-LISP-SIDE []: </div><div>      *LISP-OUTPUT* evaluated to ORIGINAL-VALUE, which is not EQL to IT-WORKS..</div><div> --------------------------------</div>

<div> --------------------------------</div><div> EVAL-WHEN-LISP-SIDE []: </div><div>      JS-OUTPUT evaluated to &quot;LISPOUTPUT = &#39;itWorks&#39;;&quot;, which is not STRING= to &quot;&quot;..</div><div> --------------------------------</div>

<div> --------------------------------</div><div> FUNCALL-IF-EXPRESSION []: </div><div>      (NORMALIZE-JS-CODE &quot;document.write(LINKORNOT === 1 ? &#39;&lt;A HREF=\&quot;#\&quot; ONCLICK=\&quot;&#39; + &#39;javascript:&#39; + &#39;transport()&#39; + &#39;\&quot;&gt;&#39; + img + &#39;&lt;/A&gt;&#39; : img);&quot;) evaluated to &quot;document.write(LINKORNOT === 1 ? &#39;&lt;A HREF=\&quot;#\&quot; ONCLICK=\&quot;&#39; + &#39;javascript:&#39; + &#39;transport()&#39; + &#39;\&quot;&gt;&#39; + img + &#39;&lt;/A&gt;&#39; : img);&quot;, which is not STRING= to &quot;document.write(LINKORNOT === 1 ? &#39;&lt;A HREF=\&quot;#\&quot; ONCLICK=\&quot;&#39; + [&#39;javascript:&#39;, &#39;transport()&#39;].join(&#39;&#39;) + &#39;\&quot;&gt;&#39; + img + &#39;&lt;/A&gt;&#39; : img);&quot;..</div>

<div> --------------------------------</div><div><br></div><div>Running Package System tests:</div><div>f.f..f..</div><div> Did 8 checks.</div><div>    Pass: 5 (62%)</div><div>    Skip: 0 ( 0%)</div><div>    Fail: 3 (37%)</div>

<div><br></div><div> Failure Details:</div><div> --------------------------------</div><div> NAMESPACE-AND-SPECIAL-FORMS []: </div><div>      (PARENSCRIPT-TEST::NORMALIZE-JS-CODE &quot;var prefix_foo = { prefix_bar : 1, prefix_notAKeyword : prefix_something };</div>

<div>return !prefix_foo &amp;&amp; prefix_foo.prefix_bar + prefix_someOtherVar;&quot;) evaluated to &quot;var prefix_foo = { prefix_bar : 1, prefix_notAKeyword : prefix_something }; return !prefix_foo &amp;&amp; prefix_foo.prefix_bar + prefix_someOtherVar;&quot;, which is not COMMON-LISP:STRING= to &quot;var foo = { bar : 1, notAKeyword : something }; return !foo &amp;&amp; foo.bar + someOtherVar;&quot;..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> OBFUSCATION1 []: </div><div>      (NORMALIZE-JS-CODE &quot;function g1(a, b, g2) {</div><div>    return a + my_library_libraryFunction(b, g2);</div>

<div>};&quot;) evaluated to &quot;function g1(a, b, g2) { return a + my_library_libraryFunction(b, g2); };&quot;, which is not STRING= to &quot;function g1(a, b, g1) { return a + my_library_libraryFunction(b, g1); };&quot;..</div>

<div> --------------------------------</div><div> --------------------------------</div><div> EXPORTED-INTERFACE []: </div><div>      (PARENSCRIPT-TEST::NORMALIZE-JS-CODE &quot;function interfaceFunction(prefix_baz) {</div>

<div>    return prefix_baz + g2;</div><div>};&quot;) evaluated to &quot;function interfaceFunction(prefix_baz) { return prefix_baz + g2; };&quot;, which is not COMMON-LISP:STRING= to &quot;function interfaceFunction(baz) { return baz + g1; };&quot;..</div>

<div> --------------------------------</div><div><br></div><div>NIL</div><div>PS-TEST&gt; </div></div>