/[webpac2]/trunk/t/2-input.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/2-input.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 821 by dpavlin, Wed Apr 11 12:22:33 2007 UTC revision 823 by dpavlin, Wed Apr 11 12:22:37 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 116;  use Test::More tests => 118;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
# Line 193  ok($input->open( Line 193  ok($input->open(
193          modify_records => {          modify_records => {
194                  900 => {                  900 => {
195                          '^a' => { '^e' => ' : ^e' },                          '^a' => { '^e' => ' : ^e' },
196                  }                  },
197                    901 => {
198                            '^a' => { 'foo' => 'baz' },
199                    },
200          },          },
201  ), "open (with modify_records for empty subfields)");  ), "open (with modify_records for empty subfields)");
202    
# Line 206  test_filter(900, Line 209  test_filter(900,
209          '^afoo^ebar',          '^afoo^ebar',
210          '^afoo : ^ebar',          '^afoo : ^ebar',
211  );  );
212    
213    test_filter(901,
214            '^afoo^ebar',
215            '^abaz^ebar',
216    );
Legend:
Removed from v.821  
changed lines
  Added in v.823
  ViewVC Help
Powered by ViewVC 1.1.26