pike.git/ src/ testsuite.in

2000-03-07

2000-03-07 13:03:00 by Fredrik Noring <noring@nocrew.org>

• e391b75acc3393f162383d9dc8c01af418eeb364 (10 lines) (+9/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Added case for function in function with recursion.

Rev: src/testsuite.in:1.281

1:   dnl -*- Pike -*- - test_true([["$Id: testsuite.in,v 1.280 2000/03/03 01:31:13 hubbe Exp $"]]); + test_true([["$Id: testsuite.in,v 1.281 2000/03/07 13:03:00 noring Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
840:   test_eq([[lambda(int x) { return lambda() { return x; };}(17)()]],17)   test_eq([[lambda(int x) { return lambda() { return lambda() { return x; };};}(17)()()]],17)    + test_eq(120, +  [[ int g() +  { +  int f(int i) { return i == 0 ? 1 : i*f(i-1); }; +  return f(5); +  }; return g(); ]]) +    test_eq([[function f;    for(int i = 0; i < 2; i++)    { {int _i = i; f = lambda(int j) { return _i+j; }; } }