pike.git/ src/ testsuite.in

1998-11-07

1998-11-07 07:40:11 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 345f1066766c6c7747b1954866c7861c0c4a57b1 (45 lines) (+44/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

more tests

Rev: src/testsuite.in:1.132

1: - stest_true([["$Id: testsuite.in,v 1.131 1998/10/31 21:50:11 grubba Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.132 1998/11/07 07:40:11 hubbe Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
257:   return c1()->foo();]],2)      test_any([[class foo { int x=random(100); int `<(object o) { return x < o->x; } }; object *o=Array.map(allocate(100),foo); sort(o); for(int e=1;e<100;e++) if(o[e-1]->x > o[e]->x) return e; return -1;]],-1) +  + test_any([[ +  mixed ret=({}); +  int a, b = 3; +  for (a = 0; a < b; a++) { +  ret+=({a,b}); +  if (a % 2) b += 1; +  } +  return equal(ret,({0,3,1,3,2,4,3,4,4,5})); + ]],1) +  + test_any([[ +  mixed ret=({}); +  int a, b = 3; +  for (a = 0; a < b; a++) { +  ret+=({a,b}); +  if (a % 2) b ++; +  } +  return equal(ret,({0,3,1,3,2,4,3,4,4,5})); + ]],1) +  + test_any([[ +  mixed ret=({}); +  int a, b = 3; +  for (a = 0; a < b; a++) { +  ret+=({a,b}); +  if (a % 2) b=b+1; +  } +  return equal(ret,({0,3,1,3,2,4,3,4,4,5})); + ]],1) +  + test_any([[ +  mixed ret=({}); +  int a, b = 3; +  for (a = 0; a < b; a++) { +  ret+=({a,b}); +  if (a % 2) b-=-1; +  } +  return equal(ret,({0,3,1,3,2,4,3,4,4,5})); + ]],1) +  +    test_compile_error([[void foo() { 1++; }]])   test_compile_error([[void foo() { return destruct(this_object()); }]])   test_any([[class foo { constant x=17; }; class bar { inherit foo; constant x=18; }; return bar()->x;]],18)