Use the various skip_all*() functions in test.pl to express the desired intent.
#!./perl -w
BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
-
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
use strict;
#!./perl -w
BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
- $| = 1;
-
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
use strict;
+#!./perl -w
+
BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- @INC = '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
- $| = 1;
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
plan tests => 72;
+#!./perl -w
+
BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- @INC = '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
- $| = 1;
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
plan tests => 94;
# -- dankogai
BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
- $| = 1;
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
use strict;
# -- dankogai
BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
- $| = 1;
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
use strict;
# -- dankogai
BEGIN {
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
- $| = 1;
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
use strict;
# -- dankogai
BEGIN {
- if ($ENV{'PERL_CORE'}){
- chdir 't';
- @INC = '../lib';
- }
- require Config; import Config;
- if ($Config{'extensions'} !~ /\bEncode\b/) {
- print "1..0 # Skip: Encode was not built\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
- }
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if ($ENV{PERL_CORE_MINITEST}) {
- print "1..0 # Skip: no dynamic loading on miniperl, no Encode\n";
- exit 0;
- }
- $| = 1;
require './test.pl';
+ skip_all_if_miniperl("no dynamic loading on miniperl, no Encode");
+ skip_all("EBCDIC") if $::IS_EBCDIC;
+ skip_all_without_perlio();
+ skip_all_without_extension('Encode');
}
use strict;
use strict;
BEGIN {
- chdir 't' if -d 't';
- @INC = qw(../lib .);
- require "test.pl";
- unless (PerlIO::Layer->find('perlio')){
- print "1..0 # Skip: PerlIO required\n";
- exit 0;
- }
- if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC porting needed\n";
- exit 0;
- }
+ require './test.pl';
+ skip_all("EBCDIC porting needed") if $::IS_EBCDIC;
+ skip_all_without_perlio();
}
plan tests => 6;