Codebase list libcryptx-perl / 02df60a
tests related cosmetics Karel Miko 6 years ago
2 changed file(s) with 53 addition(s) and 9 deletion(s). Raw diff Collapse all Expand all
88 my $ok;
99 END { die "Could not load all modules" unless $ok }
1010
11 use CryptX;
11 use Crypt::AuthEnc::CCM;
12 use Crypt::AuthEnc::ChaCha20Poly1305;
13 use Crypt::AuthEnc::EAX;
14 use Crypt::AuthEnc::GCM;
15 use Crypt::AuthEnc::OCB;
16 use Crypt::AuthEnc;
17 use Crypt::Checksum::Adler32;
18 use Crypt::Checksum::CRC32;
19 use Crypt::Checksum;
1220 use Crypt::Cipher::AES;
1321 use Crypt::Cipher::Anubis;
1422 use Crypt::Cipher::Blowfish;
3543 use Crypt::Cipher::Twofish;
3644 use Crypt::Cipher::XTEA;
3745 use Crypt::Cipher;
46 use Crypt::Digest::BLAKE2b_160;
47 use Crypt::Digest::BLAKE2b_256;
48 use Crypt::Digest::BLAKE2b_384;
49 use Crypt::Digest::BLAKE2b_512;
50 use Crypt::Digest::BLAKE2s_128;
51 use Crypt::Digest::BLAKE2s_160;
52 use Crypt::Digest::BLAKE2s_224;
53 use Crypt::Digest::BLAKE2s_256;
3854 use Crypt::Digest::CHAES;
3955 use Crypt::Digest::MD2;
4056 use Crypt::Digest::MD4;
4763 use Crypt::Digest::SHA224;
4864 use Crypt::Digest::SHA256;
4965 use Crypt::Digest::SHA384;
66 use Crypt::Digest::SHA3_224;
67 use Crypt::Digest::SHA3_256;
68 use Crypt::Digest::SHA3_384;
69 use Crypt::Digest::SHA3_512;
5070 use Crypt::Digest::SHA512;
71 use Crypt::Digest::SHA512_224;
72 use Crypt::Digest::SHA512_256;
73 use Crypt::Digest::SHAKE;
5174 use Crypt::Digest::Tiger192;
5275 use Crypt::Digest::Whirlpool;
5376 use Crypt::Digest;
77 use Crypt::KeyDerivation;
78 use Crypt::Mac::BLAKE2b;
79 use Crypt::Mac::BLAKE2s;
5480 use Crypt::Mac::F9;
5581 use Crypt::Mac::HMAC;
5682 use Crypt::Mac::OMAC;
5783 use Crypt::Mac::Pelican;
5884 use Crypt::Mac::PMAC;
85 use Crypt::Mac::Poly1305;
5986 use Crypt::Mac::XCBC;
87 use Crypt::Mac;
88 use Crypt::Misc;
6089 use Crypt::Mode::CBC;
90 use Crypt::Mode::CFB;
91 use Crypt::Mode::CTR;
6192 use Crypt::Mode::ECB;
6293 use Crypt::Mode::OFB;
63 use Crypt::Mode::CFB;
64 use Crypt::Mode::CTR;
65 use Crypt::PK::RSA;
94 use Crypt::Mode;
95 use Crypt::PK::DH;
6696 use Crypt::PK::DSA;
6797 use Crypt::PK::ECC;
68 use Crypt::PK::DH;
69 use Crypt::Checksum;
70 use Crypt::Checksum::Adler32;
71 use Crypt::Checksum::CRC32;
98 use Crypt::PK::RSA;
99 use Crypt::PK;
100 use Crypt::PRNG::ChaCha20;
101 use Crypt::PRNG::Fortuna;
102 use Crypt::PRNG::RC4;
103 use Crypt::PRNG::Sober128;
104 use Crypt::PRNG::Yarrow;
105 use Crypt::PRNG;
106 use Crypt::Stream::ChaCha;
107 use Crypt::Stream::RC4;
108 use Crypt::Stream::Salsa20;
109 use Crypt::Stream::Sober128;
110 use Crypt::Stream::Sosemanuk;
111 use CryptX;
112 use Math::BigInt::LTM;
72113
73114 diag( "osname = $Config{osname}" );
74115 diag( "myarchname = $Config{myarchname}" );
22
33 use Test::More;
44
5 plan skip_all => "set TEST_POD to enable this test (developer only!)" unless $ENV{TEST_POD};
56 plan skip_all => "File::Find not installed" unless eval { require File::Find };
67 plan tests => 1;
78
1415
1516 my @err;
1617 my $cryptx = _read("lib/CryptX.pm");
18 my $compile_t = _read("t/001_compile.t");
1719 my @files;
1820 File::Find::find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib');
1921
2830 $m =~ s|[\\/]|::|g;
2931 $m =~ s|^lib::||;
3032 $m =~ s|\.pm$||;
31 push @err, "ERROR: '$m' is missing in CryptX" unless $cryptx =~ /L<$m>/s || $m =~ /^(CryptX|Math::BigInt::LTM|Crypt::(PK|Mode|Mac|AuthEnc))$/;
33 push @err, "ERROR: '$m' is missing in CryptX.pm" unless $cryptx =~ /L<$m>/s || $m =~ /^(CryptX|Math::BigInt::LTM|Crypt::(PK|Mode|Mac|AuthEnc))$/;
34 push @err, "ERROR: '$m' is missing in 001_compile.t" unless $compile_t =~ /\nuse $m;/s;
3235 eval "use $m; 1;" or push @err, "ERROR: 'use $m' failed";
3336 }
3437