From 12473a167afb108bb499469f847a205224ef9671 Mon Sep 17 00:00:00 2001
From: Eric Gillespie <epg@pretzelnet.org>
Date: Mon, 7 Mar 2022 22:00:46 -0600
Subject: [PATCH] Two more read_tags tests.

---
 t/read_tags.t | 6 ++++--
 tags.pl       | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

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
-- 
2.56.0