From: DongHun Kwak <dh0128.kwak@samsung.com>
Date: Mon, 11 Mar 2019 02:00:09 +0000 (+0900)
Subject: fix test script
X-Git-Tag: submit/tizen/20190311.030432^0
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=906e27ecb2eac09d651bb0b2e0316c13b22ae5a4;p=platform%2Fupstream%2Fperl-XML-Simple.git

fix test script

build error
"""
[   42s] t/7_SaxStuff.t .... skipped: no XML::SAX
[   42s] Unescaped left brace in regex is illegal here in regex; marked
by <-- HERE in m/
[   42s]   ^\s*<opt
[   42s]
(\s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/"
 [   42s]   |\s+{http://www.perl.com/}attr="value"
 [   42s]   |\s+bare="Beer!"){3}
[   42s]   \s*>
[   42s]   \s*<{ <-- HERE
    http://www.perl.com/}element\s*>data</{http://www.perl.com/}element\s*>
    [   42s]   \s*</opt>
    [   42s]   \s*$
"""

Change-Id: Ic81649966d183594046703608e48fd76e82f4daa
Signed-off-by: DongHun Kwak <dh0128.kwak@samsung.com>
---

diff --git a/t/8_Namespaces.t b/t/8_Namespaces.t
index b4cef66..03f41ac 100644
--- a/t/8_Namespaces.t
+++ b/t/8_Namespaces.t
@@ -125,16 +125,16 @@ $opt = {
 };
 
 $xml = XMLout($opt);
-like($xml, qr{
+like($xml, qr[
   ^\s*<opt
   (\s+{http://www.w3.org/2000/xmlns/}perl="http://www.perl.com/"
   |\s+{http://www.perl.com/}attr="value"
   |\s+bare="Beer!"){3}
   \s*>
-  \s*<{http://www.perl.com/}element\s*>data</{http://www.perl.com/}element\s*>
+  \s*<\{http://www.perl.com/\}element\s*>data</\{http://www.perl.com/\}element\s*>
   \s*</opt>
   \s*$
-}sx, 'clarkian names not converted to qnames on output by default');
+]sx, 'clarkian names not converted to qnames on output by default');
 
 
 # Confirm nsexpand option works on output