Use a file from %INC instead of $^X in test

For some reason, opening `$^X` failed for someone. See GH #25.

Author: autarch

Changes

@@ -1,5 +1,8 @@
 {{$NEXT}}
 
+- Fixed a test failure when trying to open $^X on some platforms.
+
+
 0.52     2025-08-09
 
 - Really made it possible to force Specio to use only pure Perl dependencies. The changes in 0.51

README.md

@@ -4,7 +4,7 @@ Specio - Type constraints and coercions for Perl
 
 # VERSION
 
-version 0.52
+version 0.53
 
 # SYNOPSIS
 

lib/Test/Specio.pm

@@ -223,9 +223,24 @@ BEGIN {
     }
 }
 
-our @EXPORT_OK   = ( @vars, qw( builtins_tests describe test_constraint ) );
+our @EXPORT_OK = (
+    @vars,
+    qw( builtins_tests create_BAR_handle_code describe test_constraint )
+);
 our %EXPORT_TAGS = ( vars => \@vars );
 
+sub create_BAR_handle_code {
+
+    # This used to be $^X, but that caused a test failure for someone
+    # (https://github.com/houseabsolute/Specio/issues/25). Then I tried __FILE__, but that doesn't work
+    # in cases where the file containing __FILE__ is eval'd, which we do in
+    # `xt/author/no-ref-util.t`. So now I'm just grabbing the first file in %INC.
+    return <<'EOF';
+my $file = $INC{ ( keys %INC )[0] };
+open BAR, '<', $file or die "Could not open $file for the test";
+EOF
+}
+
 sub builtins_tests {
     my $GLOB             = shift;
     my $GLOB_OVERLOAD    = shift;
@@ -1356,6 +1371,18 @@ You need to pass in a glob, an object which overloads globification, and an
 object which overloads globification to return an open filehandle. See below
 for more details on how to create these things.
 
+=head2 create_BAR_handle_code()
+
+Returns a string you can C<eval> to create a bar filehandle named C<BAR>. This should be used like
+this:
+
+  local *BAR;
+  {
+      local $@;
+      eval create_BAR_handle_code();
+      die $@ if $@;
+  }
+
 =head2 Variables
 
 This module also exports many variables containing values which are useful for
@@ -1512,9 +1539,8 @@ You can create such a variable like this:
   local *FOO;
   my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
-If you want to create a glob overloading object that returns a filehandle, do
-this:
+If you want to create a glob overloading object that returns a filehandle, do this:
 
   local *BAR;
-  open BAR, '<', $^X or die "Could not open $^X for the test";
+  open BAR, '<', $some_file or die $!;
   my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );

t/builtins-sanity.t

@@ -2,7 +2,8 @@ use strict;
 use warnings;
 
 use Test::More 0.96;
-use Test::Specio qw( builtins_tests describe test_constraint :vars );
+use Test::Specio
+    qw( builtins_tests create_BAR_handle_code describe test_constraint :vars );
 
 use Specio::Library::Builtins;
 
@@ -20,9 +21,12 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
 local *BAR;
 {
-    ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $^X or die "Could not open $^X for the test";
+    local $@;
+    ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval)
+    eval create_BAR_handle_code();
+    die $@ if $@;
 }
+
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 
 my $tests = builtins_tests( $GLOB, $GLOB_OVERLOAD, $GLOB_OVERLOAD_FH );

t/declare-helpers.t

@@ -3,7 +3,7 @@ use warnings;
 
 use Test::Fatal;
 use Test::More 0.96;
-use Test::Specio qw( describe test_constraint :vars );
+use Test::Specio qw( create_BAR_handle_code describe test_constraint :vars );
 
 use Specio::Declare;
 use Specio::PartialDump qw( partial_dump );
@@ -22,8 +22,10 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
 local *BAR;
 {
-    ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $^X or die "Could not open $^X for the test";
+    local $@;
+    ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval)
+    eval create_BAR_handle_code();
+    die $@ if $@;
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/dict.t

@@ -3,7 +3,7 @@ use warnings;
 
 use Test::Fatal;
 use Test::More 0.96;
-use Test::Specio qw( test_constraint :vars );
+use Test::Specio qw( create_BAR_handle_code test_constraint :vars );
 
 use Specio::Declare;
 use Specio::Library::Builtins;
@@ -75,8 +75,10 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
 local *BAR;
 {
-    ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $^X or die "Could not open $^X for the test";
+    local $@;
+    ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval)
+    eval create_BAR_handle_code();
+    die $@ if $@;
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/intersection.t

@@ -18,7 +18,7 @@ use lib "$lib_path/lib";
 
 use Test::Fatal;
 use Test::More 0.96;
-use Test::Specio qw( test_constraint :vars );
+use Test::Specio qw( create_BAR_handle_code test_constraint :vars );
 
 use Specio::Constraint::Intersection;
 use Specio::Declare;
@@ -50,8 +50,10 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
 local *BAR;
 {
-    ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $^X or die "Could not open $^X for the test";
+    local $@;
+    ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval)
+    eval create_BAR_handle_code();
+    die $@ if $@;
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/map.t

@@ -3,7 +3,7 @@ use warnings;
 
 use Test::Fatal;
 use Test::More 0.96;
-use Test::Specio qw( test_constraint :vars );
+use Test::Specio qw( create_BAR_handle_code test_constraint :vars );
 
 use Specio::Declare;
 use Specio::Library::Builtins;
@@ -45,8 +45,10 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
 local *BAR;
 {
-    ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $^X or die "Could not open $^X for the test";
+    local $@;
+    ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval
+    eval create_BAR_handle_code();
+    die $@ if $@;
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/string-sanity.t

@@ -17,7 +17,7 @@ BEGIN {
 use lib "$lib_path/lib";
 
 use Test::More 0.96;
-use Test::Specio qw( test_constraint :vars );
+use Test::Specio qw( create_BAR_handle_code test_constraint :vars );
 
 use Specio::Library::String;
 
@@ -35,8 +35,10 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
 local *BAR;
 {
-    ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $^X or die "Could not open $^X for the test";
+    local $@;
+    ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval)
+    eval create_BAR_handle_code();
+    die $@ if $@;
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );
 

t/subs.t

@@ -18,7 +18,7 @@ use lib "$lib_path/lib";
 
 use Test::Fatal;
 use Test::More 0.96;
-use Test::Specio qw( builtins_tests describe :vars );
+use Test::Specio qw( create_BAR_handle_code builtins_tests describe :vars );
 
 use Specio::Declare;
 use Specio::Subs qw(
@@ -40,8 +40,10 @@ my $GLOB_OVERLOAD = _T::GlobOverload->new( \*FOO );
 
 local *BAR;
 {
-    ## no critic (InputOutput::ProhibitBarewordFileHandles, InputOutput::RequireBriefOpen)
-    open BAR, '<', $^X or die "Could not open $^X for the test";
+    local $@;
+    ## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval)
+    eval create_BAR_handle_code();
+    die $@ if $@;
 }
 my $GLOB_OVERLOAD_FH = _T::GlobOverload->new( \*BAR );