1 package OpenSSL::Test::Utils;
7 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
10 @EXPORT = qw(disabled);
14 OpenSSL::Test::Utils - test utility functions
18 use OpenSSL::Test::Utils;
24 This module provides utility functions for the testing framework.
32 =item B<disabled ARRAY>
34 In a scalar context returns 1 if any of the features in ARRAY is disabled.
36 In an array context returns an array with each element set to 1 if the
37 corresponding feature is disabled and 0 otherwise.
47 #print STDERR "Running check_disabled\n";
48 foreach (run(app(["openssl", "list", "-disabled"]), capture => 1)) {
50 next if /:/; # skip header
57 # list of features to check
59 check_disabled() unless $disabled_set;
63 push @ret, exists $disabled{lc $_} ? 1 : 0;
68 return 1 if exists $disabled{lc $_};
79 Stephen Henson E<lt>steve@openssl.orgE<gt> with inspiration
80 from Richard Levitte E<lt>levitte@openssl.orgE<gt>