pike.git/ src/ testsuite.in

2008-07-24

2008-07-24 11:56:20 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• e27dea273f840f980b36676c9779309a43b8cfbf (11 lines) (+6/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

Fixed Thread.Queue test.

Rev: src/testsuite.in:1.845

1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.844 2008/07/24 09:54:00 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.845 2008/07/24 11:56:20 grubba Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
4580:    Thread.Queue q = Thread.Queue();    int to_write = 100000;    int to_read = 0; -  int expect = to_write; +     while (to_write + to_read) { -  if (random(to_write + to_read) < to_read) { +  if (!to_write || random(4 * to_read)) {    int val = q->read(); -  if (val != expect) return val + " != " + expect; +  if (val != (to_write + to_read)) +  return val + " != " + (to_write + to_read);    to_read--; -  expect--; +     } else {    q->write(to_write--); -  +  to_read++;    }    }    return 0;