pike.git/ src/ testsuite.in

2007-06-18

2007-06-18 00:42:53 by Martin Stjernholm <mast@lysator.liu.se>

• 27d033a7839c3ff40c0a5b7b698c44d61180a572 (20 lines) (+3/-17) ^{[ Show | Annotate ]}
  Branch: 7.9

Use Tools.Testsuite.

Rev: src/test_resolve.pike:1.4
Rev: src/testsuite.in:1.785

1:   START_MARKER - test_true([["$Id: testsuite.in,v 1.784 2007/06/17 23:34:04 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.785 2007/06/18 00:42:52 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
10980:   test_tests([[   array a()   { -  Stdio.File p = Stdio.File(); -  object pid = Process.create_process(RUNPIKE_ARRAY + -  ({ "]]SRCDIR[[/test_resolve.pike" }), -  ([ "stdout":p->pipe(Stdio.PROP_IPC) ])); -  __signal_watchdog(); -  string results = lower_case(p->read()); -  __signal_watchdog(); -  int err = pid->wait(); -  int ok; -  int failed; -  if (((sscanf(results, "%*sok:%d", ok) != 2) + -  (sscanf(results, "%*sfailed:%d", failed) != 2)) == 2) { -  // No "ok", and no "failed". -  return ({ err, results }); +  return Tools.Testsuite.run_script ("]]SRCDIR[[/test_resolve.pike");   } -  return ({ ok, failed }); - } +    ]])      // - modifiers, compile time type checks