tests/lha-test13

   1 # -*- shell-script -*-
   2 FILENAME=lha-test13
   3 message testing the kanji code conversion.
   4
   5 printf '\xb4\xc1\xbb\xfa\n' > test-tmp-euc
   6                                                         check $? $LINENO
   7 printf '\x8a\xbf\x8e\x9a\n' > test-tmp-sjis
   8                                                         check $? $LINENO
   9 # no convert
  10 $lha c test-tmp-euc.lzh test-tmp-euc
  11                                                         check $? $LINENO
  12 # file size is too small, so no compressed
  13 $lha v test-tmp-euc.lzh | egrep lh0
  14                                                         check $? $LINENO
  15 # no convert
  16 $lha xw=test-tmp-euc-d test-tmp-euc.lzh
  17                                                         check $? $LINENO
  18 diff -r test-tmp-euc test-tmp-euc-d/test-tmp-euc
  19                                                         check $? $LINENO
  20 # sjis to euc
  21 $lha xew=test-tmp-unknown-d test-tmp-euc.lzh
  22                                                         check $? $LINENO
  23 diff -r test-tmp-euc test-tmp-unknown-d/test-tmp-euc
  24 test $? -ne 0
  25                                                         check $? $LINENO
  26 diff -r test-tmp-sjis test-tmp-unknown-d/test-tmp-euc
  27 test $? -ne 0
  28                                                         check $? $LINENO
  29
  30 # euc to sjis (NL to CR NL)
  31 $lha ce test-tmp-sjis.lzh test-tmp-euc
  32                                                         check $? $LINENO
  33 # file size is too small, so no compressed
  34 $lha v test-tmp-euc.lzh | egrep lh0
  35                                                         check $? $LINENO
  36 # no convert (CR NL to NL)
  37 $lha xtw=test-tmp-sjis-d test-tmp-sjis.lzh
  38                                                         check $? $LINENO
  39 diff test-tmp-sjis test-tmp-sjis-d/test-tmp-euc
  40                                                         check $? $LINENO
  41 # sjis to euc (CR NL to NL)
  42 $lha xew=test-tmp-euc-d2 test-tmp-sjis.lzh
  43                                                         check $? $LINENO
  44 diff test-tmp-euc test-tmp-euc-d2/test-tmp-euc
  45                                                         check $? $LINENO
  46
  47 i=0
  48 while ((i++ < 10))
  49 do
  50   cat test-tmp-euc
  51 done > test-tmp-euc2
  52
  53 i=0
  54 while ((i++ < 10))
  55 do
  56   cat test-tmp-sjis
  57 done > test-tmp-sjis2
  58
  59 # no convert
  60 $lha c test-tmp-euc2.lzh test-tmp-euc2
  61                                                         check $? $LINENO
  62 $lha v test-tmp-euc2.lzh | egrep 'lh[567]'
  63                                                         check $? $LINENO
  64 # no convert
  65 $lha xw=test-tmp-euc2-d test-tmp-euc2.lzh
  66                                                         check $? $LINENO
  67 diff -r test-tmp-euc2 test-tmp-euc2-d/test-tmp-euc2
  68                                                         check $? $LINENO
  69 # sjis to euc
  70 $lha xew=test-tmp-unknown2-d test-tmp-euc2.lzh
  71                                                         check $? $LINENO
  72 diff -r test-tmp-euc2 test-tmp-unknown2-d/test-tmp-euc2
  73 test $? -ne 0
  74                                                         check $? $LINENO
  75 diff -r test-tmp-sjis2 test-tmp-unknown2-d/test-tmp-euc2
  76 test $? -ne 0
  77                                                         check $? $LINENO
  78
  79 # euc to sjis (NL to CR NL)
  80 $lha ce test-tmp-sjis2.lzh test-tmp-euc2
  81                                                         check $? $LINENO
  82 $lha v test-tmp-euc2.lzh | egrep 'lh[567]'
  83                                                         check $? $LINENO
  84 # no convert (CR NL to NL)
  85 $lha xtw=test-tmp-sjis2-d test-tmp-sjis2.lzh
  86                                                         check $? $LINENO
  87 diff test-tmp-sjis2 test-tmp-sjis2-d/test-tmp-euc2
  88                                                         check $? $LINENO
  89 # sjis to euc (CR NL to NL)
  90 $lha xew=test-tmp-euc2-d2 test-tmp-sjis2.lzh
  91                                                         check $? $LINENO
  92 diff test-tmp-euc2 test-tmp-euc2-d2/test-tmp-euc2
  93                                                         check $? $LINENO