[Bps-public-commit] Config-GitLike branch, master, updated. 1.00-14-gb614bea

[sunnavy at bestpractical.com]

The branch, master has been updated
       via  b614beaa88256050ec30d7b16d41072b9a94bc09 (commit)
      from  83ca5afbcae265b67103ed6b0dc987f649d70314 (commit)

Summary of changes:
 t/t1300-repo-config.t |   14 +++++++++++++-
 1 files changed, 13 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit b614beaa88256050ec30d7b16d41072b9a94bc09
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Aug 14 20:08:39 2009 +0800

    add test for escaped backslashes in subsection

diff --git a/t/t1300-repo-config.t b/t/t1300-repo-config.t
index f556285..526efde 100644
--- a/t/t1300-repo-config.t
+++ b/t/t1300-repo-config.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use File::Copy;
-use Test::More tests => 133;
+use Test::More tests => 134;
 use Test::Exception;
 use File::Spec;
 use File::Temp qw/tempdir/;
@@ -1526,3 +1526,15 @@ lives_and {
     is( $config->get( key => 'test.a[]' ), 'b' );
 } 'key can contain but not start with [ in nocompat mode';
 
+
+lives_and {
+    $config->set(
+        key      => "section.foo\\\\bar.baz",
+        value    => 'none',
+        filename => $config_filename,
+    );
+    $config->load;
+    is( $config->get( key => "section.foo\\\\bar.baz" ), 'none' );
+}
+"subsection with escaped backslashes";
+

-----------------------------------------------------------------------