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

tests for arity on javascript-exposed Racket functions

Browse Source
This commit is contained in:
Danny Yoo 2011-07-27 15:53:50 -04:00
parent 1451f1e755
commit 46ffe7d142
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
js-assembler/runtime-src/baselib-functions.js
View File

@ -51,12 +51,14 @@
MACHINE.env.push(arguments[arguments.length - 1 - i]); MACHINE.env.push(arguments[arguments.length - 1 - i]);
} }
// Check arity usage. if (! plt.baselib.arity.isArityMatching(v.arity, MACHINE.argcount)) {
if (! plt.baselib.arity.isArityMatching(v.arity, args.length)) { fail(new Error(plt.baselib.format.format(
throw new Error("arity mismatch"); "arity mismatch: expected ~s arguments, but received ~s",
[v.arity, MACHINE.argcount])));
return;
} }
var result = v.apply(null, args); var result = v.call(null, MACHINE);
MACHINE.argcount = oldArgcount; MACHINE.argcount = oldArgcount;
for (var i = 0; i < arguments.length - 2; i++) { for (var i = 0; i < arguments.length - 2; i++) {
MACHINE.env.pop(); MACHINE.env.pop();
@ -74,12 +76,14 @@
succ = succ || function(){}; succ = succ || function(){};
fail = fail || function(){}; fail = fail || function(){};
// Check arity usage.
if (! plt.baselib.arity.isArityMatching(v.arity, arguments.length - 2)) { if (! plt.baselib.arity.isArityMatching(v.arity, arguments.length - 2)) {
throw new Error("arity mismatch"); fail(new Error(
plt.baselib.format.format(
"arity mismatch: expected ~s argument(s) but received ~s",
[v.arity, arguments.length - 2])));
return;
} }
var oldVal = MACHINE.val; var oldVal = MACHINE.val;
var oldArgcount = MACHINE.argcount; var oldArgcount = MACHINE.argcount;
var oldProc = MACHINE.proc; var oldProc = MACHINE.proc;

2
tests/coersing/index.html
View File

@ -19,7 +19,7 @@ plt.runtime.ready(function() {
function(err) { function(err) {
$('#answer').text(err.message).css("color", "red"); $('#answer').text(err.message).css("color", "red");
}, },
10000 11
// "one-billion-dollars" // "one-billion-dollars"
); );
}); });