t/io/layers.t failed on EBCDIC platform

Hi,

the following 2 test cases of t/io/layers.t failed on EBCDIC platform:
===================
        binmode(F, ":encoding(sjis)"); # "sjis" will be canonized to
"shiftjis"

      check([ PerlIO::get_layers(F) ],
        [ qw[stdio crlf encoding(shiftjis) utf8] ],
        ":encoding(sjis)");
   ---------------------------------------------------
      binmode(F, ":pop");

      check([ PerlIO::get_layers(F) ],
        [ qw(stdio crlf) ],
        ":pop");
===================



the first one fail because "sjis" is not defined on EBCDIC, but I don't
know why the second one fail.



the following is the error msg of the result:
===================
  Cannot find encoding "sjis" at t/io/layers.t line 134.
  not ok 6 - :encoding(sjis) - layers == 4
  # Failed at t/io/layers.t line 111
  #      got '2'
  # expected '4'
  not ok 9 - :encoding(sjis) - 2 is encoding(shiftjis)
  # Failed at t/io/layers.t line 117
  #      got undef
  # expected 'encoding(shiftjis)'
  not ok 10 - :encoding(sjis) - 3 is utf8
  # Failed at t/io/layers.t line 117
  #      got undef
  # expected 'utf8'
  not ok 11 - :pop - layers == 2
  # Failed at t/io/layers.t line 111
  #      got '1'
  # expected '2'
  not ok 13 - :pop - 1 is crlf
  # Failed at t/io/layers.t line 117
  #      got undef
  # expected 'crlf'
===================

Would someone please give me some clues? thanks.


Best Regards,
Liu XiaoLiang ( 刘晓亮 )
z/OS Development, CSTL, IBM China Development Lab
Tel: 86-21-61601158-6055   Fax: 86-21-50806868
Notes ID: Xiao Liang Liu/China/IBM     Email: liuxiaol@cn.ibm.com
4F, No 78, Lane 887, Zu Chong Zhi Road, Zhang Jiang High Tech Park,
Shanghai, China (201203)

• t/io/layers.t failed on EBCDIC platform by Xiao Liang Liu
• Re: t/io/layers.t failed on EBCDIC platform by Steve Peters