Changeset 5249

Timestamp:

Oct 7, 2005, 3:21:46 PM (21 years ago)

Author:

jhoblitt

Message:

add tests for "field not allowed to be null" and "not enough fields"

File:

• trunk/PS-IPP-PSFTP/t/02_parse.t (modified) (3 diffs)

trunk/PS-IPP-PSFTP/t/02_parse.t

@@ -3 +3 @@
 # 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 +10 @@
 use lib qw( ./lib ./t );
 
-use Test::More qw( no_plan );
+use Test::More tests => 31;
 
 use PS::IPP::PSFTP::Parser;
@@ -84 +84 @@
 }
 }
+
+{
+    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");
+}