From 19322e5cd958c215275cd5594b1acf6ae77bd8e3 Mon Sep 17 00:00:00 2001 From: mike Date: Thu, 6 Apr 2006 08:15:43 +0000 Subject: [PATCH] Test made more robust against LC database changes. Now works against a specific record, found by ISBN. --- t/28-charset.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/t/28-charset.t b/t/28-charset.t index 6e88351..8e717fe 100644 --- a/t/28-charset.t +++ b/t/28-charset.t @@ -1,4 +1,4 @@ -# $Id: 28-charset.t,v 1.1 2006-04-03 17:23:56 mike Exp $ +# $Id: 28-charset.t,v 1.2 2006-04-06 08:15:43 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 28-charset.t' @@ -16,13 +16,13 @@ ok(!$@, "connection to '$host'"); $conn->option(preferredRecordSyntax => 'usmarc'); -my $qstr = '@attr 1=1003 gunter'; +my $qstr = '@attr 1=7 3879093520'; my $rs; eval { $rs = $conn->search_pqf($qstr) }; ok(!$@, "search for '$qstr'"); my $n = $rs->size(); -ok($n == 10000, "found $n records (expected 10000)"); +ok($n == 1, "found $n records (expected 1)"); my $rec = $rs->record(0); ok(defined $rec, "got first record"); @@ -30,12 +30,12 @@ ok(defined $rec, "got first record"); my $xml = $rec->get('xml'); ok(defined $xml, "got XML"); -ok($xml =~ m(10\. .* f\350ur), +ok($xml =~ m(aus der .* f\350ur), "got MARC pre-accented composed characters"); $xml = $rec->get('xml', 'charset=marc-8,utf-8'); ok(defined $xml, "got XML in Unicode"); -ok($xml =~ m(10\. .* für), +ok($xml =~ m(aus der .* für), "got Unicode post-accented composed characters"); -- 1.7.10.4