/[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 1047 by dpavlin, Mon Nov 12 11:10:48 2007 UTC revision 1048 by dpavlin, Mon Nov 19 16:33:09 2007 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 340;  use Test::More tests => 344;
7    
8  BEGIN {  BEGIN {
9          use_ok( 'WebPAC::Test' );          use_ok( 'WebPAC::Test' );
# Line 870  sub test_s { Line 870  sub test_s {
870                          '200' => [ {                          '200' => [ {
871                                  a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ],                                  a => [ 'a1', 'a2' ], b => [ 'b1', 'b2' ], c => [ 'c1', 'c2' ],
872                                  subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ],                                  subfields => [ qw/a 0 b 0 a 1 b 1 c 0 c 1/ ],
873                                    i1 => '0', i2 => '1',
874                          }, {                          }, {
875                                  a => [ 'a3', 'a4', 'a5' ], b => 'b3', c => 'c3',                                  a => [ 'a3', 'a4', 'a5' ], b => 'b3', c => 'c3',
876                                  subfields => [ qw/a 0 a 1 b 0 c 0 a 2/ ],                                  subfields => [ qw/a 0 a 1 b 0 c 0 a 2/ ],
# Line 892  sub test_s { Line 893  sub test_s {
893                  ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c");                  ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c");
894          }          }
895    
896            test_rule( 'rec(200,i1)', $rec, qq{ rec(200,'i1') }, [ '0' ] );
897            test_rule( 'rec(200,i2)', $rec, qq{ rec(200,'i2') }, [ '1' ] );
898    
899  }  }
900    
Legend:
Removed from v.1047  
changed lines
  Added in v.1048
  ViewVC Help
Powered by ViewVC 1.1.26