- # TODO move somewhere
- {
- no strict 'subs';
- use WebPAC::Normalize::Set;
- diag " lookup => ",Dumper($lookup) if ($debug);
- set_lookup( $lookup->lookup_hash );
- clean_ds();
- eval "$norm_pl";
- ok(! $@, $@ ? "error: $@" : "no error");
- ok(my $ds2 = get_ds(), "get_ds");
- is_deeply( $ds, $ds2, 'ds same for xml and sets');
+ my $t = time();
+ ok( my $ds = WebPAC::Normalize::data_structure(
+ row => $row,
+ rules => $norm_pl,
+ ), "Set data_structure");
+ $t_norm += time() - $t;