testate le chiavi

git-svn-id: svn://luxion/repos/WebCoso/trunk@159 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 12 insertions, 2 deletions

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