From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 4 Nov 2007 13:27:12 +0000 (+0000)
Subject:  r1519@llin:  dpavlin | 2007-11-04 14:27:11 +0100
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=4a9b1e3d80f6f6d5f3535a02e82f1261a1b09863;p=webpac2

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