Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32429
Modified Files:
ext.t
Log Message:
Add a test for read_args()
Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ext.t 6 Dec 2004 03:57:07 -0000 1.4
--- ext.t 6 Dec 2004 04:01:19 -0000 1.5
***************
*** 52,56 ****
);
! plan tests => 7 + 2*@unix_splits + 2*@win_splits;
use Module::Build;
--- 52,56 ----
);
! plan tests => 12 + 2*@unix_splits + 2*@win_splits;
use Module::Build;
***************
*** 75,78 ****
--- 75,92 ----
}
+
+ {
+ # Make sure read_args() functions properly as a class method
+ my @args = qw(foo=bar --food bard);
+ my ($args) = Module::Build->read_args(@args);
+
+ ok keys(%$args), 3;
+ ok $args->{foo}, 'bar';
+ ok $args->{food}, 'bard';
+ ok exists $args->{ARGV}, 1;
+ ok @{$args->{ARGV}}, 0;
+ }
+
+ ##################################################################
sub do_split_tests {
my ($package, $test) = @_;
|
