michael@0: 
michael@0: function gen_f(x) {
michael@0:     var f = "{\n" +
michael@0: 	    "    var x = " + x + ";\n" + 
michael@0: 	    "    if (x)\n" +
michael@0: 	    "        return true;\n" +
michael@0: 	    "    return false;\n" +
michael@0: 	    "}";
michael@0:     return new Function(f);
michael@0: }
michael@0: 
michael@0: function run_f(x) {
michael@0:     return gen_f(x)();
michael@0: }
michael@0: 
michael@0: function gen_k(x, op, y) {
michael@0:     var f = "{\n" +
michael@0: 	    "    var x = " + x + ";\n" +
michael@0: 	    "    var y = " + y + ";\n" +
michael@0: 	    "    if (x " + op + " y)\n" +
michael@0: 	    "        return true;\n" +
michael@0: 	    "    return false;\n" +
michael@0: 	    "}";
michael@0:     return new Function(f);
michael@0: }
michael@0: 
michael@0: function run_k(x, op, y) {
michael@0:     return gen_k(x, op, y)();
michael@0: }
michael@0: 
michael@0: function gen_r(x, op, y) {
michael@0:     var f = "{\n" +
michael@0: 	    "    var x = " + x + ";\n" +
michael@0: 	    "    var y = " + y + ";\n" +
michael@0: 	    "    return x " + op + " y;\n" +
michael@0: 	    "}";
michael@0:     return new Function(f);
michael@0: }
michael@0: 
michael@0: function run_r(x, op, y) {
michael@0:     return gen_r(x, op, y)();
michael@0: }
michael@0: 
michael@0: assertEq(run_f("1 / 0"), true);
michael@0: assertEq(run_f("0 / 0"), false);
michael@0: assertEq(run_f("-0"), false);
michael@0: assertEq(run_f(1.3), true);
michael@0: 
michael@0: // Ordered results.
michael@0: assertEq(run_k(1.3, ">", 2.3), false);
michael@0: assertEq(run_k(2.3, ">", 2.3), false);
michael@0: assertEq(run_k(2.4, ">", 2.3), true);
michael@0: assertEq(run_k(1.3, ">=", 2.3), false);
michael@0: assertEq(run_k(2.3, ">=", 2.3), true);
michael@0: assertEq(run_k(2.4, ">=", 2.3), true);
michael@0: assertEq(run_k(1.3, "<", 2.3), true);
michael@0: assertEq(run_k(2.3, "<", 2.3), false);
michael@0: assertEq(run_k(2.4, "<", 2.3), false);
michael@0: assertEq(run_k(1.3, "<", 2.3), true);
michael@0: assertEq(run_k(2.3, "<=", 2.3), true);
michael@0: assertEq(run_k(2.4, "<", 2.3), false);
michael@0: 
michael@0: // Unordered results.
michael@0: assertEq(run_k("NaN", "<", 2.5), false);
michael@0: assertEq(run_k("NaN", "<=", 2.5), false);
michael@0: assertEq(run_k("NaN", ">", 2.5), false);
michael@0: assertEq(run_k("NaN", ">=", 2.5), false);
michael@0: 
michael@0: // Ordered results.
michael@0: assertEq(run_r(1.3, ">", 2.3), false);
michael@0: assertEq(run_r(2.3, ">", 2.3), false);
michael@0: assertEq(run_r(2.4, ">", 2.3), true);
michael@0: assertEq(run_r(1.3, ">=", 2.3), false);
michael@0: assertEq(run_r(2.3, ">=", 2.3), true);
michael@0: assertEq(run_r(2.4, ">=", 2.3), true);
michael@0: assertEq(run_r(1.3, "<", 2.3), true);
michael@0: assertEq(run_r(2.3, "<", 2.3), false);
michael@0: assertEq(run_r(2.4, "<", 2.3), false);
michael@0: assertEq(run_r(1.3, "<", 2.3), true);
michael@0: assertEq(run_r(2.3, "<=", 2.3), true);
michael@0: assertEq(run_r(2.4, "<", 2.3), false);
michael@0: 
michael@0: // Unordered results.
michael@0: assertEq(run_r("NaN", "<", 2.5), false);
michael@0: assertEq(run_r("NaN", "<=", 2.5), false);
michael@0: assertEq(run_r("NaN", ">", 2.5), false);
michael@0: assertEq(run_r("NaN", ">=", 2.5), false);
michael@0: