Parent Directory
| 
Revision Log
| 
Patch
| revision 829 by dpavlin, Sun May 20 16:19:19 2007 UTC | revision 832 by dpavlin, Wed May 23 20:03:16 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 => 4; | use Test::More tests => 5; |
| 5 | use Test::Exception; | use Test::Exception; |
| 6 | use blib; | use blib; |
| 7 | ||
| # | Line 64 is_deeply( $v->{_delimiters_templates}, | Line 64 is_deeply( $v->{_delimiters_templates}, |
| 64 | 901 => { "^a : / ^b" => 2 }, | 901 => { "^a : / ^b" => 2 }, |
| 65 | }, 'just subfields and delimiters'); | }, 'just subfields and delimiters'); |
| 66 | ||
| 67 | ok(my $dt = $v->delimiters_templates, 'delimiters_template'); | |
| 68 | diag $dt; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |