/[Biblio-Isis]/trunk/t/2_isis.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_isis.t

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

revision 61 by dpavlin, Sun Jul 9 21:36:33 2006 UTC revision 62 by dpavlin, Mon Jul 10 12:01:04 2006 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 136;  use Test::More tests => 139;
7  use File::Spec;  use File::Spec;
8    
9  BEGIN {  BEGIN {
# Line 315  warn "----- patt: $patt -> $new_sf\n"; Line 315  warn "----- patt: $patt -> $new_sf\n";
315    
316  diag "generated regexpes = ", Dumper( $regexpes );  diag "generated regexpes = ", Dumper( $regexpes );
317    
   
318  ok($hash = $isis->to_hash({ mfn => $isis->mfn, regexps => $regexpes, }), 'to_hash(mfn,regexpes)');  ok($hash = $isis->to_hash({ mfn => $isis->mfn, regexps => $regexpes, }), 'to_hash(mfn,regexpes)');
319  diag "to_hash = ",Dumper( $hash ) if ($debug);  diag "to_hash = ",Dumper( $hash ) if ($debug);
320  is_deeply( $hash, {  is_deeply( $hash, {
# Line 327  is_deeply( $hash, { Line 326  is_deeply( $hash, {
326                { c => ["901c-3", "901c-3"] },                { c => ["901c-3", "901c-3"] },
327              ],              ],
328  }, 'hash is_deeply');  }, 'hash is_deeply');
329    
330    ok($isis->{regexpes} = $regexpes, 'isis->{regexpes}');
331    ok($hash2 = $isis->to_hash( $isis->mfn ), 'to_hash(mfn), global regexpes');
332    diag "to_hash = ",Dumper( $hash ) if ($debug);
333    is_deeply( $hash2, $hash, 'hash is_deeply');
Legend:
Removed from v.61  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.26