From 4f3f6228060459df5280dd6701aca250dd8dbbc3 Mon Sep 17 00:00:00 2001 From: John Maddock Date: Mon, 19 Mar 2007 13:21:05 +0000 Subject: [PATCH] Added new test for Perl style formatting with \u and \l. [SVN r37229] --- test/regress/test_replace.cpp | 1 + 1 file changed, 1 insertion(+) diff --git a/test/regress/test_replace.cpp b/test/regress/test_replace.cpp index e91b8ef6..d1766c19 100644 --- a/test/regress/test_replace.cpp +++ b/test/regress/test_replace.cpp @@ -55,6 +55,7 @@ void test_replace() TEST_REGEX_REPLACE("(A+)", perl, "...AAA,,,", match_default|format_no_copy, "\\l$1", "aAA"); TEST_REGEX_REPLACE("(A+)", perl, "...AAA,,,", match_default|format_no_copy, "\\L$1", "aaa"); TEST_REGEX_REPLACE("(A+)", perl, "...AAA,,,", match_default|format_no_copy, "\\L$1\\E$1", "aaaAAA"); + TEST_REGEX_REPLACE("\\w+", perl, "fee FOO FAR bAR", match_default|format_perl, "\\L\\u$0", "Fee Foo Far Bar"); // sed format sequences: TEST_REGEX_REPLACE("(a+)(b+)", perl, " ...aabb,,", match_default|format_sed|format_no_copy, "\\0", "aabb"); TEST_REGEX_REPLACE("(a+)(b+)", perl, " ...aabb,,", match_default|format_sed|format_no_copy, "\\1", "aa");