Changeset 7865 for trunk/PS-IPP-Metadata-Config/t/02_examples.t

Timestamp:

Jul 11, 2006, 4:49:53 PM (20 years ago)

Author:

jhoblitt

Message:

change ->parse() to gracefully handle undef and empty strings

File:

• trunk/PS-IPP-Metadata-Config/t/02_examples.t (modified) (2 diffs)

trunk/PS-IPP-Metadata-Config/t/02_examples.t

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: 02_examples.t,v 1.4 2005-05-04 22:08:08 jhoblitt Exp $
+# $Id: 02_examples.t,v 1.5 2006-07-12 02:49:53 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 #$::RD_TRACE = 1;
 
-use Test::More tests => 6;
+use Test::More tests => 9;
 use PS::IPP::Metadata::Config;
 
 my $config_parser = PS::IPP::Metadata::Config->new;
+
+{
+    my $config = $config_parser->parse(undef);
+    is($config, undef, "parsing undef returns undef");
+}
+
+{
+    my $config = $config_parser->parse('');
+    is($config, undef, "parsing an empty string returns undef");
+}
+
+{
+    my $config = $config_parser->parse("\n\n\n\n\n");
+    is($config, undef, "parsing an empty string returns undef");
+}
 
 {