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 { |
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, { |
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'); |