r1085@llin: dpavlin | 2006-10-08 14:40:26 +0200

 added files needed for tests, quitet log

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

diff --git a/conf/log.conf b/conf/log.conf
index b55e6be..940265b 100644 (file)
--- a/conf/log.conf
+++ b/conf/log.conf
@@ -7,7 +7,7 @@ log4perl.rootLogger=INFO, LOG, SCREEN
 
 # you can specify methods from WebPAC here also!
 #log4perl.logger.main=INFO
-log4perl.logger.main=DEBUG
+#log4perl.logger.main=DEBUG
 
 #log4perl.logger.WebPAC=DEBUG
 

diff --git a/t/conf/marc.yml b/t/conf/marc.yml
new file mode 100644 (file)
index 0000000..4af0f87
--- /dev/null
+++ b/t/conf/marc.yml
@@ -0,0 +1,19 @@
+--- #YAML:1.0
+# DO NOT USE TABS FOR INDENTATION OR label/value SEPARATION!!!
+
+webpac:
+  inputs:
+    isis: 'WebPAC::Input::ISIS'
+    marc: 'WebPAC::Input::MARC'
+
+databases:
+  marc:
+    name: 'marc name'
+    input:
+      name: 'marc-input'
+      path: '/foo/bar/baz'
+      encoding: 'cp852'
+      #limit: 10
+      normalize:
+        path: 'conf/normalize/marc.pl'
+

diff --git a/t/conf/normalize/marc.pl b/t/conf/normalize/marc.pl
new file mode 100644 (file)
index 0000000..ed3a2d2
--- /dev/null
+++ b/t/conf/normalize/marc.pl
@@ -0,0 +1,17 @@
+
+marc_leader('05','c');
+
+marc_indicators('900', 1, ' ');
+
+marc('900','9', 'foo');
+
+marc_repeatable_subfield('901','a', 'bar');
+
+marc_compose('902', 'a', 'baz');
+
+marc_original_order('903', '200');
+
+marc_duplicate();
+       
+marc_remove('903');
+