pike.git/ src/ testsuite.in

Branch: Tag:

2004-03-12

2004-03-12 18:29:29 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Should now pass a bit easier on systems without bignums.

Rev: src/testsuite.in:1.708

1: - test_true([["$Id: testsuite.in,v 1.707 2004/03/12 11:37:21 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.708 2004/03/12 18:29:29 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
27:   test_eq(0x80000001-0x80000000, 1);   test_eq(0x80000000-0x80000001,-1);   test_eq(-2147483648*-1, -2147483648/-1); + cond([[ 0x8000000000000000 ]], + [[    test_eq(0x8000000000000000-0x8000000000000000, 0);    test_eq(0xf000000000000000-0xf000000000000000, 0);    test_eq(0x8000000000000001-0x8000000000000000, 1);    test_eq(0x8000000000000000-0x8000000000000001,-1);    test_eq(-9223372036854775808*-1, -9223372036854775808/-1); -  + ]])   test_true([[1.0e-40]]);   test_eq([[#"foo   bar"]],[["foo\nbar"]]);
6007:       cond( [[ master()->resolv("Gmp")->mpz ]],    [[ -  test_eq([[Gmp.mpz(68719476736)/12884901888]],5); -  test_eq([[Gmp.mpz(123456789012345678901234567890)/12884901888]],9581507883061474724); -  test_eq([[Gmp.mpz(123456789012345678901234567890)/67890123456789012345]],1818479371); -  test_eq([[Gmp.mpz(123456789012345678901234567890)/67890123456789]],1818479371169857); +  test_eq([[Gmp.mpz(68719476736)/Gmp.mpz(12884901888)]],5); +  test_eq([[Gmp.mpz(123456789012345678901234567890)/Gmp.mpz(12884901888)]], +  Gmp.mpz(9581507883061474724)); +  test_eq([[Gmp.mpz(123456789012345678901234567890)/ +  Gmp.mpz(67890123456789012345)]],1818479371); +  test_eq([[Gmp.mpz(123456789012345678901234567890)/ +  Gmp.mpz(67890123456789)]],Gmp.mpz(1818479371169857));    ]] )   ]])