[Module-build-checkins] Module-Build/t xs.t,1.26,1.27

[Ken W. <kwi...@us...>]

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'";
 }
 
 {