mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
fixed rt.cpan.org#56532
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@84 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
3
t/run.t
3
t/run.t
@@ -8,7 +8,7 @@
|
||||
|
||||
|
||||
use Data::Dumper;
|
||||
use Test::More tests => 63;
|
||||
use Test::More tests => 64;
|
||||
#use Test::More qw(no_plan);
|
||||
|
||||
# ahem, we deliver the test code with a local copy of
|
||||
@@ -696,6 +696,7 @@ is($hash51{dollar}, '$foo', "keep escaped dollar character");
|
||||
is($hash51{backslash}, 'contains \ backslash', "keep escaped backslash character");
|
||||
is($hash51{prize}, '18 $', "keep un-escaped dollar character");
|
||||
is($hash51{hostparam}, q("'wsh.dir'"), "keep escaped quote character");
|
||||
is($hash51{bgcolor}, '#fff', "keep escaped number sign");
|
||||
|
||||
# now save it to a file and re-read it in and see if everything remains escaped
|
||||
$cfg51->save_file("t/cfg.51.out");
|
||||
|
||||
Reference in New Issue
Block a user