From 486b3650749f9e25a6e79a20ed733fa2ff7f543a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Tue, 7 Feb 2006 16:37:01 +0000
Subject: testate le chiavi

git-svn-id: svn://luxion/repos/WebCoso/trunk@159 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 t/steps/rest-xml.t | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 't')

diff --git a/t/steps/rest-xml.t b/t/steps/rest-xml.t
index 6ee8fa2..2b351ef 100644
--- a/t/steps/rest-xml.t
+++ b/t/steps/rest-xml.t
@@ -11,19 +11,20 @@ use WebCoso::Resource;
 BEGIN {use_ok('WebCoso::Step::ReST::ToXml')}
 my $step=WebCoso::Step::ReST::ToXml->new();
 
+my $srckey='rstdoc';
 sub make_res {
     my $resource=WebCoso::Resource->new();
     # serve solo per il path
     $resource->set_property({filename=>'/tmp/mydoc.rest.txt'},datastream=>undef);
     if (@_==1) { # monolingua
-        $resource->set_property(rstdoc=>$_[0]);
+        $resource->set_property($srckey=>$_[0]);
     }
     else { # multilingua
         my %rst_doc=@_;
         while (my ($lang,$str)=each %rst_doc) {
             $resource->set_property(
                 {language=>$lang},
-                rstdoc=>$str
+                $srckey=>$str
             );
         }
     }
@@ -97,3 +98,12 @@ is($dom->findvalue('/document/paragraph'),
    'paragraph',
    'paragraph content');
 
+# test per chiavi arbitrarie
+$step=WebCoso::Step::ReST::ToXml->new({from=>'rest',to=>'xml'});
+$srckey='rest';
+$resource=make_res(<<'END_REST');
+testo
+END_REST
+$step->process($resource,'meta');
+$dom=$resource->get_property('xml');
+isa_ok($dom,'XML::LibXML::Document','chiavi arbitrarie');
-- 
cgit v1.2.3