kc3-lang/libiconv/tests/check-ebcdic

Branch - branch -master

• Show log

  Commit

• Hash : 153d4079
  Author :
  Date : 2023-05-12T22:41:08
  

  On z/OS, set a charset tag on iconv's output file.
  
  For the concept of charset tags as external metadata on z/OS files, see
  <https://lists.gnu.org/archive/html/bug-gnu-libiconv/2023-04/msg00021.html>.
  
  * src/zos-tag.h: New file.
  * src/iconv.c: Include zos-tag.h.
  (convert): Add a 'tocode' parameter. On z/OS, turn off auto-conversion
  and tag the output file.
  (main): Update callers.
  * tests/check-ebcdic: On z/OS, make all test files initially untagged.
  * tests/check-tag: New file.
  * tests/Makefile.in (check): Pass the host_os to check-ebcdic. Invoke
  check-tag.
  

Download

• tests/check-ebcdic

• #!/bin/sh
  # Check of ICONV_EBCDIC_ZOS_UNIX environment variable.
  set -e
  host_os="$1"
  iconv=../src/iconv_no_i18n
  
  # This test is only meaningful when the EBCDIC encodings are included.
  if $iconv -l | grep IBM-1047 > /dev/null; then
  
    if test "${host_os}" = 'openedition' ; then
      # On z/OS, make all the files 'untagged'
      rm -f tmp-ok-lf tmp-ok-nel tmp-ok-x15 tmp-ok-x25
      touch tmp-ok-lf
      touch tmp-ok-nel
      touch tmp-ok-x15
      touch tmp-ok-x25
      chtag -r tmp-ok-lf
      chtag -r tmp-ok-nel
      chtag -r tmp-ok-x15
      chtag -r tmp-ok-x25
    fi
  
    printf '\150\145\154\154\157\012' > tmp-ok-lf
    printf '\150\145\154\154\157\302\205' > tmp-ok-nel
  
    printf '\210\205\223\223\226\025' > tmp-ok-x15
    printf '\210\205\223\223\226\045' > tmp-ok-x25
  
    # Check that by default, EBCDIC 0x15 maps to U+0085.
    unset ICONV_EBCDIC_ZOS_UNIX
  
    $iconv -f UTF-8 -t IBM-1047 < tmp-ok-nel > tmp-out1
    $iconv -f ASCII -t IBM-1047 < tmp-ok-lf > tmp-out2
    cmp tmp-out1 tmp-ok-x15
    cmp tmp-out2 tmp-ok-x25
  
    $iconv -f IBM-1047 -t UTF-8 < tmp-ok-x15 > tmp-out1
    $iconv -f IBM-1047 -t ASCII < tmp-ok-x25 > tmp-out2
    cmp tmp-out1 tmp-ok-nel
    cmp tmp-out2 tmp-ok-lf
  
    # Check that with the ZOS_UNIX surface, EBCDIC 0x15 maps to U+000A.
  
    $iconv -f ASCII -t IBM-1047/ZOS_UNIX < tmp-ok-lf > tmp-out1
    $iconv -f UTF-8 -t IBM-1047/ZOS_UNIX < tmp-ok-nel > tmp-out2
    cmp tmp-out1 tmp-ok-x15
    cmp tmp-out2 tmp-ok-x25
  
    $iconv -f IBM-1047/ZOS_UNIX -t ASCII < tmp-ok-x15 > tmp-out1
    $iconv -f IBM-1047/ZOS_UNIX -t UTF-8 < tmp-ok-x25 > tmp-out2
    cmp tmp-out1 tmp-ok-lf
    cmp tmp-out2 tmp-ok-nel
  
    # Check that the ZOS_UNIX surface can be used with //TRANSLIT and //IGNORE.
  
    printf '\357\275\210\342\204\257\360\235\232\225\360\235\232\225\342\200\242\n' \
      | $iconv -f UTF-8 -t IBM-1047/ZOS_UNIX/TRANSLIT > tmp-out1
    cmp tmp-out1 tmp-ok-x15
  
    printf 'hello\342\202\254\n' \
      | $iconv -f UTF-8 -t IBM-1047/ZOS_UNIX/IGNORE > tmp-out1
    cmp tmp-out1 tmp-ok-x15
  
    # Check that with a specific environment variable, EBCDIC 0x15 maps to U+000A.
    ICONV_EBCDIC_ZOS_UNIX=1
    export ICONV_EBCDIC_ZOS_UNIX
  
    $iconv -f ASCII -t IBM-1047 < tmp-ok-lf > tmp-out1
    $iconv -f UTF-8 -t IBM-1047 < tmp-ok-nel > tmp-out2
    cmp tmp-out1 tmp-ok-x15
    cmp tmp-out2 tmp-ok-x25
  
    $iconv -f IBM-1047 -t ASCII < tmp-ok-x15 > tmp-out1
    $iconv -f IBM-1047 -t UTF-8 < tmp-ok-x25 > tmp-out2
    cmp tmp-out1 tmp-ok-lf
    cmp tmp-out2 tmp-ok-nel
  
    rm -f tmp-in* tmp-out* tmp-ok*
  fi
  
  exit 0
  

Download