Cross Reference: /bind-9.11.3/contrib/idn/idnkit-1.0-src/lib/tests/testygen

Lines Matching refs:testsuite
61 # Create a new testsuite context.
76     my ($testsuite, $file, $lineinfo) = @_;
99 	$result = parse_line($testsuite, $parser, $line);
114     my ($testsuite, $parser, $line) = @_;
121 	    $result = parse_header($testsuite, $parser, $line);
124 	    $result = parse_endheader($testsuite, $parser, $line);
127 	    $result = parse_endheader($testsuite, $parser, $line)
128 		&& parse_startbody($testsuite, $parser, $line);
139 	    $result = parse_endheader($testsuite, $parser, $line);
142 	    $result = parse_endheader($testsuite, $parser, $line)
143 		&& parse_startbody($testsuite, $parser, $line);
154 	    $result = parse_startbody($testsuite, $parser, $line);
163 	    $result = parse_endbody($testsuite, $parser, $line);
165 	    $result = parse_body($testsuite, $parser, $line);
171 	    $result = parse_startheader($testsuite, $parser, $line);
194 	    $result = parse_startheader($testsuite, $parser, $line);
198 	    $result = parse_preamble($testsuite, $parser, $line);
210     my ($testsuite, $parser, $line) = @_;
226     my ($testsuite, $parser, $line) = @_;
247 	    if (defined($testsuite->{setups}->{$group})) {
256 	    if (defined($testsuite->{teardowns}->{$group})) {
266 		if (!defined($testsuite->{setups}->{$i})
267 		    && !defined($testsuite->{teardowns}->{$i})) {
302     my ($testsuite, $parser, $line) = @_;
318     my ($testsuite, $parser, $line) = @_;
323 	    $testsuite->{setups}->{$group} =
328 	    $testsuite->{teardowns}->{$group} =
332 	$testsuite->{ntests}++;
333 	push(@{$testsuite->{tests}}, '');
334 	push(@{$testsuite->{titles}}, $parser->{title});
336 	$testsuite->{tests}->[-1] .= "\n";
337 	$testsuite->{tests}->[-1] .= "$LINENO_MARK\n";
338 	$testsuite->{tests}->[-1] .= 
340 		    $testsuite->{ntests});
344 	    if (defined($testsuite->{setups}->{$group_names[$i]})) {
345 		$testsuite->{tests}->[-1] .= "\t\{\n";
346 		$testsuite->{tests}->[-1] .= "#undef EXIT__\n";
347 		$testsuite->{tests}->[-1] .= "#define EXIT__ exit${i}__\n";
348 		$testsuite->{tests}->[-1] .=
349 		    $testsuite->{setups}->{$group_names[$i]};
352 	$testsuite->{tests}->[-1] .= "$LINENO_MARK\n";
353 	$testsuite->{tests}->[-1] .= "\t\{\n";
354 	$testsuite->{tests}->[-1] .= "#undef EXIT__\n";
355 	$testsuite->{tests}->[-1] .= "#define EXIT__ exit__\n";
357 	    $testsuite->{tests}->[-1] .= 
366     my ($testsuite, $parser, $line) = @_;
370 	$testsuite->{setups}->{$group} .= $line;
372 	$testsuite->{teardowns}->{$group} .= $line;
374 	$testsuite->{tests}->[-1] .= $line;
381     my ($testsuite, $parser, $line) = @_;
385 	$testsuite->{tests}->[-1] .= "$LINENO_MARK\n";
386 	$testsuite->{tests}->[-1] .= "\t\}\n";
387 	$testsuite->{tests}->[-1] .= "  exit__:\n";
388 	$testsuite->{tests}->[-1] .= "\t;\n";
392 	    $testsuite->{tests}->[-1] .= "  exit${i}__:\n";
393 	    $testsuite->{tests}->[-1] .= "\t;\n";
394 	    if (defined($testsuite->{teardowns}->{$group_names[$i]})) {
395 		$testsuite->{tests}->[-1] .=
396 		    $testsuite->{teardowns}->{$group_names[$i]};
398 	    $testsuite->{tests}->[-1] .= "$LINENO_MARK\n";
399 	    $testsuite->{tests}->[-1] .= "\t\}\n";
402 	$testsuite->{tests}->[-1] .= "}\n";
409     my ($testsuite, $parser, $line) = @_;
412 	$testsuite->{preambles} .= generate_line_info(1, $parser->{file});
414     $testsuite->{preambles} .= $line;
424 # Output `$testsuite' as source codes of C.
427     my ($testsuite, $file, $lineinfo) = @_;
445     output_lines($testsuite->{preambles}, $generator, $handle, $lineinfo);
450         . "#include \"testsuite.h\"\n"
455     for (my $i = 0; $i < $testsuite->{ntests}; $i++) {
456 	output_lines($testsuite->{tests}->[$i], $generator, $handle,
471     for (my $i = 0; $i < $testsuite->{ntests}; $i++) {
472 	my $title = $testsuite->{titles}->[$i];
553 my $testsuite = new_testsuite();
554 parse_file($testsuite, $in_file, !$options{L});
555 output_tests($testsuite, $out_file, !$options{L});