X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPod%2Ft%2Feol.t;h=ea2c259384cd3e5c3d12730aedff87d5e98894f1;hb=80a5d8e74b5512d4ab704d0e83466ae41247ce55;hp=82e349bf61002d9eecdb710fc5b4c7308a5a5200;hpb=004283b80f6094bb85aba6f48a74e3c5c34ea24f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/Pod/t/eol.t b/lib/Pod/t/eol.t index 82e349b..ea2c259 100644 --- a/lib/Pod/t/eol.t +++ b/lib/Pod/t/eol.t @@ -1,5 +1,12 @@ #!./perl -w +BEGIN { + if (ord("A") == 193) { + print "1..0 \# Skip: EBCDIC\n"; + exit(0); + } +} + use Test::More tests => 3; open(POD, ">$$.pod") or die "$$.pod: $!"; @@ -12,19 +19,19 @@ crlf =head1 DESCRIPTION -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf - clrf clrf clrf clrf - clrf clrf clrf clrf - clrf clrf clrf clrf + crlf crlf crlf crlf + crlf crlf crlf crlf + crlf crlf crlf crlf -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf -clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf clrf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf +crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf crlf =cut __EOF__