Branch: Tag:

2008-05-12

2008-05-12 13:32:14 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Added test for [bug 4537 (#4537)].

Rev: src/testsuite.in:1.813

1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.812 2008/05/11 02:40:13 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.813 2008/05/12 13:32:14 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
328:    return sizeof(tmp[0]);   ]], 0)    + test_any([[ +  // Bug 4537. +  void fiddle(array(int) a) +  { +  a += ({ 2 }); +  };    -  +  array(int) a = ({ 1 }); +  fiddle(a); +  return sizeof(a); + ]], 1) +    test_any([[int a=0xffffffff; return a+17]], 0x100000010);   test_any([[int a=0xffffffff; return a-17]], 0xffffffee);   test_any([[int a=0xffffffff; return a*17]], 0x10ffffffef);