Index: trunk/PS-IPP-PSFTP/t/02_parse.t
===================================================================
--- trunk/PS-IPP-PSFTP/t/02_parse.t	(revision 5249)
+++ trunk/PS-IPP-PSFTP/t/02_parse.t	(revision 5251)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 02_parse.t,v 1.3 2005-10-08 01:21:46 jhoblitt Exp $
+# $Id: 02_parse.t,v 1.4 2005-10-08 01:56:05 jhoblitt Exp $
 
 use strict;
@@ -10,7 +10,8 @@
 use lib qw( ./lib ./t );
 
-use Test::More tests => 31;
+use Test::More tests => 33;
 
 use PS::IPP::PSFTP::Parser;
+use Test::Warn;
 
 my $example1 =<<END;
@@ -85,16 +86,17 @@
 }
 
-{
+warning_like {
     my $results = $parser->parse(<<END);
 2005-08-06|19:30:01|telescope_2005-08-06T19:30:01||foo=bar:baz=baz|8640|c462d570deb517d9bd92e5bb6a21cc86|http://flaxen.ifa.hawaii.edu/otis/data/metadata/telescope_2005-08-06T19:30:01
 END
     is($results, undef, "field not allowed to be null");
-}
+} qr/record: .*? is missing required field/,
+    "warning for null required field";
 
-
-{
+warning_like {
 my $results = $parser->parse(<<END);
 2005-08-06|19:30:01|telescope_2005-08-06T19:30:01|foo=bar:baz=baz|8640|c462d570deb517d9bd92e5bb6a21cc86|http://flaxen.ifa.hawaii.edu/otis/data/metadata/telescope_2005-08-06T19:30:01
 END
     is($results, undef, "not enough fields");
-}
+} qr/record: .*? is missing required field/,
+    "warning for missing required field";