/[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 799 by dpavlin, Sun Feb 4 15:09:01 2007 UTC revision 800 by dpavlin, Sun Feb 4 23:10:18 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 108;  use Test::More tests => 111;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
# Line 177  ok($input->open( Line 177  ok($input->open(
177  my $f = $WebPAC::Input::Test::filter_coderef;  my $f = $WebPAC::Input::Test::filter_coderef;
178  ok(ref($f) eq 'CODE', 'filter_coderef');  ok(ref($f) eq 'CODE', 'filter_coderef');
179    
180  diag "regexps = ", dump($input->modify_file_regexps( $modify_file ));  diag "regexps = ", dump($input->modify_file_regexps( $modify_file )) if ($debug);
181    
182  sub test_filter {  sub test_filter {
183          my ($field, $from, $to) = @_;          my ($field, $from, $to) = @_;
# Line 186  sub test_filter { Line 186  sub test_filter {
186    
187  test_filter(200,  test_filter(200,
188          '^a foo ; bar = baz : zzz',          '^a foo ; bar = baz : zzz',
189          '^a foo^kbar^dbaz^ezzz',          '^a foo^kbar^dbaz : zzz',
190  );  );
191    
Legend:
Removed from v.799  
changed lines
  Added in v.800
  ViewVC Help
Powered by ViewVC 1.1.26