diff options
| author | dakkar <dakkar@luxion> | 2006-02-07 16:37:01 +0000 |
|---|---|---|
| committer | dakkar <dakkar@luxion> | 2006-02-07 16:37:01 +0000 |
| commit | 486b3650749f9e25a6e79a20ed733fa2ff7f543a (patch) | |
| tree | 5c414ae832d78ca85de5d782203af42eaf586de6 /t/steps | |
| parent | portato ToXml ai nuovi fh lazy, e aggiunta gestione chiavi arbitrarie (diff) | |
| download | WebCoso-486b3650749f9e25a6e79a20ed733fa2ff7f543a.tar.gz WebCoso-486b3650749f9e25a6e79a20ed733fa2ff7f543a.tar.bz2 WebCoso-486b3650749f9e25a6e79a20ed733fa2ff7f543a.zip | |
testate le chiavi
git-svn-id: svn://luxion/repos/WebCoso/trunk@159 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 't/steps')
| -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'); |