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);
|
