pike.git/ src/ testsuite.in

2003-03-30

2003-03-30 20:24:30 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 2c162185a6e12c881a664db6f677e340c4d0f0a5 (23 lines) (+12/-11) ^{[ Show | Annotate ]}
  Branch: 7.9

Increased some large shift amounts and exponents to not fit within an
unsigned long on 64 bit architectures.

Rev: src/testsuite.in:1.629

1: - test_true([["$Id: testsuite.in,v 1.628 2003/03/30 01:34:53 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.629 2003/03/30 20:24:30 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
5006:    test_eq("8589934592", [[ (string)(1<<33) ]])    test_eq("1267650600228229401496703205376", [[ (string)(1<<100) ]])    -  test_eval_error(return 1<<100000000000000) -  test_eval_error(return (-1)<<100000000000000) -  test_eq(0<<100000000000000, 0) -  test_eval_error(return 100000000000000<<100000000000000) -  test_eval_error(return (-100000000000000)<<100000000000000) +  test_eval_error(return 1<<100000000000000000000) +  test_eval_error(return (-1)<<100000000000000000000) +  test_eq(0<<100000000000000000000, 0) +  test_eval_error(return 100000000000000000000<<100000000000000000000) +  test_eval_error(return (-100000000000000000000)<<100000000000000000000)       // - Right shift.    test_eq("53265209898187398182",
5021:    test_eq(0, [[ 25>>32 ]])    test_eq(0, [[ 25>>33 ]])    -  test_eq(1>>100000000000000, 0) -  test_eq(-1>>100000000000000, -1) -  test_eq(0>>100000000000000, 0) -  test_eq(100000000000000>>100000000000000, 0) -  test_eq(-100000000000000>>100000000000000, -1) +  test_eq(1>>100000000000000000000, 0) +  test_eq(-1>>100000000000000000000, -1) +  test_eq(0>>100000000000000000000, 0) +  test_eq(100000000000000000000>>100000000000000000000, 0) +  test_eq((-100000000000000000000)>>100000000000000000000, -1)       // - abs.    test_eq("2147483648", [[ (string)abs(-0x80000000) ]])