Fixed more constraints in unit tests

tools/test.pl

@@ -289,32 +289,21 @@ sub get_module_constraints
 
     $constraints->[0]->[0] = $constraints->[2]->[0];
     $constraints->[0]->[1] = $constraints->[2]->[1];
-
-    $IS_OPTIMIZED = 1;
-  }
-
-  if (($constraints->[1]->[0] == -1) && ($constraints->[1]->[1] == -1))
-  {
-    # hash-mode doesn't have a pure kernel, use optimized salt settings
-
     $constraints->[1]->[0] = $constraints->[3]->[0];
     $constraints->[1]->[1] = $constraints->[3]->[1];
-  }
 
-  if (($constraints->[2]->[0] == -1) && ($constraints->[2]->[1] == -1))
+    $IS_OPTIMIZED = 1;
+  }
+  elsif (($constraints->[2]->[0] == -1) && ($constraints->[2]->[1] == -1))
   {
     # hash-mode doesn't have a optimized kernel, use pure password settings
 
     $constraints->[2]->[0] = $constraints->[0]->[0];
     $constraints->[2]->[1] = $constraints->[0]->[1];
-  }
-
-  if (($constraints->[3]->[0] == -1) && ($constraints->[3]->[1] == -1))
-  {
-    # hash-mode doesn't have a optimized kernel, use pure salt settings
-
     $constraints->[3]->[0] = $constraints->[1]->[0];
     $constraints->[3]->[1] = $constraints->[1]->[1];
+
+    $IS_OPTIMIZED = 0;
   }
 
   return $constraints;

tools/test_modules/m01500.pm

@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 
-sub module_constraints { [[0, 8], [2, 2], [0, 8], [2, 2], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 8], [2, 2], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m02100.pm

@@ -12,7 +12,7 @@ use Digest::MD4 qw (md4 md4_hex);
 use Crypt::PBKDF2;
 use Encode;
 
-sub module_constraints { [[0, 127], [0, 239], [0, 27], [0, 39], [-1, -1]] }
+sub module_constraints { [[0, 255], [0, 255], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m02500.pm

@@ -15,7 +15,7 @@ use Digest::SHA  qw (sha1 sha256);
 use Digest::HMAC qw (hmac);
 use MIME::Base64 qw (encode_base64);
 
-sub module_constraints { [[8, 63], [0, 32], [8, 63], [0, 32], [-1, -1]] }
+sub module_constraints { [[8, 63], [0, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m02711.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::MD5 qw (md5_hex);
 
-sub module_constraints { [[0, 255], [30, 30], [0, 55], [30, 30], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 55], [30, 30], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m03000.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Authen::Passphrase::LANManager;
 
-sub module_constraints { [[0, 7], [-1, -1], [0, 7], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 7], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m03100.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::CBC;
 
-sub module_constraints { [[0, 30], [0, 30], [0, 30], [0, 30], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 30], [0, 30], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m03200.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::Eksblowfish::Bcrypt qw (bcrypt en_base64);
 use MIME::Base64               qw (decode_base64);
 
-sub module_constraints { [[0, 72], [16, 16], [0, 72], [16, 16], [-1, -1]] }
+sub module_constraints { [[0, 72], [16, 16], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m06400.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [16, 16], [0, 55], [16, 16], [0, 55]] }
+sub module_constraints { [[0, 255], [16, 16], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m06500.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [16, 16], [0, 55], [16, 16], [0, 55]] }
+sub module_constraints { [[0, 255], [16, 16], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m06600.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::CBC;
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 255], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub get_random_agilekeychain_salt
 {

tools/test_modules/m06700.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [16, 16], [0, 255], [16, 16], [-1, -1]] }
+sub module_constraints { [[0, 255], [16, 16], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub to64
 {

tools/test_modules/m06800.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::CBC;
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [1, 15], [0, 255], [1, 15], [-1, -1]] }
+sub module_constraints { [[0, 255], [1, 15], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m06900.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::GOST qw (gost_hex);
 
-sub module_constraints { [[1, 32], [-1, -1], [1, 32], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [1, 32], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m07100.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 255], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m07200.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 255], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m08500.pm

@@ -11,7 +11,7 @@ use warnings;
 use Convert::EBCDIC qw (ascii2ebcdic);
 use Crypt::DES;
 
-sub module_constraints { [[1, 8], [1, 8], [1, 8], [1, 8], [-1, -1]] }
+sub module_constraints { [[1, 8], [1, 8], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m11500.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::CRC qw (crc32);
 
-sub module_constraints { [[0, 255], [8, 8], [0, 31], [8, 8], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [8, 8], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m11600.pm

@@ -13,7 +13,7 @@ use Digest::CRC qw (crc32);
 use Digest::SHA qw (sha256);
 use Encode;
 
-sub module_constraints { [[0, 255], [0, 16], [0, 27], [0, 16], [-1, -1]] }
+sub module_constraints { [[0, 255], [0, 16], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m12400.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::UnixCrypt_XS qw (crypt_rounds fold_password base64_to_int24 block_to_base64 int24_to_base64);
 
-sub module_constraints { [[1, 31], [4, 4], [1, 31], [4, 4], [-1, -1]] }
+sub module_constraints { [[1, 31], [4, 4], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m13000.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [32, 32], [0, 55], [32, 32], [-1, -1]] }
+sub module_constraints { [[0, 255], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m14000.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::DES;
 
-sub module_constraints { [[8, 8], [16, 16], [8, 8], [16, 16], [-1, -1]] }
+sub module_constraints { [[8, 8], [16, 16], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m14100.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Crypt::DES;
 
-sub module_constraints { [[24, 24], [16, 16], [24, 24], [16, 16], [-1, -1]] }
+sub module_constraints { [[24, 24], [16, 16], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m15300.pm

@@ -13,7 +13,7 @@ use Digest::MD4 qw (md4);
 use Digest::SHA qw (sha1 hmac_sha1);
 use Encode;
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 27], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub get_random_dpapimk_salt
 {

tools/test_modules/m15600.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::PBKDF2;
 use Digest::Keccak qw (keccak_256_hex);
 
-sub module_constraints { [[0, 255], [32, 32], [0, 55], [32, 32], [-1, -1]] }
+sub module_constraints { [[0, 255], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m15700.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::ScryptKDF qw (scrypt_raw);
 use Digest::Keccak   qw (keccak_256_hex);
 
-sub module_constraints { [[0, 255], [32, 32], [0, 55], [32, 32], [-1, -1]] }
+sub module_constraints { [[0, 255], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m15900.pm

@@ -14,7 +14,7 @@ use Digest::MD4 qw (md4);
 use Digest::SHA qw (sha1 hmac_sha1 hmac_sha512);
 use Encode;
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 27], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub get_random_dpapimk_salt
 {

tools/test_modules/m16000.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Text::Iconv;
 
-sub module_constraints { [[1, 8], [-1, -1], [1, 8], [-1, -1], [-1, -1]] }
+sub module_constraints { [[1, 8], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m16200.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::PBKDF2;
 use Crypt::Mode::ECB;
 
-sub module_constraints { [[0, 255], [32, 32], [0, 55], [32, 32], [-1, -1]] }
+sub module_constraints { [[0, 255], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m16300.pm

@@ -12,7 +12,7 @@ use Crypt::CBC;
 use Crypt::PBKDF2;
 use Digest::Keccak qw (keccak_256_hex);
 
-sub module_constraints { [[0, 255], [40, 40], [0, 55], [40, 40], [-1, -1]] }
+sub module_constraints { [[0, 255], [40, 40], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m16500.pm

@@ -13,7 +13,7 @@ use Digest::HMAC qw (hmac);
 use MIME::Base64 qw (encode_base64url decode_base64url);
 use JSON         qw (encode_json decode_json);
 
-sub module_constraints { [[0, 64], [-1, -1], [0, 55], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 64], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {
@@ -46,7 +46,7 @@ sub module_generate_hash
   {
     die "not supported hash\n";
   }
- 
+
   my $hash = sprintf ("%s.%s", $salt, encode_base64url ($digest, ""));
 
   return $hash;

tools/test_modules/m16700.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::PBKDF2;
 use Crypt::Mode::ECB;
 
-sub module_constraints { [[0, 255], [32, 32], [0, 55], [32, 32], [-1, -1]] }
+sub module_constraints { [[0, 255], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m16800.pm

@@ -12,7 +12,7 @@ use Crypt::PBKDF2;
 use Digest::SHA  qw (sha1);
 use Digest::HMAC qw (hmac_hex);
 
-sub module_constraints { [[8, 63], [-1, -1], [8, 63], [-1, -1], [-1, -1]] }
+sub module_constraints { [[8, 63], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m16900.pm

@@ -12,7 +12,7 @@ use Crypt::PBKDF2;
 use Digest::HMAC qw (hmac_hex);
 use Digest::SHA qw (sha256);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 255], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m17300.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::SHA3 qw (sha3_224_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m17400.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::SHA3 qw (sha3_256_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m17500.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::SHA3 qw (sha3_384_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m17600.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::SHA3 qw (sha3_512_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m17700.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::Keccak qw (keccak_224_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m17800.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::Keccak qw (keccak_256_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m17900.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::Keccak qw (keccak_384_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m18000.pm

@@ -10,7 +10,7 @@ use warnings;
 
 use Digest::Keccak qw (keccak_512_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
+sub module_constraints { [[-1, -1], [-1, -1], [0, 31], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m18100.pm

@@ -11,7 +11,7 @@ use warnings;
 use Digest::SHA  qw (sha1);
 use Digest::HMAC qw (hmac_hex);
 
-sub module_constraints { [[0, 255], [8, 12], [0, 255], [8, 12], [-1, -1]] }
+sub module_constraints { [[0, 255], [8, 12], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m18300.pm

@@ -11,7 +11,7 @@ use warnings;
 use Crypt::Mode::ECB;
 use Crypt::PBKDF2;
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 255], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m18400.pm

@@ -12,7 +12,7 @@ use Crypt::Mode::CBC;
 use Crypt::PBKDF2;
 use Digest::SHA qw (sha256 sha256_hex);
 
-sub module_constraints { [[0, 255], [32, 32], [0, 55], [32, 32], [-1, -1]] }
+sub module_constraints { [[0, 255], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m18500.pm

@@ -11,7 +11,7 @@ use warnings;
 use Digest::MD5  qw (md5_hex);
 use Digest::SHA1 qw (sha1_hex);
 
-sub module_constraints { [[0, 255], [-1, -1], [0, 55], [-1, -1], [-1, -1]] }
+sub module_constraints { [[0, 255], [-1, -1], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {

tools/test_modules/m18600.pm

@@ -12,7 +12,7 @@ use Crypt::GCrypt;
 use Crypt::PBKDF2;
 use Digest::SHA qw (sha1 sha1_hex);
 
-sub module_constraints { [[0, 51], [32, 32], [0, 51], [32, 32], [-1, -1]] }
+sub module_constraints { [[0, 51], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
 
 sub module_generate_hash
 {