Branch: Tag:

2004-05-02

2004-05-02 01:51:56 by Martin Nilsson <mani@lysator.liu.se>

Look for and remove markers.

Rev: bin/test_pike.pike:1.100

1:   #! /usr/bin/env pike    - /* $Id: test_pike.pike,v 1.99 2004/04/23 16:38:45 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.100 2004/05/02 01:51:56 nilsson Exp $ */      #if !constant(_verify_internals)   #define _verify_internals()
71:    exit(1);    }    +  if(has_prefix(tests, "START")) { +  tests = tests[6..]; +  if(!has_suffix(tests, "END\n")) +  werror("%s: Missing end marker.\n", fn); +  else +  tests = tests[..sizeof(tests)-1-4]; +  } +     tests = tests/"\n....\n";    return tests[0..sizeof(tests)-2];   }