BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
require Tie::Array;
BEGIN {
chdir 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan tests => 7;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use Config;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan(tests => 132);
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, qw '../lib ../cpan/Perl-OSType/lib';
+ set_up_inc(qw '../lib ../cpan/Perl-OSType/lib');
}
plan(tests => 53 + 27*14);
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use warnings;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use strict;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use Config;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
require './charset_tools.pl';
}
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
# use strict;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
# use strict;
BEGIN {
chdir 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
require Config; import Config;
if (is_miniperl()) {
skip_all_if_miniperl("Unicode tables not built yet")
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan (tests => 41);
BEGIN {
chdir 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
*bar::is = *is;
*bar::like = *like;
}
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan 9;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, qw '../lib ../cpan/Text-ParseWords/lib';
+ set_up_inc(qw '../lib ../cpan/Text-ParseWords/lib');
require Config; # load these before we mess with *CORE::GLOBAL::require
require 'Config_heavy.pl'; # since runperl will need them
}
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, qw '../lib ../dist/Math-BigInt/lib';
+ set_up_inc(qw '../lib ../dist/Math-BigInt/lib');
}
# This is truth in an if statement, and could be a skip message
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
@tests = split(/\n/, <<EOF);
BEGIN {
chdir 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan tests => 30;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan tests => 26;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use strict;
use warnings;
BEGIN {
chdir 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use strict;
use warnings;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use warnings;
plan( tests => 182 );
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan tests => 119;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan( tests => 37 );
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use warnings ;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use strict;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
plan (tests => 312);
}
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, qw '../lib ../dist/base/lib';
+ set_up_inc(qw '../lib ../dist/base/lib');
}
my @expect;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan tests => 134;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, qw '../lib ../dist/base/lib';
+ set_up_inc(qw '../lib ../dist/base/lib');
$| = 1;
require "./test.pl";
}
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use strict;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan( tests => 35 );
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl(); unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan 32;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
use strict; # Amazed that this hackery can be made strict ...
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
BEGIN {
chdir 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, qw(lib ../lib);
+ set_up_inc(qw(lib ../lib));
}
plan 48;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
}
plan tests => 40;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
require Config; import Config;
require './charset_tools.pl';
}
return !defined &DynaLoader::boot_DynaLoader;
}
+sub set_up_inc {
+ # Don’t clobber @INC under miniperl
+ @INC = () unless is_miniperl;
+ unshift @INC, @_;
+}
+
sub _comment {
return map { /^#/ ? "$_\n" : "# $_\n" }
map { split /\n/ } @_;
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
if (is_miniperl()) {
skip_all_if_miniperl("Unicode tables not built yet")
unless eval 'require "unicore/Heavy.pl"';
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, qw(../lib .);
+ set_up_inc(qw(../lib .));
if (is_miniperl()) {
skip_all_if_miniperl("Unicode tables not built yet")
unless eval 'require "unicore/Heavy.pl"';
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
if (is_miniperl()) {
skip_all_if_miniperl("Unicode tables not built yet")
unless eval 'require "unicore/Heavy.pl"';
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
if (is_miniperl()) {
skip_all_if_miniperl("Unicode tables not built yet")
unless eval 'require "unicore/Heavy.pl"';
BEGIN {
chdir 't' if -d 't';
require './test.pl';
- @INC = () unless is_miniperl();
- unshift @INC, '../lib';
+ set_up_inc('../lib');
if (is_miniperl()) {
skip_all_if_miniperl("Unicode tables not built yet")
unless eval 'require "unicore/Heavy.pl"';
BEGIN {
chdir 't' if -d 't';
require "uni/case.pl";
- @INC = () unless is_miniperl();
- unshift @INC, qw(../lib .);
+ set_up_inc(qw(../lib .));
}
casetest(0, # No extra tests run here,
BEGIN {
chdir 't' if -d 't';
require "uni/case.pl";
- @INC = () unless is_miniperl();
- unshift @INC, qw(../lib .);
+ set_up_inc(qw(../lib .));
}
casetest(0, # No extra tests run here,
BEGIN {
chdir 't' if -d 't';
require "uni/case.pl";
- @INC = () unless is_miniperl();
- unshift @INC, qw(../lib .);
+ set_up_inc(qw(../lib .));
}
is(uc("\x{3B1}\x{345}\x{301}"), "\x{391}\x{301}\x{399}", 'Verify moves YPOGEGRAMMENI');