pike.git/ src/ testsuite.in

2000-10-13

2000-10-13 17:20:46 by Martin Nilsson <mani@lysator.liu.se>

• 36e4775a6e2b2b08bb5fc535780e7a41d5f1870f (31 lines) (+27/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

Reduce spam

Rev: src/modules/files/socktest.pike:1.14
Rev: src/testsuite.in:1.340

1: - test_true([["$Id: testsuite.in,v 1.339 2000/10/02 10:28:15 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.340 2000/10/13 17:20:46 nilsson Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
631:   #define indent(X) (X)      int maxdepth; + int quiet;      void low_generate(int depth,    array(string) code,
647:    if(!(tests & 63))    {    __signal_watchdog(); +  if(!quiet)    werror("\r%d: %d ",maxdepth,tests);    }   
709:   int a()   {    werror("Testing vtables and scope access.\n"); +  +  string testargs=getenv()->TESTARGS; +  if(testargs && +  (has_value(testargs/" ", "-q") || +  has_value(testargs/" ", "-quiet") ) ) +  quiet=1; +  return 1; +     int total_tests;    for(maxdepth=1;maxdepth<9 && !errors;maxdepth++)    {
716:    ({ "string X(){return \"X\";}" }),    "X",    "X",0); +  if(quiet) +  werror("Maxdepth %d\n",maxdepth); +  else    werror("\r%d: %d\n",maxdepth,tests);    total_tests+=tests;    tests=0;
2905:    // }}),    });    +  int quiet; +  string testargs=getenv()->TESTARGS; +  if(testargs && +  (has_value(testargs/" ", "-q") || +  has_value(testargs/" ", "-quiet") ) ) +  quiet=1; +  return 1; +     int test_failed = 0;    for (int test = 0; test < sizeof (destruct_order_tests); test++) {    [int nlive, int ndead, int nlnested, int ndnested, function(void:void) setup] =
2913:    array(int) idx = indices (allocate (objs));    int n = 1;    for (int f = nlive + ndead; f > 1; f--) n *= f; +  if(!quiet)    werror ("GC destruct order test %d, %d permutations \r", test, n);    while (n--) {    array(int) alloc_order = Array.permute (idx, n);