Merge pull request #11 from ikedas/basic-tests by ikedas

Adding basic tests and so on

Author: ikedas

.gitlab-ci.yml

@@ -6,12 +6,13 @@
     - perl -v
   script:
     - cpanm --installdeps --notest .
+    - cpanm --notest Test::Compile::Internal
+    - cpanm --notest CGI
     - cpanm --notest Unicode::String Unicode::MapUTF8
-    - for i in lib/*.pl lib/MHonArc/*.pm lib/MHonArc/*/*.pm; do perl -Ilib -c $i; done
     - perl Makefile.PL
     - make
-    - make install
-    - make tardist
+    - make disttest
+    - make dist
     - cpanm -L local MHonArc-*.tar.gz
     - make clean
 
@@ -37,3 +38,5 @@
   <<: *job
 "5.30":
   <<: *job
+"5.32":
+  <<: *job

.travis.yml

@@ -1,6 +1,7 @@
 language: perl
 
 perl:
+  - "5.32"
   - "5.30"
   - "5.28"
   - "5.26"
@@ -21,11 +22,12 @@ before_script:
 
 script:
   - cpanm --installdeps --notest .
+  - cpanm --notest Test::Compile::Internal
+  - cpanm --notest CGI
   - cpanm --notest Unicode::String Unicode::MapUTF8
-  - for i in lib/*.pl lib/MHonArc/*.pm lib/MHonArc/*/*.pm; do perl -Ilib -c $i || exit 1; done
   - perl Makefile.PL
   - make
-  - make install
-  - make tardist
+  - make disttest
+  - make dist
   - cpanm -L local MHonArc-*.tar.gz
   - make clean

MANIFEST

@@ -532,10 +532,14 @@ man/mha-dbrecover.1
 man/mha-decode.1
 man/mhonarc.1
 MANIFEST			This list of files
+MANIFEST.SKIP
 mha-dbedit
 mha-dbrecover
 mha-decode
 mhonarc
 README.txt
 RELNOTES
+t/compile.t
+t/readmail-MAILhead_get_disposition.t
 TODO
+xt/perltidy.t

MANIFEST.SKIP

@@ -0,0 +1,38 @@
+# ExtUtils::MakeMaker
+^MANIFEST[.]bak
+^Makefile$
+^Makefile[.]old$
+^blib/
+^MakeMaker-\d
+^pm_to_blib$
+^pm_to_blib[.]ts$
+^MHonArc-[.\d_]+[.]tar[.]gz$
+
+# MYMETA.* files
+^MYMETA[.]
+
+# PerlTidy
+^[.]perltidyrc$
+^[.]tidyall[.]d/
+
+# Git
+\B[.]git\b
+\B[.]gitignore\b
+
+# GitHub
+^[.]travis[.]yml$
+^[.]github/
+
+# Gitlab
+^[.]gitlab-ci[.]yml$
+
+# Temporary/backup files
+^#
+^~
+~$
+[.]bak$
+[.]old$
+[.]rej$
+[.]swp$
+[.]tmp$
+

Makefile.PL

@@ -32,6 +32,11 @@ WriteMakefile(
             }
         },
         prereqs => {
+            build => {
+                requires => {
+                    'Test::Compile::Internal' => 0,
+                },
+            },
             runtime => {
                 recommends => {
                     'Digest::MD5'  => 0,

t/compile.t

@@ -0,0 +1,20 @@
+# -*- indent-tabs-mode: nil; -*-
+# vim:ft=perl:et:sw=4
+
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+    eval 'use Test::Compile::Internal';
+    $Test::Compile::Internal::VERSION or plan skip_all => 'Test::Compile::Internal required';
+}
+
+my $test = Test::Compile::Internal->new;
+grep { ok $test->pl_file_compiles($_), "$_ compiles" }
+    qw{mha-dbedit mha-dbrecover mha-decode mhonarc},
+    qw{admin/mhaadmin.cgi extras/mha-mhedit/mha-mhedit};
+$test->all_files_ok(qw{contrib examples lib});
+
+done_testing();
+

t/readmail-MAILhead_get_disposition.t

@@ -0,0 +1,41 @@
+# -*- indent-tabs-mode: nil; -*-
+# vim:ft=perl:et:sw=4
+
+use strict;
+use warnings;
+use English qw(no_match_vars);
+use Test::More;
+
+require 'mhopt.pl';
+require 'readmail.pl';
+
+mhonarc::mhinit_readmail_vars();
+
+my @tests = map { [split /\n[.]\n/, $_] } split /\n[.][.]\n*/,
+    do { local $RS; <DATA> };
+
+foreach my $test (@tests) {
+    my ($name, $mesg, $result) = @$test;
+    my ($fields, $header_txt) = readmail::MAILread_header(\$mesg);
+    my ($disp, $file, $raw, $html_name) =
+        readmail::MAILhead_get_disposition($fields);
+
+    is $file, $result, $name;
+}
+
+done_testing();
+
+__END__
+Savannah#511: Non-ASCII encoded data is not decoded in filename disposition
+.
+Content-type: application/pdf;
+      name="=?iso-8859-1?Q?CT-564.pdf?="
+Content-Disposition: attachment; filename="=?iso-8859-1?Q?CT-564.pdf?="
+Content-transfer-encoding: base64
+
+XXX
+
+.
+CT-564.pdf
+..
+