/[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 1020 by dpavlin, Sat Nov 10 00:05:36 2007 UTC revision 1021 by dpavlin, Sat Nov 10 11:11:16 2007 UTC
# Line 523  sub test_s { Line 523  sub test_s {
523                  }                  }
524    
525                  ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");                  ok(my $marc = WebPAC::Normalize::_get_marc_fields(), "_get_marc_fields");
526                  diag dump( $marc ) if ($debug);                  diag dump( $marc ) if $debug;
527                  diag "expects:\n", dump($struct) if ($debug > 1);                  diag "expects:\n", dump($struct) if ($debug > 1);
528                  is_deeply( $marc, $struct, $msg );                  is_deeply( $marc, $struct, $msg );
529          }          }
# Line 918  sub test_s { Line 918  sub test_s {
918                                  'i' => 'i-4-1',                                  'i' => 'i-4-1',
919                                  'w' => 'w-4-1',                                  'w' => 'w-4-1',
920                          },{                          },{
921                                  'a' => 'a-5-1',                                  'a' => 'a-4-1',
922                                    'v' => 'v-4-1',
923                                    'i' => 'i-4-1',
924                            },{
925                                    'a' => 'a-4-1',
926                                    'i' => 'i-4-1',
927                                    'w' => 'w-4-1',
928                          }],                          }],
929                  },                  },
930                  qq{                  qq{
# Line 932  sub test_s { Line 938  sub test_s {
938                                          'i' => 'p',                                          'i' => 'p',
939                                          'w' => 'v',                                          'w' => 'v',
940                                  ],                                  ],
941                                    isis_template => [
942                                            'a ; |v. |i',
943                                            'a. |i ; |w',
944                                    ],
945                                  marc_template => [                                  marc_template => [
946                                          'a',                                          'a',
947                                          'a, |x ; |v. |n, |p ; |v',                                          'a, |x ; |v. |n, |p ; |v',
948                                          'a ; |v. |p ; |v',                                          'a ; |v. |p ; |v',
                                         'a. |p ; |v',  
949                                  ],                                  ],
950                          );                          );
951                  },                  },
Legend:
Removed from v.1020  
changed lines
  Added in v.1021
  ViewVC Help
Powered by ViewVC 1.1.26