suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adding the isolating bug into the test suite.

Browse Source
This commit is contained in:
Danny Yoo 2011-09-27 17:24:05 -04:00
parent 804bd5e80a
commit ea578d6ff4
3 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
js-assembler/runtime-src/baselib-format.js
View File

@ -409,7 +409,7 @@
if (baselib.functions.isProcedure(x)) {
node = document.createElement("span");
node.appendChild(document.createTextNode('#<procedure: ' + x.displayName + '>'));
node.appendChild(document.createTextNode('#<procedure:' + x.displayName + '>'));
$(node).addClass("procedure");
return node;
}

24
tests/more-tests/isolating-bug.expected
View File

@ -1,3 +1,27 @@
#<struct-type:swf>
#<procedure:make-swf>
#<procedure:swf?>
#<procedure:swf-f>
#<procedure:set-swf-f!>
in the result of call-with-values
(#<struct-type:swf> #<procedure:make-swf> #<procedure:swf?> #<procedure:swf-f> #<procedure:set-swf-f!>)
---
#<struct-type:swf>
#<procedure:make-swf>
#<procedure:swf?>
#<procedure:swf-f>
#<procedure:set-swf-f!>
***
#<struct-type:swf2>
#<procedure:make-swf2>
#<procedure:swf2?>
#<procedure:swf2-f>
#<procedure:set-swf2-f!>
in the result of call-with-values
(#<struct-type:swf2> #<procedure:make-swf2> #<procedure:swf2?> #<procedure:swf2-f> #<procedure:set-swf2-f!>)
---
#<struct-type:swf2>
#<procedure:make-swf2>
#<procedure:swf2?>
#<procedure:swf2-f>
#<procedure:set-swf2-f!>

1
tests/run-more-tests.rkt
View File

@ -25,6 +25,7 @@
(test "more-tests/images.rkt")
(test "more-tests/lists.rkt")
(test "more-tests/simple-apply.rkt")
(test "more-tests/isolating-bug.rkt")
(test "more-tests/hello-bf.rkt")
(test "more-tests/conform.rkt")
(test "more-tests/earley.rkt")