die "$progname: Multiple suites in the same file ($infile) are not supported yet\n" if length($suite_name);
($suite_name,$suite_title)=($1,$2);
die "$progname: Multiple suites in the same file ($infile) are not supported yet\n" if length($suite_name);
($suite_name,$suite_title)=($1,$2);
if (m/XBT_TEST_UNIT\(\w*"([^"]*)"\w*,([^,]*),(.*?)\)/) { #"{
die "$progname: multiply defined unit in file $infile: $1\n" if (defined($tests{$1}));
if (m/XBT_TEST_UNIT\(\w*"([^"]*)"\w*,([^,]*),(.*?)\)/) { #"{
die "$progname: multiply defined unit in file $infile: $1\n" if (defined($tests{$1}));