r1519@llin: dpavlin | 2007-11-04 14:27:11 +0100

 get_ds did't really fit in normalize since we have to update store also

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@990 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 63a4d7c..47c9c5e 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -2,7 +2,6 @@ package WebPAC::Normalize;
 use Exporter 'import';
 our @EXPORT = qw/
        _set_ds _set_lookup
-       get_ds
        _set_load_row
        _get_ds _clean_ds
        _debug
@@ -133,18 +132,6 @@ sub _set_ds {
        $rec = shift or die "no record hash";
 }
 
-=head2 get_ds
-
-Access to original record from input module
-
-  my $ds = get_rec;
-
-=cut
-
-sub get_ds {
-       return $rec;
-}
-
 =head2 _set_config
 
 Set current config hash

diff --git a/t/3-normalize.t b/t/3-normalize.t
index 152be5b..3c96d97 100755 (executable)
--- a/t/3-normalize.t
+++ b/t/3-normalize.t
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 352;
+use Test::More tests => 351;
 
 BEGIN {
        use_ok( 'WebPAC::Test' );
@@ -164,8 +164,6 @@ sub test_s {
 
        _set_ds( $rec1 );
 
-       is_deeply( get_ds, $rec1, 'get_ds' );
-
        cmp_ok( join(",", rec2('200','a') ), 'eq', '200a,200a*2', 'join rec2' );
        cmp_ok( join(",", rec2('200','a'), rec2('200','b') ), 'eq', '200a,200a*2,200b', 'join rec2 rec2' );
        cmp_ok( join(" * ", sort(rec1('200'), rec1('201') )), 'eq', '200a * 200a*2 * 200b * 200c * 200d * 200d*2 * 201x * 201y', 'join sort rec1 rec1' );