X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=t%2Fanselconv.test;fp=t%2Fanselconv.test;h=4c54b66d1c4610a074e19e8d32c15bb78c02bbc6;hb=436cf4be9e0975d3dac70f4b34a65c30141694d9;hp=0000000000000000000000000000000000000000;hpb=aebc12c8ea1375cfb6f3366e8b6e1d792ec83c04;p=gedcom-parse.git

diff --git a/t/anselconv.test b/t/anselconv.test
new file mode 100755
index 0000000..4c54b66
--- /dev/null
+++ b/t/anselconv.test
@@ -0,0 +1,37 @@
+#!/bin/sh
+
+# For use outside Makefile
+if [ -z "$srcdir" ]
+then
+  srcdir=.
+fi
+builddir=`pwd`
+
+export GCONV_PATH=.:$GCONV_PATH
+ln -s $srcdir/../data/gedcom.enc .
+ln -s $builddir/../ansel/.libs/ANSI_Z39.47.so .
+ln -s $srcdir/../ansel/gconv-modules .
+
+retval=0
+
+if [ "$ICONV_PATH" ]
+then
+  export PATH=$ICONV_PATH:$PATH
+fi
+
+iconv --from-code=ANSEL --to-code=UTF-8 input/ansel.ged -o anselutf8.out
+if ! diff input/anselutf8.ged anselutf8.out
+then
+  retval=1
+else
+  iconv --to-code=ANSEL --from-code=UTF-8 input/anselutf8.ged -o ansel.out
+  if ! diff input/ansel.ged ansel.out
+  then
+    retval=1
+  fi
+fi
+
+rm gedcom.enc
+rm ANSI_Z39.47.so
+rm gconv-modules
+exit $retval