/[webpac2]/trunk/t/3-normalize.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/3-normalize.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1256 by dpavlin, Tue Jul 28 12:40:46 2009 UTC revision 1341 by dpavlin, Fri Oct 15 13:36:56 2010 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use lib 'lib';  use lib 'lib';
5    
6  use Test::More tests => 355;  use Test::More tests => 357;
7    
8    use utf8;
9    
10  BEGIN {  BEGIN {
11          use_ok( 'WebPAC::Test' );          use_ok( 'WebPAC::Test' );
# Line 55  my $rec2 = { Line 57  my $rec2 = {
57              } ],              } ],
58   '700' => [ {   '700' => [ {
59                'a' => 'Haynal',                'a' => 'Haynal',
60                'b' => 'André'                'b' => 'André'
61              } ],              } ],
62   '801' => [ 'FFZG' ],   '801' => [ 'FFZG' ],
63   '991' => [ '8302' ],   '991' => [ '8302' ],
# Line 78  my $rec2 = { Line 80  my $rec2 = {
80                'e' => 'from Freud and Ferenczi to Michael balint',                'e' => 'from Freud and Ferenczi to Michael balint',
81                'a' => 'Controversies in psychoanalytic method',                'a' => 'Controversies in psychoanalytic method',
82                'g' => 'translated by Elizabeth Holder on the basisi of a first draft by Archie Hooton ; with a preface by Daniel N. Stern',                'g' => 'translated by Elizabeth Holder on the basisi of a first draft by Archie Hooton ; with a preface by Daniel N. Stern',
83                'f' => 'by André E. Haynal'                'f' => 'by André E. Haynal'
84              } ],              } ],
85   '610' => [ 'povijest psihoanalize' ],   '610' => [ 'povijest psihoanalize' ],
86   '994' => [ {   '994' => [ {
# Line 916  sub test_s { Line 918  sub test_s {
918                  cmp_ok( $rows->[ $i - 1 ]->{e}, '==', $i, "e $i" );                  cmp_ok( $rows->[ $i - 1 ]->{e}, '==', $i, "e $i" );
919          }          }
920    
921            test_rule( 'utf-8'
922                    , { '900' => [{ a => 'ÄŒev', b => 'ić' }] }
923                    , qq{ join_with('', rec(900,'a'), 'apÄ', rec(900,'b') ) }
924                    , [ "\x{10C}evap\x{10D}i\x{107}" ]
925            );
926    
927  }  }
928    
Legend:
Removed from v.1256  
changed lines
  Added in v.1341
  ViewVC Help
Powered by ViewVC 1.1.26