From 2ac6c95ca69cc649b6c4e45291d2c9764bcf2dee Mon Sep 17 00:00:00 2001 From: Richard Jones Date: Thu, 13 May 2010 11:23:50 +0100 Subject: [PATCH] Include a test for regimport of values containing backslash chars. --- perl/t/560-regedit-import.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/perl/t/560-regedit-import.t b/perl/t/560-regedit-import.t index 163a46e..0dca8df 100644 --- a/perl/t/560-regedit-import.t +++ b/perl/t/560-regedit-import.t @@ -18,7 +18,6 @@ use strict; use warnings; -use Encode qw(from_to); use IO::Scalar; use Test::More tests => 16; @@ -102,12 +101,18 @@ $expected = '[\] run_test ($data, $expected); +# In the next test, the value of ValueContainingEscapes in the +# imported data is \\W\\, which will become \W\ in the final hive. +# However Perl has complex and inconsistent rules on quoting +# backslashes. See: +# http://en.wikibooks.org/wiki/Perl_Programming/Strings#Single_Quoted_Strings $data = ' [\A] "NotExistant"=- [\A\B] "Key\"Containing\"Quotes"=hex(0): +"ValueContainingEscapes"="\\\\W\\\\" '; $expected = '[\] @@ -115,6 +120,7 @@ $expected = '[\] [\A\B] "Key\"Containing\"Quotes"=hex(0): +"ValueContainingEscapes"=hex(1):5c,00,57,00,5c,00,00,00 '; @@ -123,6 +129,7 @@ run_test ($data, $expected); $data = ' [\A\B] "Key\"Containing\"Quotes"=- +"ValueContainingEscapes"=- -[\A] '; -- 1.8.3.1