Lines Matching +full:data +full:- +full:shift

2 # Copyright 2015-2021 The OpenSSL Project Authors. All Rights Reserved.
27     die "Missing option -type" unless $opts{-type};
28     die "Missing option -in" unless $opts{-in};
29     my $testtype = $opts{-type};
30     my $t = $opts{-in};
31     my $prefix = $opts{-prefix} // $testtype;
37     if (defined $opts{-args}) {
38         @openssl_args = @{$opts{-args}} if ref $opts{-args} eq 'ARRAY';
39         @openssl_args = ($opts{-args}) if ref $opts{-args} eq '';
49 	+ $n*($n-1);		# comparing first conversion to each form in A with B
50     $totaltests-- if ($testtype eq "p7d"); # no comparison of original test file
51     $totaltests -= $n if ($testtype eq "pvk"); # no comparisons of the pvk form
58 	$init = ok(run(app([@cmd, "-in", $t, "-out", "$prefix-fff.p"])),
61 	$init = ok(copy($t, "$prefix-fff.p"), 'initializing');
64 	diag("Trying to copy $t to $prefix-fff.p : $!");
72 		      "-in", "$prefix-fff.p",
73 		      "-inform", "p",
74 		      "-out", "$prefix-f.$to",
75 		      "-outform", $to])),
76 	     "p -> $to");
82 			  "-in", "$prefix-f.$from",
83 			  "-inform", $from,
84 			  "-out", "$prefix-ff.$from$to",
85 			  "-outform", $to])),
86 		 "$from -> $to");
91 	  is(cmp_text("$prefix-fff.p", "$prefix-f.p"), 0,
98 	      is(cmp_text("$prefix-f.$to", "$prefix-ff.$from$to"), 0,
114     $_ = shift @_;
115     my $pattern = shift @_;
116     open(DATA, $_) or return 0;
117     $_= join('', <DATA>);
118     close(DATA);
123     my $cert = shift @_;
124     my $pattern = shift @_;
125     my $expected = shift @_;
126     my $name = shift @_;
128     run(app(["openssl", "x509", "-noout", "-text", "-in", $cert, "-out", $out]));
140     my $filename = shift @_;
141     open(DATA, $filename) or return 0;
142     chomp(my @lines = <DATA>);
143     close(DATA);
148     my $cert = shift @_;
149     my $expected = shift @_;
150     my $exts = shift @_;
151     my $name = shift @_;
153     run(app(["openssl", "x509", "-noout", "-ext", $exts,
154              "-in", $cert, "-out", $out]));