Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9567/t
Modified Files:
xs.t
Log Message:
Make sure the VERSION and XS_VERSION defines are working
Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- xs.t 23 Sep 2005 02:26:55 -0000 1.26
+++ xs.t 23 Sep 2005 02:34:19 -0000 1.27
@@ -26,7 +26,7 @@
} elsif ( !$have_c_compiler ) {
plan skip_all => 'C_support enabled, but no compiler found';
} else {
- plan tests => 14;
+ plan tests => 18;
}
}
@@ -58,9 +58,15 @@
my $sub = $dist->name->can('ok');
ok $sub, "ok() function should be defined";
-
- my $val = $sub->();
- is $val, 'ok', "The ok() function should return the string 'ok'";
+ is $sub->(), 'ok', "The ok() function should return the string 'ok'";
+
+ $sub = $dist->name->can('version');
+ ok $sub, "version() function should be defined";
+ is $sub->(), "0.01", "version() should return the string '0.01'";
+
+ $sub = $dist->name->can('xs_version');
+ ok $sub, "xs_version() function should be defined";
+ is $sub->(), "0.01", "xs_version() should return the string '0.01'";
}
{
|
