Some minor test.pl fixes, added m01000.pm

tools/install_modules.sh

@@ -32,6 +32,7 @@ cpan install Authen::Passphrase::LANManager \
              Crypt::Skip32                  \
              Crypt::Twofish                 \
              Crypt::UnixCrypt_XS            \
+             Data::Types                    \
              Digest::BLAKE2                 \
              Digest::CMAC                   \
              Digest::CRC                    \

tools/test.pl

@@ -24,7 +24,9 @@ is_in_array ($TYPE, $TYPES) or usage_exit ();
 
 is_whole ($MODE) or die "Mode must be a number\n";
 
-eval { require "m$MODE.pm" } or die "Could not load test module:\n$@";
+my $module = sprintf ("m%05d.pm", $MODE);
+
+eval { require $module; } or die "Could not load test module: $module\n$@";
 
 if ($TYPE eq 'single')
 {

tools/test_modules/m00000.pm

@@ -6,6 +6,7 @@
 ##
 
 use strict;
+use warnings;
 
 use Digest::MD5 qw (md5_hex);
 

tools/test_modules/m00100.pm

@@ -6,6 +6,7 @@
 ##
 
 use strict;
+use warnings;
 
 use Digest::SHA qw (sha1_hex);
 

tools/test_modules/m00110.pm

@@ -6,6 +6,7 @@
 ##
 
 use strict;
+use warnings;
 
 use Digest::SHA qw (sha1_hex);
 

tools/test_modules/m00120.pm

@@ -6,6 +6,7 @@
 ##
 
 use strict;
+use warnings;
 
 use Digest::SHA qw (sha1_hex);
 

tools/test_modules/m01000.pm

@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+
+##
+## Author......: See docs/credits.txt
+## License.....: MIT
+##
+
+use strict;
+use warnings;
+
+use Digest::MD4 qw (md4_hex);
+use Encode;
+
+sub module_generate_hash
+{
+  my $word = shift;
+
+  my $hash = md4_hex (encode ("UTF-16LE", $word));
+
+  return $hash;
+}
+
+sub module_verify_hash
+{
+  my $line = shift;
+
+  my ($hash, $word) = split ":", $line;
+
+  return unless defined $hash;
+  return unless defined $word;
+
+  $word = pack_if_HEX_notation ($word);
+
+  my $new_hash = module_generate_hash ($word);
+
+  return unless $new_hash eq $hash;
+
+  return $new_hash;
+}
+
+1;

tools/test_modules/m18400.pm

@@ -6,6 +6,7 @@
 ##
 
 use strict;
+use warnings;
 
 use Crypt::Mode::CBC;
 use Crypt::PBKDF2;

tools/test_modules/m18600.pm

@@ -6,6 +6,7 @@
 ##
 
 use strict;
+use warnings;
 
 use Crypt::GCrypt;
 use Crypt::PBKDF2;