pike.git/ src/ testsuite.in

1999-06-01

1999-06-01 11:34:40 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

• 34afd012741f7cd8ad3a7ef18751bdb23c6314f8 (14 lines) (+11/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

improved test for compiling all modules

Rev: src/testsuite.in:1.172

1: - stest_true([["$Id: testsuite.in,v 1.171 1999/05/31 18:45:45 mast Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.172 1999/06/01 11:34:40 mirar Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
3294:   ]])      test_program([[ + int ok=1; +    void test_dir(string dir)   {    foreach(get_dir(dir), string s)
3309:    {    if(glob("*.pike",file) || glob("*.pmod",file))    { -  (program)file; +  mixed err=catch { (program)file; }; +  if (err) +  { +  werror("test: failed to compile %O\n",file); +  ok=0;    }    }    }    }    } -  + }   int a()   {    Array.map(master()->pike_module_path,test_dir); -  return 1; +  return ok;   }   ]])