xt/link-checker.rakutest: check for the existence of a dir as well as .pod6 file

cfa · coke · commit d0492c509ed7 · 2023-03-03T12:29:11.000-05:00
diff --git a/xt/link-checker.rakutest b/xt/link-checker.rakutest
@@ -49,9 +49,9 @@ sub is-valid-link($links) {
 
             # Look in doc/ folder for this rakudoc file.
             @path.unshift: 'doc';
-            my $path = @path.join('/') ~ '.pod6';
+            my $path = @path.join('/');
 
-            ok $path.IO.e, "$link exists (primary)";
+            ok ($path.IO.d or ($path ~ '.pod6').IO.e), "$link exists (primary)";
         }
     }
 }

Original file line number	Diff line number	Diff line change
`@@ -49,9 +49,9 @@ sub is-valid-link($links) {`
`49`	`49`
`50`	`50`	`# Look in doc/ folder for this rakudoc file.`
`51`	`51`	`@path.unshift: 'doc';`
`52`		`- my $path = @path.join('/') ~ '.pod6';`
	`52`	`+ my $path = @path.join('/');`
`53`	`53`
`54`		`- ok $path.IO.e, "$link exists (primary)";`
	`54`	`+ ok ($path.IO.d or ($path ~ '.pod6').IO.e), "$link exists (primary)";`
`55`	`55`	`}`
`56`	`56`	`}`
`57`	`57`	`}`