Changeset 5251

Timestamp:

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

Author:

jhoblitt

Message:

add some warning tests

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.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 +10 @@
 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 +86 @@
 }
 
-{
+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";