/[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 814 by dpavlin, Sun Apr 1 21:47:47 2007 UTC revision 815 by dpavlin, Mon Apr 2 17:20:01 2007 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5  use Test::More tests => 332;  use Test::More tests => 335;
6  use Test::Exception;  use Test::Exception;
7  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
8  use blib;  use blib;
# Line 835  sub test_s { Line 835  sub test_s {
835                  '^aa1^bb1^aa2^bb2^cc1^cc2',                  '^aa1^bb1^aa2^bb2^cc1^cc2',
836                  '_pack_subfields_hash( $h, 1 )'                  '_pack_subfields_hash( $h, 1 )'
837          );          );
838    
839            _clean_ds();
840            test_s(qq{
841                    marc_fixed('008', 0, 'abcdef');
842                    marc_fixed('000', 5, '5');
843                    marc_fixed('000', 10, 'A');
844                    marc_fixed('000', 0, '0');
845            });
846            ok( my $m = WebPAC::Normalize::_get_marc_fields(), '_get_marc_fields');
847            diag dump( $m );
848            is_deeply( WebPAC::Normalize::_get_marc_fields(),
849                    [
850                            ["008", "abcdef"],
851                            #        0....5....10
852                            ["000", "0    5    A"]
853                    ]
854            );
855  }  }
856    

Legend:
Removed from v.814  
changed lines
  Added in v.815

  ViewVC Help
Powered by ViewVC 1.1.26