From: Eric Gillespie <epg@pretzelnet.org>
Date: Tue, 8 Mar 2022 04:00:46 +0000 (-0600)
Subject: Two more read_tags tests.
X-Git-Url: https://diplodocus.org/git/flac-archive/commitdiff_plain/12473a167afb108bb499469f847a205224ef9671?hp=028dedf7cfc028298e55bf07ef7ed41461b0f706

Two more read_tags tests.
---

diff --git a/t/read_tags.t b/t/read_tags.t
index ff7a651..a694db5 100644
--- a/t/read_tags.t
+++ b/t/read_tags.t
@@ -1,7 +1,7 @@
 use v5.12;
 use warnings;
 
-use Test::Simple tests => 4;
+use Test::Simple tests => 6;
 
 use Test::Differences;
 use Test::Exception;
@@ -100,11 +100,13 @@ eq_or_diff
 $fh = str_file_handle(<<EOF);
 lead off with junk
 EOF
+throws_ok { read_tags($fh) } qr/no field name in:  lead off with junk/;
 
 $fh = str_file_handle(<<EOF);
 ARTIST=Reba McEntire
-starteed off good but went bad...
+started off good but went bad...
 EOF
+throws_ok { read_tags($fh) } qr/no field name in:  started off good/;
 
 exit;
 
diff --git a/tags.pl b/tags.pl
index 301b1dd..2c04fb9 100644
--- a/tags.pl
+++ b/tags.pl
@@ -93,7 +93,7 @@ sub read_tags {
                 warn("looks like DESCRIPTION had multiple lines; discarding and returning early: $_");
                 last
             }
-            die("no field name in $_");
+            die("no field name in:  $_");
         }
         $name = $1;
         # TODO validate $name