Index: trunk/PS-IPP-PSFTP/t/02_parse.t
===================================================================
--- trunk/PS-IPP-PSFTP/t/02_parse.t	(revision 5236)
+++ trunk/PS-IPP-PSFTP/t/02_parse.t	(revision 5249)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 02_parse.t,v 1.2 2005-10-08 00:27:56 jhoblitt Exp $
+# $Id: 02_parse.t,v 1.3 2005-10-08 01:21:46 jhoblitt Exp $
 
 use strict;
@@ -10,5 +10,5 @@
 use lib qw( ./lib ./t );
 
-use Test::More qw( no_plan );
+use Test::More tests => 31;
 
 use PS::IPP::PSFTP::Parser;
@@ -84,2 +84,17 @@
 }
 }
+
+{
+    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");
+}
+
+
+{
+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");
+}