/[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 1117 by dpavlin, Mon Nov 19 16:33:09 2007 UTC revision 1118 by dpavlin, Sun Oct 26 15:57:37 2008 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 344;  use Test::More tests => 348;
7    
8  BEGIN {  BEGIN {
9          use_ok( 'WebPAC::Test' );          use_ok( 'WebPAC::Test' );
# Line 896  sub test_s { Line 896  sub test_s {
896          test_rule( 'rec(200,i1)', $rec, qq{ rec(200,'i1') }, [ '0' ] );          test_rule( 'rec(200,i1)', $rec, qq{ rec(200,'i1') }, [ '0' ] );
897          test_rule( 'rec(200,i2)', $rec, qq{ rec(200,'i2') }, [ '1' ] );          test_rule( 'rec(200,i2)', $rec, qq{ rec(200,'i2') }, [ '1' ] );
898    
899            my $hash = { a => '[a]', 'b' => '[b]', subfields => [ 'a', 0, 'b', 0 ] };
900            is_deeply([ _pack_subfields_hash( $hash ) ], [ '[a]', '[b]' ], '_pack_subfields_hash' );
901            ok( $hash->{subfields}, 'subfields exist' );
902            cmp_ok( _pack_subfields_hash( $hash, 1 ), 'eq', '^a[a]^b[b]', '_pack_subfields_hash' );
903            ok( $hash->{subfields}, 'subfields exist' );
904    
905  }  }
906    

Legend:
Removed from v.1117  
changed lines
  Added in v.1118

  ViewVC Help
Powered by ViewVC 1.1.26