/[webpac2]/trunk/t/1-validate-delimiters.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/1-validate-delimiters.t

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

revision 849 by dpavlin, Sun May 27 10:50:37 2007 UTC revision 851 by dpavlin, Sun May 27 11:14:40 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use strict;  use strict;
4  use Test::More tests => 13;  use Test::More tests => 15;
5  use Test::Exception;  use Test::Exception;
6  use blib;  use blib;
7    
# Line 68  is_deeply( $v->{_delimiters_templates}, Line 68  is_deeply( $v->{_delimiters_templates},
68          901 => { "^a :  / ^b" => 2 },          901 => { "^a :  / ^b" => 2 },
69  }, 'just subfields and delimiters');  }, 'just subfields and delimiters');
70    
71  ok(my $dt = $v->delimiters_templates, 'delimiters_template');  ok(! $v->delimiters_templates, 'no accumulated delimiters_template');
72    
73    ok(my $dt = $v->delimiters_templates( current_input => 1 ), 'delimiters_template');
74  diag $dt if ( $debug );  diag $dt if ( $debug );
75    
76  ok($dt = $v->delimiters_templates( report => 1 ), 'delimiters_template report');  ok($dt = $v->delimiters_templates( report => 1, current_input => 1 ), 'delimiters_template report');
77  diag $dt if ( $debug );  diag $dt if ( $debug );
78    
79    $v->reset;
80    ok( $v->delimiters_templates, 'have accumulated delimiters_templates');
81    
82  $v->{_validate_delimiters_templates} = {  $v->{_validate_delimiters_templates} = {
83          900 => { '^a : ^b' => 1 },          900 => { '^a : ^b' => 1 },
84  };  };
Legend:
Removed from v.849  
changed lines
  Added in v.851
  ViewVC Help
Powered by ViewVC 1.1.26