diff options
Diffstat (limited to 't/steps/rest-xml.t')
| -rw-r--r-- | t/steps/rest-xml.t | 14 |
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'); |