#! /usr/bin/perl

#   Copyright (C)  2000    Daniel A. Atkinson
#   Copyright (C)  2004    Ivano Primi  <ivano.primi@tin.it>    

#   Copying and distribution of this file, with or without modification,
#   are permitted in any medium without royalty provided the copyright
#   notice and this notice are preserved.

# Perl script to extract sample test output appended as a
# comment to the test source code.
# syntax:  testex < source.c

$pp = 0;
while($ln=<>){
  if($ln =~ m[Test output] ){ $pp=1; }
  if($pp == 1){ print $ln; }
}
