Update of /cvsroot/perl-xml/xml-simple/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27603/t
Modified Files:
1_XMLin.t
Log Message:
- allow '.' characters in variable names
Index: 1_XMLin.t
===================================================================
RCS file: /cvsroot/perl-xml/xml-simple/t/1_XMLin.t,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- 1_XMLin.t 29 Jan 2005 04:17:42 -0000 1.22
+++ 1_XMLin.t 28 Apr 2006 22:43:36 -0000 1.23
@@ -1088,10 +1088,14 @@
<dir xsvar="conf_dir">/etc</dir>
<dir xsvar="log_dir">/var/log</dir>
<cfg xsvar="have_docs">false</cfg>
+ <cfg xsvar="host.domain">search.perl.org</cfg>
+ <cfg xsvar="bad/name">bogus</cfg>
<file name="config_file">${conf_dir}/appname.conf</file>
<file name="log_file">${log_dir}/appname.log</file>
<file name="debug_file">${log_dir}/appname.dbg</file>
+ <file name="bogus_file">${bad/name}</file>
<opt docs="${have_docs}" />
+ <site url="http://${host.domain}/" />
</opt>);
$opt = XMLin($xml, contentkey => '-content', varattr => 'xsvar');
@@ -1100,13 +1104,19 @@
config_file => '/etc/appname.conf',
log_file => '/var/log/appname.log',
debug_file => '/var/log/appname.dbg',
+ bogus_file => '${bad/name}', # '/' is not valid in a var name
},
- opt => { docs => 'false' },
+ opt => { docs => 'false' },
+ site => { url => 'http://search.perl.org/' },
dir => [
{ xsvar => 'conf_dir', content => '/etc' },
{ xsvar => 'log_dir', content => '/var/log' },
],
- cfg => { xsvar => 'have_docs', content => 'false' },
+ cfg => [
+ { xsvar => 'have_docs', content => 'false' },
+ { xsvar => 'host.domain', content => 'search.perl.org' },
+ { xsvar => 'bad/name', content => 'bogus' },
+ ],
}, 'variables defined in XML work');
|
