Test.pm - OpenGrok cross reference for /openssl/util/perl/OpenSSL/Test.pm

Lines Matching refs:_
139     my %opts = @_;
202     my %opts = @_;
313     my %opts = @_;
327     my %opts = @_;
338     my %opts = @_;
349     my %opts = @_;
360     my %opts = @_;
374     my %opts = @_;
433     my %opts = @_;
474 	local $_;
478 	    my $l = ($opts{prefix} // "") . $_;
526     my $failure = scalar(grep { $_ == 0; } $tb->summary);
561     my $d = __bldtop_dir(@_);	# This caters for operating systems that have
583     my $f = __bldtop_file(@_);
604     my $d = __srctop_dir(@_);	# This caters for operating systems that have
626     my $f = __srctop_file(@_);
646     my $d = __data_dir(@_);
666     my $f = __data_file(@_);
688     my $d = catdir($directories{RESULTS},@_);
710     my $f = catfile(result_dir(),@_);
730     my @cmds = @_;
738 		my ($c, $dc, @el) = $_->(++$counter);
786 	$saved_hooks{$_} = $hooks{$_}	if exists($hooks{$_});
787 	$hooks{$_} = $opts{$_};
793 	$hooks{$_} = $saved_hooks{$_};
828     my %opts = @_;
907     return ok(!$_[0], @_[1..$#_]) if defined $ENV{FIPS_MODE};
908     return ok($_[0], @_[1..$#_]);
912     return isnt($_[0], $_[1], @_[2..$#_]) if defined $ENV{FIPS_MODE};
913     return is($_[0], $_[1], @_[2..$#_]);
917     return is($_[0], $_[1], @_[2..$#_]) if defined $ENV{FIPS_MODE};
918     return isnt($_[0], $_[1], @_[2..$#_]);
1007     return abs2rel(catfile($directories{SRCTOP},@_,$f),getcwd);
1013     return abs2rel(catdir($directories{SRCTOP},@_), getcwd);
1020     return abs2rel(catfile($directories{BLDTOP},@_,$f), getcwd);
1026     return abs2rel(catdir($directories{BLDTOP},@_), getcwd);
1056     my $out = catfile($directories{BLDTEST},@_,$f . $e);
1057     $out = catfile($directories{SRCTEST},@_,$f) unless -f $out;
1066     my $out = catfile($directories{BLDAPPS},@_,$f . $e);
1067     $out = catfile($directories{SRCAPPS},@_,$f) unless -f $out;
1076     my $out = catfile($directories{BLDFUZZ},@_,$f . $e);
1077     $out = catfile($directories{SRCFUZZ},@_,$f) unless -f $out;
1087     return catfile($directories{SRCDATA},@_,$f);
1095     return catdir($directories{SRCDATA},@_);
1109     my %opts = @_;
1147 	if (!file_name_is_absolute($directories{$_})) {
1148 	    my $oldpath = abs_path($directories{$_});
1155 	    $tmp_directories{$_} = $newpath;
1163 	if (!file_name_is_absolute($ENV{$_})) {
1164 	    my $oldpath = abs_path($ENV{$_});
1171 	    $tmp_ENV{$_} = $newpath;
1182         $directories{$_} = $tmp_directories{$_};
1185         $ENV{$_} = $tmp_ENV{$_};
1276     my %opts = @_;
1280     my $fileornull = sub { $_[0] ? $_[0] : $null; };
1322     Test::More::subtest @_;