Fix t/script.t which failed on some platforms

nigelhorne · Aug 28, 2024 · b86c3c8 · b86c3c8
1 parent afbe3e1
commit b86c3c8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -3,6 +3,7 @@ Revision history for CGI-Info
 0.08
 	Mark Go-http-client as a robot
 	Support CircleCI
+	Fix t/script.t which failed on some platforms
 
 0.82	Thu Aug  8 07:51:02 EDT 2024
 	Mark ClaudeBot as a robot

diff --git a/t/script.t b/t/script.t
@@ -198,11 +198,10 @@ PATHS: {
 	if($^O eq 'MSWin32') {
 		TODO: {
 			local $TODO = 'Script_dir test needs to be done on Windows';
-			like($i->script_dir(), qr/\/CGI-Info/i, 'Check script_dir looks right');
+			like($i->script_dir(), qr/$home/, 'Check script_dir looks right');
 			ok($i->script_path() =~ /\\.+bar\.pl$/);
 		}
 	} else {
-		# like($i->script_dir(), qr/\/CGI-Info/i, 'Check script_dir looks right');
 		like($i->script_dir(), qr/$home/, 'Check script_dir looks right');
 		ok($i->script_path() =~ /\/.+bar\.pl$/);
 	}