[Module-build-checkins] Module-Build/t xs.t,1.29,1.30

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23001/t

Modified Files:
	xs.t 
Log Message:
Fix tests that fail because some OS (MSWin32) maintains a lock on dynamic libraries until the process terminates, keeping us from removing or rebuild the library file.

Index: xs.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/xs.t,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- xs.t	9 Oct 2005 01:26:17 -0000	1.29
+++ xs.t	20 Oct 2005 04:45:01 -0000	1.30
@@ -26,7 +26,7 @@
   } elsif ( !$have_c_compiler ) {
     plan skip_all => 'C_support enabled, but no compiler found';
   } else {
-    plan tests => 18;
+    plan tests => 15;
   }
 }
 
@@ -52,28 +52,25 @@
 is $@, '';
 
 {
-  use DynaLoader;
-  my $librefs_highwater = @DynaLoader::dl_librefs;
+  # Make sure it actually works: that we can call methods in the XS module
 
-  # Make sure it actually works
-  eval 'use blib; require ' . $dist->name;
-  is $@, '';
-  
-  my $sub = $dist->name->can('ok');
-  ok $sub, "ok() function should be defined";
-  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'";
+  # Unfortunately, We must do this is a subprocess because some OS will not
+  # release the handle on a dynamic lib until the attaching process terminates
+
+  ok $mb->run_perl_command(['-Mblib', '-M'.$dist->name, '-e1']);
+
+  like stdout_of( sub {$mb->run_perl_command([
+       '-Mblib', '-M'.$dist->name,
+       '-we', "print @{[$dist->name]}::ok()"])}), qr/ok$/;
+
+  like stdout_of( sub {$mb->run_perl_command([
+       '-Mblib', '-M'.$dist->name,
+       '-we', "print @{[$dist->name]}::version()"])}), qr/0.01$/;
+
+  like stdout_of( sub {$mb->run_perl_command([
+       '-Mblib', '-M'.$dist->name,
+       '-we', "print @{[$dist->name]}::xs_version()"])}), qr/0.01$/;
 
-  # unload the dll so it can be unlinked
-  DynaLoader::dl_unload_file($DynaLoader::dl_librefs[$librefs_highwater])
-    if DynaLoader->can('dl_unload_file');
 }
 
 {