#
################################################################################
#
-# $Revision: 19 $
+# $Revision: 20 $
# $Author: mhx $
-# $Date: 2005/01/31 08:10:50 +0100 $
+# $Date: 2005/03/10 18:45:54 +0100 $
#
################################################################################
#
$tmpl =~ s/__SOURCE__/$file/mg;
$tmpl =~ s/__PLAN__/$spec->{OPTIONS}{tests}{plan}/mg;
$tmpl =~ s/^__TESTS__$/$spec->{tests}/mg;
-
+
open FH, ">$testfile" or die "$testfile: $!\n";
print FH $tmpl;
close FH;