t/run/dtrace.t Test for DTrace probes
t/run/exit.t Test perl's exit status.
t/run/flib/broken.pm Bad .pm file for switchM.t
+t/run/flib/t2.pm Test for .pmcs with -I/dir/
+t/run/flib/t2.pmc Test for .pmcs with -I/dir/
t/run/fresh_perl.t Tests that require a fresh perl.
t/run/locale.t Tests related to locale handling
t/run/mad.t Test vs MAD environment
/* Avoid '<dir>//<file>' */
if (!dirlen || *(tmp-1) != '/') {
*tmp++ = '/';
+ } else {
+ /* So SvCUR_set reports the correct length below */
+ dirlen--;
}
/* name came from an SV, so it will have a '\0' at the
require './test.pl';
-plan(2);
+plan(4);
like(runperl(switches => ['-Irun/flib', '-Mbroken'], stderr => 1),
qr/^Global symbol "\$x" requires explicit package name at run\/flib\/broken.pm line 6\./,
like(runperl(switches => ['-Irun/flib/', '-Mbroken'], stderr => 1),
qr/^Global symbol "\$x" requires explicit package name at run\/flib\/broken.pm line 6\./,
"Ensure -Irun/flib/ produces correct filename in warnings");
+
+like(runperl(switches => ['-Irun/flib', '-Mt2', '-e "print t2::id()"'], stderr => 1),
+ qr/^t2pmc$/,
+ "Ensure -Irun/flib loads pmc");
+
+like(runperl(switches => ['-Irun/flib/', '-Mt2', '-e "print t2::id()"'], stderr => 1),
+ qr/^t2pmc$/,
+ "Ensure -Irun/flib/ loads pmc");