-/* $Id: t1.c,v 1.1 2004-12-04 00:51:39 adam Exp $
- Copyright (C) 2003,2004
- Index Data Aps
+/* $Id: t1.c,v 1.9 2007-01-15 15:10:23 adam Exp $
+ Copyright (C) 1995-2007
+ Index Data ApS
This file is part of the Zebra server.
for more details.
You should have received a copy of the GNU General Public License
-along with Zebra; see the file LICENSE.zebra. If not, write to the
-Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
*/
+#include <yaz/yaz-iconv.h>
+
#include "../api/testlib.h"
-int main(int argc, char **argv)
+void check_koi8r(void)
{
- ZebraService zs = start_up(0, argc, argv);
- ZebraHandle zh = zebra_open(zs);
+ yaz_iconv_t cd = yaz_iconv_open("koi8-r", "utf-8");
+ if (!cd)
+ {
+ yaz_log(YLOG_WARN, "koi8-r to utf-8 unsupported");
+ exit(0);
+ }
+ yaz_iconv_close(cd);
+}
+
+static void tst(int argc, char **argv)
+{
+
+ ZebraService zs = tl_start_up(0, argc, argv);
+ ZebraHandle zh = zebra_open(zs, 0);
char path[256];
- /* TODO: if koi8-r is unsupported we must OK this test */
+ check_koi8r();
- zebra_select_database(zh, "Default");
+ YAZ_CHECK(zebra_select_database(zh, "Default") == ZEBRA_OK);
zebra_init(zh);
- zebra_begin_trans(zh, 1);
- sprintf(path, "%.200s/records/simple-rusmarc", get_srcdir());
+ YAZ_CHECK(zebra_begin_trans(zh, 1) == ZEBRA_OK);
+ sprintf(path, "%.200s/records/simple-rusmarc", tl_get_srcdir());
zebra_repository_update(zh, path);
- zebra_end_trans(zh);
+ YAZ_CHECK(zebra_end_trans(zh) == ZEBRA_OK);
zebra_commit(zh);
- do_query(__LINE__, zh, "@attr 1=21 \xfa\xc1\xcd\xd1\xd4\xc9\xce", 1);
+ YAZ_CHECK(tl_query(zh, "@attr 1=21 \xfa\xc1\xcd\xd1\xd4\xc9\xce", 1));
- return close_down(zh, zs, 0);
+ YAZ_CHECK(tl_close_down(zh, zs));
}
+
+TL_MAIN
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+