2 |
|
|
3 |
use strict; |
use strict; |
4 |
|
|
5 |
use Test::More tests => 16; |
use Test::More tests => 23; |
6 |
use Test::Exception; |
use Test::Exception; |
7 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
8 |
use blib; |
use blib; |
86 |
|
|
87 |
sub test_s { |
sub test_s { |
88 |
my $t = shift || die; |
my $t = shift || die; |
89 |
|
$t =~ s/[\n\r\s]+/ /gs; |
90 |
ok(my $v = eval "$t", "eval: $t"); |
ok(my $v = eval "$t", "eval: $t"); |
91 |
ok(! $@, "$t == ".join("|", @{$v})); |
ok(! $@, "eval error: $@"); |
92 |
} |
} |
93 |
|
|
94 |
{ |
{ |
146 |
ok(my $ds = get_ds(), "get_ds"); |
ok(my $ds = get_ds(), "get_ds"); |
147 |
diag "ds = ", Dumper($ds); |
diag "ds = ", Dumper($ds); |
148 |
|
|
149 |
#my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" ); |
clean_ds(); |
150 |
|
|
151 |
|
my $n = read_file( "$abs_path/conf/normalize/isis_ffzg.pl" ); |
152 |
|
$n .= "\n1;\n"; |
153 |
#diag "normalize code:\n$n\n"; |
#diag "normalize code:\n$n\n"; |
154 |
#eval "$n"; |
test_s( $n ); |
155 |
#warn $@ if ($@); |
|
156 |
|
ok($ds = get_ds(), "get_ds"); |
157 |
|
diag "ds = ", Dumper($ds); |
158 |
} |
} |
159 |
|
|