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

adding nucleic2 test

Browse Source
This commit is contained in:
Danny Yoo 2012-02-21 18:04:51 -05:00
parent d490992f99
commit 578b745dfe
4 changed files with 3514 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -944,7 +944,6 @@
}; };
var checkedGreaterThan = function(M, x, y) { var checkedGreaterThan = function(M, x, y) {
var i;
// fast path optimization: binop comparison on fixnums // fast path optimization: binop comparison on fixnums
if (arguments.length === 3) { if (arguments.length === 3) {
if (typeof(x) === 'number' && typeof(y) === 'number') { if (typeof(x) === 'number' && typeof(y) === 'number') {
@ -955,6 +954,7 @@
}; };
var checkedGreaterThanSlowPath = function(M, args) { var checkedGreaterThanSlowPath = function(M, args) {
var i;
if (! isNumber(args[0])) { if (! isNumber(args[0])) {
raiseArgumentTypeError(M, '>', 'number', 0, args[0]); raiseArgumentTypeError(M, '>', 'number', 0, args[0]);
} }

1
tests/more-tests/nucleic2.expected Normal file
View File

@ -0,0 +1 @@
33.797594890762696

3511
tests/more-tests/nucleic2.rkt Normal file
View File

File diff suppressed because it is too large Load Diff

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

@ -49,3 +49,4 @@
(test "more-tests/graphs.rkt") (test "more-tests/graphs.rkt")
(test "more-tests/scheme-whalesong.rkt") (test "more-tests/scheme-whalesong.rkt")
(test "more-tests/nestedloop.rkt") (test "more-tests/nestedloop.rkt")
(test "more-tests/nucleic2.rkt")