Skip to content

Commit ff452eb

Browse files
committed
add tests for RT #126100
1 parent 9e99d8c commit ff452eb

File tree

1 file changed

+8
-3
lines changed

1 file changed

+8
-3
lines changed

S11-modules/require.t

Lines changed: 8 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -2,11 +2,16 @@ use v6;
22

33
use lib '.';
44

5-
my $istrue = (require Test <&plan &is &lives-ok &skip &todo>);
5+
my $required-Test = (require Test <&plan &is &lives-ok &skip &todo>);
66

7-
plan 16;
7+
plan 17;
88

9-
is $istrue, True, "successful require returns True";
9+
# RT #126100
10+
{
11+
is $required-Test.gist, '(Test)', "successful require PACKAGE returns PACKAGE";
12+
is (require "t/spec/S11-modules/InnerModule.pm"), "t/spec/S11-modules/InnerModule.pm",
13+
"successful require STRING returns STRING";
14+
}
1015

1116
my $staticname;
1217
BEGIN try EVAL '$staticname = Test';

0 commit comments

Comments
 (0)