[Module-build-checkins] Module-Build/t notes.t,1.8,1.9
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-23 07:58:17
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29485/t Modified Files: notes.t Log Message: use Test::More Index: notes.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/notes.t,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- notes.t 10 May 2004 03:24:02 -0000 1.8 +++ notes.t 23 Jun 2005 07:58:08 -0000 1.9 @@ -1,7 +1,7 @@ - +use lib 't/lib'; use strict; -use Test; -plan tests => 9; + +use Test::More tests => 9; use Module::Build; ok(1); @@ -10,19 +10,19 @@ my $m = Module::Build->current; # This was set in Build.PL -ok $m->notes('foo'), 'bar'; +is $m->notes('foo'), 'bar'; # Try setting & checking a new value $m->notes(argh => 'new'); -ok $m->notes('argh'), 'new'; +is $m->notes('argh'), 'new'; # Change existing value $m->notes(foo => 'foo'); -ok $m->notes('foo'), 'foo'; +is $m->notes('foo'), 'foo'; # Change back so we can run this test again successfully $m->notes(foo => 'bar'); -ok $m->notes('foo'), 'bar'; +is $m->notes('foo'), 'bar'; ################################### # Make sure notes set before create_build_script() get preserved @@ -31,10 +31,10 @@ $m = Module::Build->new(module_name => 'Sample'); ok $m; $m->notes(foo => 'bar'); -ok $m->notes('foo'), 'bar'; +is $m->notes('foo'), 'bar'; $m->create_build_script; $m = Module::Build->resume; ok $m; -ok $m->notes('foo'), 'bar'; +is $m->notes('foo'), 'bar'; |