[Module-build-checkins] Module-Build/t notes.t,1.19,1.20

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20042/t

Modified Files:
	notes.t 
Log Message:
Fix undef vs 0 vs '' in notes()

Index: notes.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- notes.t	9 Jan 2006 01:18:15 -0000	1.19
+++ notes.t	2 Feb 2006 01:49:21 -0000	1.20
@@ -2,7 +2,7 @@
 
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
-use MBTest tests => 8;
+use MBTest tests => 11;
 
 use Cwd ();
 my $cwd = Cwd::cwd;
@@ -46,6 +46,13 @@
 $mb->notes(foo => 'bar');
 is $mb->notes('foo'), 'bar';
 
+# Check undef vs. 0 vs ''
+foreach my $val (undef, 0, '') {
+  $mb->notes(null => $val);
+  is $mb->notes('null'), $val;
+}
+
+
 ###################################
 # Make sure notes set before create_build_script() get preserved
 $mb = Module::Build->new(module_name => $dist->name);