Cross Reference: /bind-9.6-ESV-R11/contrib/idn/idnkit-1.0-src/lib/tests/testygen

Lines Matching refs:line
91     my ($result, $line);
93 	$line = $handle->getline();
94 	last if (!defined($line));
96 	chomp($line);
97 	$line .= "\n";
99 	$result = parse_line($testsuite, $parser, $line);
101 	    die sprintf("%s, at line %d\n",
107 	die "unexpected EOF, at line $.\n";
114     my ($testsuite, $parser, $line) = @_;
118 	if ($line =~ /^\/\/--/) {
120 	} elsif ($line =~ /^\/\//) {
121 	    $result = parse_header($testsuite, $parser, $line);
122 	} elsif ($line =~ /^\s*$/) {
124 	    $result = parse_endheader($testsuite, $parser, $line);
125 	} elsif ($line =~ /^\{\s*$/) {
127 	    $result = parse_endheader($testsuite, $parser, $line)
128 		&& parse_startbody($testsuite, $parser, $line);
135 	if ($line =~ /^\/\//) {
137 	} elsif ($line =~ /^\s*$/) {
139 	    $result = parse_endheader($testsuite, $parser, $line);
140 	} elsif ($line =~ /^\{\s*$/) {
142 	    $result = parse_endheader($testsuite, $parser, $line)
143 		&& parse_startbody($testsuite, $parser, $line);
150 	if ($line =~ /^\s*$/) {
152 	} elsif ($line =~ /^\{\s*$/) {
154 	    $result = parse_startbody($testsuite, $parser, $line);
161 	if ($line =~ /^\}\s*$/) {
163 	    $result = parse_endbody($testsuite, $parser, $line);
165 	    $result = parse_body($testsuite, $parser, $line);
169 	if ($line =~ /^\/\/\#/) {
171 	    $result = parse_startheader($testsuite, $parser, $line);
172 	} elsif ($line =~ /^\/\/--/) {
174 	} elsif ($line =~ /^\s*$/) {
182 	if ($line =~ /^\/\//) {
184 	} elsif ($line =~ /^\s*$/) {
192 	if ($line =~ /^\/\/\#/) {
194 	    $result = parse_startheader($testsuite, $parser, $line);
195 	} elsif ($line =~ /^\/\/--/) {
198 	    $result = parse_preamble($testsuite, $parser, $line);
210     my ($testsuite, $parser, $line) = @_;
212     if ($line =~ /^\/\/\#\s*(SETUP|TEARDOWN|TESTCASE)\s*$/) {
226     my ($testsuite, $parser, $line) = @_;
228     my $field = $line;
302     my ($testsuite, $parser, $line) = @_;
318     my ($testsuite, $parser, $line) = @_;
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) = @_;
409     my ($testsuite, $parser, $line) = @_;
414     $testsuite->{preambles} .= $line;
420     return "#line $lineno \"$file\"\n";
505     my ($line);
512 	$line = $1;
514 	if ($line eq $LINENO_MARK) {
516 		$handle->printf("#line %d \"%s\"\n", $generator->{lineno} + 1,
520 	    $handle->print("$line\n");