gentoo-overlay/dev-perl/MIME-Lite-HTML/files/MIME-Lite-HTML-1.240.0-tests1.patch

From 0a67f501c8af5585af7fec08cbe0964b1a235b93 Mon Sep 17 00:00:00 2001
From: Peter Mottram <peter@sysnix.com>
Date: Thu, 12 May 2016 16:48:38 +0200
Subject: [PATCH] force header ordering in tests and ignore blank lines in
 diffs

This fixes effects of hash randomisation and line-break changes in
MIME::Lite.
---
 t/20create_image_part.t |  7 +++++++
 t/50generic.t           | 20 +++++++++++++-------
 2 files changed, 20 insertions(+), 7 deletions(-)

diff --git a/t/20create_image_part.t b/t/20create_image_part.t
index 0df935f..4de4440 100644
--- a/t/20create_image_part.t
+++ b/t/20create_image_part.t
@@ -8,6 +8,13 @@ use Cwd;
 
 # For create ref file, use perl -Iblib/lib t/20create_image_part.t 1
 
+MIME::Lite->field_order(
+    'mime-version',     'content-id',
+    'content-location', 'content-transfer-encoding',
+    'content-type',     'subject',
+    'to',               'from'
+);
+
 my $t = "/var/tmp/mime-lite-html-tests";
 my $p = cwd;
 my $o = (system("ln -s $p/t $t")==0);
diff --git a/t/50generic.t b/t/50generic.t
index 5ba7895..76b879d 100644
--- a/t/50generic.t
+++ b/t/50generic.t
@@ -10,6 +10,12 @@ use Cwd;
   URI::URL->strict(1);
 }
 
+MIME::Lite->field_order(
+    'mime-version',     'content-id',
+    'content-location', 'content-transfer-encoding',
+    'content-type',     'subject',
+    'to',               'from'
+);
 
 # For create ref file, use perl -Iblib/lib t/50generic.t 1
 
@@ -47,11 +53,11 @@ foreach my $it ('cid', 'location', 'extern') {
 	or die "Can't create $f.created_by_test:$!";
       print PROD $rep;
       close(PROD);
-    my $r = `diff $ref $f.created_by_test`;
+    my $r = `diff -B $ref $f.created_by_test`;
       cmp_ok($mailHTML->size, ">", (stat($ref))[7], "Same size");
       cmp_ok($mailHTML->size*0.945, "<", (stat($ref))[7], "Same size");
       is($r, "", $ref);
-      unlink("$f.created_by_test");
+      #unlink("$f.created_by_test");
     }
     # for create ref file
     elsif ($ARGV[0]) {
@@ -88,11 +94,11 @@ foreach my $it ('cid', 'location', 'extern') {
 	or die "Can't create $f.created_by_test:$!";
       print PROD $rep;
       close(PROD);
-    my $r = `diff $ref $f.created_by_test`;
+    my $r = `diff -B $ref $f.created_by_test`;
       cmp_ok($mailHTML->size, ">", (stat($ref))[7], "Same size");
       cmp_ok($mailHTML->size*0.945, "<", (stat($ref))[7], "Same size");
       is($r, "", $ref);
-      unlink("$f.created_by_test");
+      #unlink("$f.created_by_test");
     }
     # for create ref file
     elsif ($ARGV[0]) {
@@ -130,11 +136,11 @@ foreach my $it ('cid', 'location', 'extern') {
 	or die "Can't create $f.created_by_test:$!";
       print PROD $rep;
       close(PROD);
-    my $r = `diff $ref $f.created_by_test`;
+    my $r = `diff -B $ref $f.created_by_test`;
       cmp_ok($mailHTML->size, ">", (stat($ref))[7], "Same size");
       cmp_ok($mailHTML->size*0.945, "<", (stat($ref))[7], "Same size");
       is($r, "", $ref);
-      unlink("$f.created_by_test");
+      #unlink("$f.created_by_test");
     }
     # for create ref file
     elsif ($ARGV[0]) {
@@ -156,4 +162,4 @@ my $mailHTML = new MIME::Lite::HTML
 my %vars = ( 'perl' => 'fast', 'lng' => 'Ruby');
 cmp_ok($mailHTML->fill_template('Perl is <? $perl ?>, <? $lng ?> suck',\%vars),
        'eq', 'Perl is fast, Ruby suck',"Call of fill_template do his job");
-unlink($t);
+#unlink($t);