test: add regression tests for undefined subroutine reporting (issue #1)

Verify that calling an undefined subroutine reports an error even when
arguments involve Safe::Hole wrapped calls returning wrapped objects.
The original bug (rt#122934) was that $@ was not set in this scenario.
Cannot reproduce on current Perl/Safe, but these tests guard against
regression.

Closes #1

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Author: toddr-bot

t/01-hole.t

@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 33;
+use Test::More tests => 37;
 
 use_ok('Safe::Hole');
 use Safe;
@@ -145,3 +145,34 @@ is( $safe->reval('%INC = ( FOO => "./FOO.pm" ); &get_inc'), 'FOO ./FOO.pm', '%IN
 
 # To do
 
+###################################
+# Regression: undefined subroutines must be reported when parameter
+# involves a Safe::Hole wrapped call (GitHub issue #1, rt#122934)
+##################################
+{
+    my $safe_i1 = Safe->new;
+    my $hole_i1 = Safe::Hole->new({});
+
+    package SafeHoleTestObj;
+    sub new { bless {}, shift }
+    package main;
+
+    my $sub_w = sub { return $hole_i1->wrap(SafeHoleTestObj->new) };
+    $hole_i1->wrap($sub_w, $safe_i1, '&w_test');
+
+    $safe_i1->reval(q{sub x_test { return &w_test; } undefined_func(x_test());});
+    like( $@, qr/Undefined subroutine/, 'undefined sub with wrapped-object arg is reported (issue #1)' );
+
+    $@ = '';
+    $safe_i1->reval(q{undefined_func(&w_test);});
+    like( $@, qr/Undefined subroutine/, 'undefined sub with direct wrapped call arg is reported' );
+
+    $@ = '';
+    $safe_i1->reval(q{undefined_func(42);});
+    like( $@, qr/Undefined subroutine/, 'undefined sub with plain arg is reported (baseline)' );
+
+    $@ = '';
+    $safe_i1->reval(q{undefined_func();});
+    like( $@, qr/Undefined subroutine/, 'undefined sub with no args is reported (baseline)' );
+}
+