[svn:p5ee] r10139 - p5ee/trunk/App-Options/t

Author: spadkins
Date: Tue Oct 30 12:07:50 2007
New Revision: 10139

Modified:
   p5ee/trunk/App-Options/t/main.t
   p5ee/trunk/App-Options/t/old.t

Log:
new/revised test cases

Modified: p5ee/trunk/App-Options/t/main.t
==============================================================================
--- p5ee/trunk/App-Options/t/main.t	(original)
+++ p5ee/trunk/App-Options/t/main.t	Tue Oct 30 12:07:50 2007
@[EMAIL PROTECTED]
 -83,7 +83,7 @[EMAIL PROTECTED]
     testdir => (-f "app.conf") ? "." : "t",
 );
 
-App::Options->init();
+App::Options->_import_test();
 #print "CONF:\n   ", join("\n   ",%App::options), "\n";
 ok(%App::options, "put something in %App::options");
 is($App::options{prefix}, "/usr/local", "prefix = /usr/local");
@[EMAIL PROTECTED]
 -94,7 +94,7 @[EMAIL PROTECTED]
 is($INC[0], "/usr/mycompany/2.1.7/lib/perl5", "\@[EMAIL PROTECTED]
 affected by
perlinc");
 
 $App::otherconf{testdir} = (-f "app.conf") ? "." : "t";
-App::Options->init(\%App::otherconf);
+App::Options->_import_test(\%App::otherconf);
 #print "CONF:\n   ", join("\n   ",%App::otherconf), "\n";
 ok(%App::otherconf, "put something in %App::otherconf");
 is($App::otherconf{prefix}, $prefix, "prefix = $prefix");
@[EMAIL PROTECTED]
 -104,7 +104,7 @[EMAIL PROTECTED]
 is($App::otherconf{var2}, "old pattern match", "old pattern match");
 
 $App::options3{testdir} = (-f "app.conf") ? "." : "t";
-App::Options->init(values => \%App::options3);
+App::Options->_import_test(values => \%App::options3);
 #print "CONF:\n   ", join("\n   ",%App::options3), "\n";
 ok(%App::options3, "put something in %App::options3");
 is($App::options3{prefix}, $prefix, "prefix = $prefix");

Modified: p5ee/trunk/App-Options/t/old.t
==============================================================================
--- p5ee/trunk/App-Options/t/old.t	(original)
+++ p5ee/trunk/App-Options/t/old.t	Tue Oct 30 12:07:50 2007
@[EMAIL PROTECTED]
 -22,7 +22,7 @[EMAIL PROTECTED]
 BEGIN {
     $App::options{testdir} = (-f "app.conf") ? "." : "t";
 }
-App::Options->init(
+App::Options->_import_test(
     option => {
         var10 => { env => "VAR10a;VAR10", },
         var11 => { },
@[EMAIL PROTECTED]
 -62,7 +62,7 @[EMAIL PROTECTED]
     testdir => (-f "app.conf") ? "." : "t",
 );
 
-App::Options->init();
+App::Options->_import_test();
 #print "CONF:\n   ", join("\n   ",%App::options), "\n";
 ok(%App::options, "put something in %App::options");
 is($App::options{prefix}, "/usr/local", "prefix = /usr/local");
@[EMAIL PROTECTED]
 -73,7 +73,7 @[EMAIL PROTECTED]
 is($INC[0], "/usr/mycompany/2.1.7/lib/perl5", "\@[EMAIL PROTECTED]
 affected by
perlinc");
 
 $App::otherconf{testdir} = (-f "app.conf") ? "." : "t";
-App::Options->init(\%App::otherconf);
+App::Options->_import_test(\%App::otherconf);
 #print "CONF:\n   ", join("\n   ",%App::otherconf), "\n";
 ok(%App::otherconf, "put something in %App::otherconf");
 is($App::otherconf{prefix}, $prefix, "prefix = $prefix");
@[EMAIL PROTECTED]
 -83,7 +83,7 @[EMAIL PROTECTED]
 is($App::otherconf{var2}, "old pattern match", "old pattern match");
 
 $App::options3{testdir} = (-f "app.conf") ? "." : "t";
-App::Options->init(values => \%App::options3);
+App::Options->_import_test(values => \%App::options3);
 #print "CONF:\n   ", join("\n   ",%App::options3), "\n";
 ok(%App::options3, "put something in %App::options3");
 is($App::options3{prefix}, $prefix, "prefix = $prefix");