ok(run(@_), $str);
}
-sub unsupported_pass {
- my $str = shift;
- TODO: {
- local $TODO = "Currently not supported";
-
- ok(run(@_), $str);
- }
-}
-
sub supported_fail {
my $str = shift;
ok(!run(@_), $str);
}
-sub unsupported_fail {
- my $str = shift;
- TODO: {
- local $TODO = "Currently not supported";
-
- ok(!run(@_), $str);
- }
-}
-
setup("test_genec");
plan skip_all => "This test is unsupported in a no-ec build"
my %params_encodings =
(
'named_curve' => \&supported_pass,
- 'explicit' => \&unsupported_pass
+ 'explicit' => \&supported_pass
);
my @output_formats = ('PEM', 'DER');
my %params_encodings =
(
'named_curve' => \&supported_fail,
- 'explicit' => \&unsupported_pass
+ 'explicit' => \&supported_pass
);
foreach my $curvename (@explicit_only_curves) {