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

test cases appear to be running again

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 14:33:22 -04:00
parent 55ca576a43
commit f39b192fee
4 changed files with 26 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
js-assembler/package.rkt
View File

@ -273,9 +273,7 @@ MACHINE.modules[~s] =
}
plt.runtime.setReadyTrue();
},
function(err) {
alert(err.message)
},
FAIL,
PARAMS);
});\n"
(format "~a" (source-name src)))
@ -289,8 +287,11 @@ MACHINE.modules[~s] =
(define (on-last-src)
(fprintf op "plt.runtime.setReadyTrue();")
(fprintf op "SUCCESS();"))
(fprintf op "plt.runtime.ready(
function() {
plt.runtime.setReadyTrue();
SUCCESS();
});"))
(define packaging-configuration

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

@ -585,7 +585,7 @@
// setReadyTrue is called.
var ready, setReadyTrue, setReadyFalse;
(function() {
var runtimeIsReady = false;
var runtimeIsReady = true;
var readyWaiters = [];
var notifyWaiter = function(w) {
w();

8
tests/browser-harness.rkt
View File

@ -42,8 +42,12 @@ return (function(succ, fail, params) {
}
};
return innerInvoke(machine,
function() { plt.runtime.invokeMains(machine, succ, fail); },
function(MACHINE, e) { fail(e); },
function() {
plt.runtime.invokeMains(machine, succ, fail);
},
function(MACHINE, e) {
return fail(e);
},
myParams);
});
});

9
tests/test-browser-evaluate.rkt
View File

@ -26,11 +26,12 @@
(fprintf op #<<EOF
return (function(succ, fail, params) {
var myParams = { currentDisplayer: function(MACHINE, v) { params.currentDisplayer(v); }};
return innerInvoke(new plt.runtime.Machine(),
var machine = new plt.runtime.Machine();
machine.params.currentDisplayer =
function(MACHINE, v) { params.currentDisplayer(v); };
return innerInvoke(machine,
succ,
function(MACHINE, exn) { fail(exn); },
myParams);
function(MACHINE, exn) { return fail(exn); });
});
});
EOF