The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

RJBS / perl-5.36.0 / t / porting / bench_selftest.t 

            

              
1
2
3
4
5
6
7
8
9
10

              
#!./perl -w
# run Porting/bench.pl's selftest
use strict;
chdir '..' if -f 'test.pl' && -f 'thread_it.pl';
require './t/test.pl';
system "$^X -I. -MTestInit Porting/bench.pl --action=selftest";