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";