t/cfg.16

# variable interpolation test

<vars>
  base = /usr
  uid  = 501
</vars>

<etc>
  dir = $base/conf   # $base should not be interpolated
  base = /usr/local # set $base to a new value in this scope
  log  = ${base}/log/logfile  # use braces
  <users>
    home = $base/home/max # $base should be interpolated
  </users>
</etc>
1.32 - argl ... I forgot Interpolated.pm, don't know how that could happen, in 1.29 it was "lost". However - I added it again now. - added patch by Peder Stray <peder@linpro.no> to the _store() method, which makes it possible to catch arrays of hashes to be stored correctly. - cleaned up the t/run.t testscript to reflect the changes (in fact I did not touch it since 1.18 or so). - added test number 16 to test variable interpolation using ::Interpolated in t/run.t. - fixed bug with new() parameter -AllowMultiOptions which generated a croak() if set to something other than "no". - changed Extended::save() to reflect the API change, it calls now save_file(). git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@21 be1acefe-a474-0410-9a34-9b3221f2030f 2009-10-10 16:17:24 +00:00			`# variable interpolation test`

			`<vars>`
			`base = /usr`
			`uid = 501`
			`</vars>`

			`<etc>`
			`dir = $base/conf # $base should not be interpolated`
			`base = /usr/local # set $base to a new value in this scope`
			`log = ${base}/log/logfile # use braces`
			`<users>`
			`home = $base/home/max # $base should be interpolated`
			`</users>`
			`</etc>`