/[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 1014 by dpavlin, Thu Nov 8 16:55:59 2007 UTC revision 1015 by dpavlin, Thu Nov 8 17:19:50 2007 UTC
# Line 881  sub test_s { Line 881  sub test_s {
881          test_rule( 'frec', $rec, qq{ frec(200,'b') }, [ 'b1' ] );          test_rule( 'frec', $rec, qq{ frec(200,'b') }, [ 'b1' ] );
882          test_rule( 'frec', $rec, qq{ frec(200,'c') }, [ 'c1' ] );          test_rule( 'frec', $rec, qq{ frec(200,'c') }, [ 'c1' ] );
883    
884            $rec->{'900'} = $rec->{'200'};
885            foreach my $sf ( qw/a b c/ ) {
886                    ok( frec_eq( '200' => $sf, '900' => $sf ), "frec_eq 200 == 900 $sf");
887                    ok( ! frec_ne( '200' => $sf, '900' => $sf ), "! frec_ne 200 == 900 $sf");
888            }
889    
890            foreach my $sf ( qw/a b/ ) {
891                    ok( ! frec_eq( '200' => $sf, '200' => 'c' ), "! frec_eq 200 $sf == 200 c");
892                    ok( frec_ne( '200' => $sf, '200' => 'c' ), "frec_ne 200 $sf == 200 c");
893            }
894    
895          # marc_template          # marc_template
896    
897          test_rec_rules(          test_rec_rules(
Legend:
Removed from v.1014  
changed lines
  Added in v.1015
  ViewVC Help
Powered by ViewVC 1.1.26