skip_all "PERL_STATIC_EXT must be set to the list of static extensions";
}
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
+
require FindExt;
FindExt::apply_config(\%Config);
use strict;
use warnings;
+use Config;
require './test.pl';
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
+
plan('no_plan');
# Fail for every PERL_ARGS_ASSERT* macro that was declared but not used.
# then hand-edit configure.com (as that's not automated).
# If this changes uconfig.sh, you'll also need to run perl regen/uconfig_h.pl
+use Config;
BEGIN {
+ require "./test.pl";
@INC = '..' if -f '../TestInit.pm';
}
use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
+
system "$^X Porting/checkcfgvar.pl --tap";
use TestInit;
use strict;
+use Config;
BEGIN { require 'test.pl' }
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
my ($opt) = @ARGV;
use warnings;
use strict;
+use Config;
require 't/test.pl';
+
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
+
plan('no_plan');
# --make-exceptions-list outputs the list of strings that don't have
chdir 't';
require './test.pl';
+use Config;
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
+
plan('no_plan');
use File::Basename;
#!/perl -w
use 5.010;
use strict;
+use Config;
# This test checks that anything with an executable bit is
# identified in Porting/exec-bit.txt to makerel will set
skip_all( "VOS combines the read and execute permission bits." );
}
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
+
plan('no_plan');
use ExtUtils::Manifest qw(maniread);
require './t/test.pl';
}
+use Config;
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Odd failures during cross-compilation" );
+}
+
use strict;
use warnings;
use Maintainers qw(show_results process_options finish_tap_output);
# which will output "WARNING: re-sorting MANIFEST" but which will also
# correct the problem.
+use Config;
BEGIN {
@INC = '..' if -f '../TestInit.pm';
}
require 't/test.pl';
+skip_all("Cross-compiling, the entire source might not be available")
+ if $Config{usecrosscompile};
+
+
plan('no_plan');
my $manifest = 'MANIFEST';
# Pod::Functions provided by a =for directive.
BEGIN {
- @INC = '..' if -f '../TestInit.pm';
+ @INC = ('..', '../lib') if -f '../TestInit.pm';
}
+use Config;
use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
+if ( $Config{usecrosscompile} ) {
+ print "1..0 # Not all files are available during cross-compilation\n";
+ exit 0;
+}
+
system "$^X ext/Pod-Functions/Functions_pm.PL --tap pod/perlfunc.pod";
use strict;
require 't/test.pl';
+use Config;
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
+
my $result = runperl(switches => ['-f', '-Ilib'],
progfile => 'Porting/pod_rules.pl',
args => ['--tap'],
use Text::Tabs;
BEGIN {
+ if ( $Config{usecrosscompile} ) {
+ print "1..0 # Not all files are available during cross-compilation\n";
+ exit 0;
+ }
require '../regen/regen_lib.pl';
}
if ( $^O eq "VMS" ) {
skip_all( "- regen.pl needs porting." );
}
+use Config;
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
my $tests = 26; # I can't see a clean way to calculate this automatically.
@TODO = qw [ SAVEt_SAVESWITCHSTACK ];
@TODO{@TODO} = ();
-BEGIN { chdir 't'; require './test.pl' }
+BEGIN { chdir 't'; unshift @INC, "../lib"; require './test.pl' }
+use Config;
+
+if ( $Config{usecrosscompile} ) {
+ skip_all( "Not all files are available during cross-compilation" );
+}
sub read_cases {
my ($file, $func) = @_;