home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gettext-0.10.24-src.tgz / tar.out / fsf / gettext / checks / msgmerge-1 < prev    next >
Lisp/Scheme  |  1996-09-28  |  2KB  |  82 lines
  1. #! /bin/sh
  2.  
  3. trap 'rm -fr $tmpfiles' 1 2 3 15
  4.  
  5. tmpfiles="mm-test1.in1 mm-test1.in2"
  6. cat <<EOF > mm-test1.in1
  7. # first
  8. #. this should be discarded
  9. msgid "1"
  10. msgstr "1x"
  11. # second
  12. #: bogus:1
  13. msgid "2"
  14. msgstr    "this is a really long msgstr "
  15.     "used to test the wraping to "
  16.     "make sure it works after all "
  17.     "what is a test for if not to test things?"
  18. # third
  19. msgid "3"
  20. msgstr "3z"
  21. EOF
  22.  
  23. cat <<EOF > mm-test1.in2
  24. #. this is the first
  25. #: snark.c:345
  26. msgid "1"
  27. msgstr ""
  28. #. this is the second
  29. #: hunt.c:759
  30. msgid "2"
  31. msgstr ""
  32. #. this is the third
  33. #: boojum.c:300
  34. msgid "3"
  35. msgstr ""
  36. EOF
  37.  
  38. tmpfiles="$tmpfiles mm-test1.out"
  39. : ${MSGMERGE=msgmerge}
  40. ${MSGMERGE} -q mm-test1.in1 mm-test1.in2 -o mm-test1.out
  41.  
  42. tmpfiles="$tmpfiles mm-test1.ok"
  43. cat << EOF > mm-test1.ok
  44. # first
  45. #. this is the first
  46. #: snark.c:345
  47. msgid "1"
  48. msgstr "1x"
  49.  
  50. # second
  51. #. this is the second
  52. #: hunt.c:759
  53. msgid "2"
  54. msgstr ""
  55. "this is a really long msgstr used to test the wraping to make sure it works "
  56. "after all what is a test for if not to test things?"
  57.  
  58. # third
  59. #. this is the third
  60. #: boojum.c:300
  61. msgid "3"
  62. msgstr "3z"
  63. EOF
  64.  
  65. : ${DIFF=diff}
  66. ${DIFF} mm-test1.ok mm-test1.out
  67. result=$?
  68.  
  69. rm -fr $tmpfiles
  70.  
  71. exit $result
  72.  
  73. # Preserve executable bits for this shell script.
  74. # Thanks to Noah Friedman for this great trick.
  75. Local Variables:
  76. Eval: (defun frobme () (set-file-modes buffer-file-name file-mode))
  77. Eval: (make-local-variable 'file-mode)
  78. Eval: (setq file-mode (file-modes (buffer-file-name)))
  79. Eval: (make-local-variable 'after-save-hook)
  80. Eval: (add-hook 'after-save-hook 'frobme)
  81. End:
  82.