2005-01-13 17:06:21 +00:00
/*
*
* Copyright (c) 2004
2005-01-21 17:28:42 +00:00
* John Maddock
2005-01-13 17:06:21 +00:00
*
* Use, modification and distribution are subject to the
* Boost Software License, Version 1.0. (See accompanying file
* LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
*
*/
#include "test.hpp"
#ifdef BOOST_MSVC
#pragma warning(disable:4127)
#endif
2005-09-14 12:20:41 +00:00
void test_simple_repeats2 ();
2005-01-13 17:06:21 +00:00
void test_simple_repeats ()
{
using namespace boost :: regex_constants ;
// simple repeats:
TEST_REGEX_SEARCH ( "a*" , perl , "b" , match_default , make_array ( 0 , 0 , - 2 , 1 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab*" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab*" , basic , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab*" , perl , "sssabbbbbbsss" , match_default , make_array ( 3 , 10 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab*c*" , perl , "a" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab*c*" , perl , "abbb" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab*c*" , perl , "accc" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab*c*" , perl , "abbcc" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "*a" , basic , "*a" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "^*a" , basic , "*a" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_INVALID_REGEX ( "*a" , perl );
TEST_INVALID_REGEX ( " \\ <*" , perl );
TEST_INVALID_REGEX ( " \\ >*" , perl );
TEST_REGEX_SEARCH ( " \n *" , perl , " \n\n " , match_default , make_array ( 0 , 2 , - 2 , 2 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ **" , perl , "**" , match_default , make_array ( 0 , 2 , - 2 , 2 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ *" , perl , "*" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "(ab)*" , perl , "abab" , match_default , make_array ( 0 , 4 , 2 , 4 , - 2 , 4 , 4 , - 2 , - 2 ));
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "(*)" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "(*)" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( " \\ (* \\ )" , basic );
TEST_INVALID_REGEX ( "^*" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "^*" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "$*" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "$*" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "$*" , basic );
TEST_INVALID_REGEX ( " \\ b*" , perl );
TEST_INVALID_REGEX ( " \\ B*" , perl );
TEST_INVALID_REGEX ( " \\ A*" , perl );
TEST_INVALID_REGEX ( " \\ z*" , perl );
TEST_INVALID_REGEX ( " \\ Z*" , perl );
TEST_INVALID_REGEX ( " \\ A*" , perl );
TEST_INVALID_REGEX ( "a|*" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "a|*" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "(+)" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "(+)" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "^+" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "^+" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "$+" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "$+" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( " \\ b+" , perl );
TEST_INVALID_REGEX ( " \\ B+" , perl );
TEST_INVALID_REGEX ( " \\ A+" , perl );
TEST_INVALID_REGEX ( " \\ z+" , perl );
TEST_INVALID_REGEX ( " \\ Z+" , perl );
TEST_INVALID_REGEX ( " \\ A+" , perl );
TEST_INVALID_REGEX ( "a|+" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "a|+" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "(?)" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "(?)" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "^?" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "^?" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "$?" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "$?" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( " \\ b?" , perl );
TEST_INVALID_REGEX ( " \\ B?" , perl );
TEST_INVALID_REGEX ( " \\ A?" , perl );
TEST_INVALID_REGEX ( " \\ z?" , perl );
TEST_INVALID_REGEX ( " \\ Z?" , perl );
TEST_INVALID_REGEX ( " \\ A?" , perl );
TEST_INVALID_REGEX ( "a|?" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "a|?" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "({1,2})" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "({1,2})" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "^{1,2}" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "^{1,2}" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( "${1,2}" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "${1,2}" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
TEST_INVALID_REGEX ( " \\ b{1,2}" , perl );
TEST_INVALID_REGEX ( " \\ B{1,2}" , perl );
TEST_INVALID_REGEX ( " \\ A{1,2}" , perl );
TEST_INVALID_REGEX ( " \\ z{1,2}" , perl );
TEST_INVALID_REGEX ( " \\ Z{1,2}" , perl );
TEST_INVALID_REGEX ( " \\ A{1,2}" , perl );
TEST_INVALID_REGEX ( "a|{1,2}" , perl );
2007-10-16 16:11:30 +00:00
TEST_INVALID_REGEX ( "a|{1,2}" , boost :: regex :: extended );
2005-10-27 10:25:22 +00:00
2005-01-13 17:06:21 +00:00
// now try operator + :
TEST_REGEX_SEARCH ( "ab+" , perl , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab+" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab+" , perl , "sssabbbbbbsss" , match_default , make_array ( 3 , 10 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab+c+" , perl , "abbb" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab+c+" , perl , "accc" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab+c+" , perl , "abbcc" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_INVALID_REGEX ( "+a" , perl );
TEST_INVALID_REGEX ( " \\ <+" , perl );
TEST_INVALID_REGEX ( " \\ >+" , perl );
TEST_REGEX_SEARCH ( " \n +" , perl , " \n\n " , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ +" , perl , "+" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ +" , perl , "++" , match_default , make_array ( 0 , 1 , - 2 , 1 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ ++" , perl , "++" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "+" , basic | bk_plus_qm , "+" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_INVALID_REGEX ( " \\ +" , basic | bk_plus_qm );
TEST_REGEX_SEARCH ( "a \\ +" , basic | bk_plus_qm , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
// now try operator ?
TEST_REGEX_SEARCH ( "a?" , perl , "b" , match_default , make_array ( 0 , 0 , - 2 , 1 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab?" , perl , "a" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab?" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab?" , perl , "sssabbbbbbsss" , match_default , make_array ( 3 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab?c?" , perl , "a" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab?c?" , perl , "abbb" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab?c?" , perl , "accc" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab?c?" , perl , "abcc" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
TEST_INVALID_REGEX ( "?a" , perl );
TEST_INVALID_REGEX ( " \\ <?" , perl );
TEST_INVALID_REGEX ( " \\ >?" , perl );
TEST_REGEX_SEARCH ( " \n ?" , perl , " \n\n " , match_default , make_array ( 0 , 1 , - 2 , 1 , 2 , - 2 , 2 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ ?" , perl , "?" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ ?" , perl , "?" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ ??" , perl , "??" , match_default , make_array ( 0 , 1 , - 2 , 1 , 2 , - 2 , 2 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "?" , basic | bk_plus_qm , "?" , match_default , make_array ( 0 , 1 , - 2 , - 2 ));
TEST_INVALID_REGEX ( " \\ ?" , basic | bk_plus_qm );
TEST_REGEX_SEARCH ( "a \\ ?" , basic | bk_plus_qm , "aa" , match_default , make_array ( 0 , 1 , - 2 , 1 , 2 , - 2 , 2 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ ?" , basic | bk_plus_qm , "b" , match_default , make_array ( 0 , 0 , - 2 , 1 , 1 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a?" , basic , "a?" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a+" , basic , "a+" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ ?" , basic , "a?" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ +" , basic , "a+" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
// now try operator {}
TEST_REGEX_SEARCH ( "a{2}" , perl , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2}" , perl , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2}" , perl , "aaa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,}" , perl , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,}" , perl , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,}" , perl , "aaaaa" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}" , perl , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}" , perl , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}" , perl , "aaa" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}" , perl , "aaaa" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}" , perl , "aaaaa" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{ 2 , 4 }" , perl , "aaaaa" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{ 2 , }" , perl , "aaaaa" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{ 2 }" , perl , "aaa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ { \\ }" , perl , "a{}" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
2005-08-19 16:12:45 +00:00
TEST_REGEX_SEARCH ( "a{2,4}?" , perl , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?" , perl , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?" , perl , "aaa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?" , perl , "aaaa" , match_default , make_array ( 0 , 2 , - 2 , 2 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?" , perl , "aaaaa" , match_default , make_array ( 0 , 2 , - 2 , 2 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?$" , perl , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?$" , perl , "aaa" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?$" , perl , "aaaa" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{2,4}?$" , perl , "aaaaa" , match_default , make_array ( 1 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "^a{0,1}?$" , perl , "aaaaa" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "^(?:a){0,1}?$" , perl , "aaaaa" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "^a(?:bc)?" , perl , "abcbc" , match_any | match_all , make_array ( - 2 , - 2 ));
2014-09-25 11:45:26 +01:00
TEST_REGEX_SEARCH ( "a}" , perl , "a}" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{12b" , perl , "a{12bc" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
2015-10-22 13:33:25 +01:00
TEST_INVALID_REGEX ( "a{b" , boost :: regex :: extended );
TEST_INVALID_REGEX ( "a}b" , boost :: regex :: extended );
2009-11-07 15:32:45 +00:00
test_simple_repeats2 ();
2005-09-14 12:20:41 +00:00
}
void test_simple_repeats2 ()
{
using namespace boost :: regex_constants ;
2005-08-19 16:12:45 +00:00
2013-05-19 11:12:14 +00:00
TEST_REGEX_SEARCH ( "a{}" , basic , "a{}" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{" , basic , "a{" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{1" , basic , "a{1" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{1," , basic , "a{1," , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{1,2" , basic , "a{1,2" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{ 1 , 2" , basic , "a{ 1 , 2" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{ }" , basic , "a{ }" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a}" , basic , "a}" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
2005-01-13 17:06:21 +00:00
TEST_INVALID_REGEX ( "{1}" , perl );
2013-05-19 11:12:14 +00:00
TEST_REGEX_SEARCH ( "a{b}" , basic , "a{b}" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{1b" , basic , "a{1b" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{1,b}" , basic , "a{1,b}" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{1,2v}" , basic , "a{1,2v}" , match_default , make_array ( 0 , 7 , - 2 , - 2 ));
2005-01-13 17:06:21 +00:00
TEST_INVALID_REGEX ( "a{2,1}" , perl );
// now try operator \\{\\} for POSIX basic regexes
TEST_REGEX_SEARCH ( "a \\ {2 \\ }" , basic , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2 \\ }" , basic | no_intervals , "a{2}" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2 \\ }" , basic , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2 \\ }" , basic , "aaa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2, \\ }" , basic , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2, \\ }" , basic , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2, \\ }" , basic , "aaaaa" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2,4 \\ }" , basic , "a" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2,4 \\ }" , basic , "aa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2,4 \\ }" , basic , "aaa" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2,4 \\ }" , basic , "aaaa" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ {2,4 \\ }" , basic , "aaaaa" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ { 2 , 4 \\ }" , basic , "aaaaa" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ { 2 , \\ }" , basic , "aaaaa" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a \\ { 2 \\ }" , basic , "aaa" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a{}" , basic , "a{}" , match_default , make_array ( 0 , 3 , - 2 , - 2 ));
TEST_INVALID_REGEX ( "a \\ { \\ }" , basic );
TEST_INVALID_REGEX ( "a \\ {" , basic );
TEST_INVALID_REGEX ( "a \\ {1" , basic );
TEST_INVALID_REGEX ( "a \\ {1," , basic );
TEST_INVALID_REGEX ( "a \\ {1, \\ " , basic );
TEST_INVALID_REGEX ( "a \\ { \\ }" , basic );
TEST_INVALID_REGEX ( "a \\ }" , basic );
TEST_INVALID_REGEX ( " \\ {1 \\ }" , basic );
TEST_INVALID_REGEX ( "a \\ {b \\ }" , basic );
TEST_INVALID_REGEX ( "a \\ {1b \\ }" , basic );
TEST_INVALID_REGEX ( "a \\ {1,b \\ }" , basic );
TEST_INVALID_REGEX ( "a \\ {1,2v \\ }" , basic );
TEST_INVALID_REGEX ( "a \\ {3,1 \\ }" , basic );
}
void test_fast_repeats ()
{
using namespace boost :: regex_constants ;
2015-10-22 13:33:25 +01:00
// boost::regex::extended repeat checking to exercise new algorithms:
2005-01-13 17:06:21 +00:00
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( ".*xy" , perl , "abc" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( ".*?xy" , perl , "abc" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a+?xy" , perl , "abc" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}" , perl , "ab_______" , match_default , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?" , perl , "ab__" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?" , perl , "ab_______" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
// again but with slower algorithm variant:
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "abxy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "ab_xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "abxy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*xy" , perl , "ab_xy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*" , perl , "ab" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*" , perl , "ab__" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( ".*xy" , perl , "abc" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( ".*?xy" , perl , "abc" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( ".*xy" , perl , "ab \n bc" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( ".*?xy" , perl , "ax \n bc" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab__xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab____xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_____xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab__xy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_____xy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}" , perl , "ab__" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}" , perl , "ab_______" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab______xy" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_xy" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "abxy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "ab_xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "abxy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?xy" , perl , "ab_xy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?" , perl , "ab" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.*?" , perl , "ab__" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab__xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab____xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab_____xy_" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab__xy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab_____xy" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?" , perl , "ab__" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?" , perl , "ab_______" , match_not_dot_newline | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}?xy" , perl , "ab______xy" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab.{2,5}xy" , perl , "ab_xy" , match_not_dot_newline | match_not_dot_null , make_array ( - 2 , - 2 ));
// now again for single character repeats:
TEST_REGEX_SEARCH ( "ab_*xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*?z" , perl , "ab__" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}" , perl , "ab_______" , match_default , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*?xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*?xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*?xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*?xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*?" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_*?" , perl , "ab__" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?" , perl , "ab_______" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}?xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab_{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "(5*?).somesite" , perl , "//555.somesite" , match_default , make_array ( 2 , 14 , 2 , 5 , - 2 , - 2 ));
}
void test_fast_repeats2 ()
{
using namespace boost :: regex_constants ;
// and again for sets:
TEST_REGEX_SEARCH ( "ab[_,;]*xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?xy" , perl , "ab__z" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?z" , perl , "ab__" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?.z" , perl , "ab__,;,__z" , match_default , make_array ( 0 , 10 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?.z" , perl , "ab__,;,__y" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}" , perl , "ab_______" , match_default , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]*?" , perl , "ab__" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?" , perl , "ab_______" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}?xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_,;]{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
// and again for tricky sets with digraphs:
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}" , perl , "ab_______" , match_default , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*?xy" , perl , "abxy_" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*?xy" , perl , "ab_xy_" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*?xy" , perl , "abxy" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*?xy" , perl , "ab_xy" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*?" , perl , "ab" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]*?" , perl , "ab__" , match_default , make_array ( 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?xy" , perl , "ab__xy_" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?xy" , perl , "ab____xy_" , match_default , make_array ( 0 , 8 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?xy" , perl , "ab_____xy_" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?xy" , perl , "ab__xy" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?xy" , perl , "ab_____xy" , match_default , make_array ( 0 , 9 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?" , perl , "ab__" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?" , perl , "ab_______" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}?xy" , perl , "ab______xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "ab[_[.ae.]]{2,5}xy" , perl , "ab_xy" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "([5[.ae.]]*?).somesite" , perl , "//555.somesite" , match_default , make_array ( 2 , 14 , 2 , 5 , - 2 , - 2 ));
2006-05-19 13:09:56 +00:00
TEST_REGEX_SEARCH ( "A[^B]*?B.*?C" , perl , "AxBxxxx" , match_default | match_partial , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?B.*?C" , perl , "AxBx" , match_default | match_partial , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?B.*?C" , perl , "AxBxxxx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?B.*?C" , perl , "AxBx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?Bx*?C" , perl , "AxBxxxx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?Bx*?C" , perl , "AxBx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?B[xac]*?C" , perl , "AxBxxxx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?B[xac]*?C" , perl , "AxBx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?B[xac[.ae.]]*?C" , perl , "AxBxxxx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 7 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "A[^B]*?B[xac[.ae.]]*?C" , perl , "AxBx" , match_default | match_partial | match_not_dot_null , make_array ( 0 , 4 , - 2 , - 2 ));
2005-01-13 17:06:21 +00:00
}
2009-04-23 09:51:31 +00:00
void test_pocessive_repeats ()
{
using namespace boost :: regex_constants ;
// and again for sets:
TEST_REGEX_SEARCH ( "^( \\ w++| \\ s++)*$" , perl , "now is the time for all good men to come to the aid of the party" , match_default , make_array ( 0 , 64 , 59 , 64 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "^( \\ w++| \\ s++)*$" , perl , "this is not a line with only words and spaces!" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "( \\ d++)( \\ w)" , perl , "12345a" , match_default , make_array ( 0 , 6 , 0 , 5 , 5 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "( \\ d++)( \\ w)" , perl , "12345+" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "( \\ d++)( \\ w)" , perl , "12345" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "a++b" , perl , "aaab" , match_default , make_array ( 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "(a++b)" , perl , "aaab" , match_default , make_array ( 0 , 4 , 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "([^()]++| \\ ([^()]* \\ ))+" , perl , "((abc(ade)ufh()()x" , match_default , make_array ( 2 , 18 , 17 , 18 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ (([^()]++| \\ ([^()]+ \\ ))+ \\ )" , perl , "(abc)" , match_default , make_array ( 0 , 5 , 1 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ (([^()]++| \\ ([^()]+ \\ ))+ \\ )" , perl , "(abc(def)xyz)" , match_default , make_array ( 0 , 13 , 9 , 12 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( " \\ (([^()]++| \\ ([^()]+ \\ ))+ \\ )" , perl , "((()aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" , match_default , make_array ( - 2 , - 2 ));
/*
TEST_REGEX_SEARCH("< (?: (?(R) \\d++ | [^<>]*+) | (?R)) * >", perl|mod_x, "<>", match_default, make_array(0, 2, -2, -2));
TEST_REGEX_SEARCH("< (?: (?(R) \\d++ | [^<>]*+) | (?R)) * >", perl|mod_x, "<abcd>", match_default, make_array(0, 6, -2, -2));
TEST_REGEX_SEARCH("< (?: (?(R) \\d++ | [^<>]*+) | (?R)) * >", perl|mod_x, "<abc <123> hij>", match_default, make_array(0, 15, -2, -2));
TEST_REGEX_SEARCH("< (?: (?(R) \\d++ | [^<>]*+) | (?R)) * >", perl|mod_x, "<abc <def> hij>", match_default, make_array(5, 10, -2, -2));
TEST_REGEX_SEARCH("< (?: (?(R) \\d++ | [^<>]*+) | (?R)) * >", perl|mod_x, "<abc<>def>", match_default, make_array(0, 10, -2, -2));
TEST_REGEX_SEARCH("< (?: (?(R) \\d++ | [^<>]*+) | (?R)) * >", perl|mod_x, "<abc<>", match_default, make_array(4, 6, -2, -2));
TEST_REGEX_SEARCH("< (?: (?(R) \\d++ | [^<>]*+) | (?R)) * >", perl|mod_x, "<abc", match_default, make_array(-2, -2));
TEST_REGEX_SEARCH("((< (?: (?(R) \d++ | [^<>]*+) | (?2)) * >))", perl|mod_x, "<>", match_default, make_array(0, 2, 0, 2, 0, 2, -2, -2));
TEST_REGEX_SEARCH("((< (?: (?(R) \d++ | [^<>]*+) | (?2)) * >))", perl|mod_x, "<abcd>", match_default, make_array(0, 6, 0, 6, 0, 6, -2, -2));
TEST_REGEX_SEARCH("((< (?: (?(R) \d++ | [^<>]*+) | (?2)) * >))", perl|mod_x, "<abc <123> hij>", match_default, make_array(0, 15, 0, 15, 0, 15, -2, -2));
TEST_REGEX_SEARCH("((< (?: (?(R) \d++ | [^<>]*+) | (?2)) * >))", perl|mod_x, "<abc <def> hij>", match_default, make_array(5, 10, 5, 10, 5, 10, -2, -2));
TEST_REGEX_SEARCH("((< (?: (?(R) \d++ | [^<>]*+) | (?2)) * >))", perl|mod_x, "<abc<>def>", match_default, make_array(0, 10, 0, 10, 0, 10, -2, -2));
TEST_REGEX_SEARCH("((< (?: (?(R) \d++ | [^<>]*+) | (?2)) * >))", perl|mod_x, "<abc<>", match_default, make_array(4, 6, 4, 6, 4, 6, -2, -2));
TEST_REGEX_SEARCH("((< (?: (?(R) \d++ | [^<>]*+) | (?2)) * >))", perl|mod_x, "<abc", match_default, make_array(-2, -2));
*/
TEST_REGEX_SEARCH ( "x*+ \\ w" , perl , "xxxxx" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "x*+ \\ w" , perl , "xxxxxa" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "x{1,6}+ \\ w" , perl , "xxxxx" , match_default , make_array ( - 2 , - 2 ));
TEST_REGEX_SEARCH ( "x{1,6}+ \\ w" , perl , "xxxxxa" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "x{1,5}+ \\ w" , perl , "xxxxxa" , match_default , make_array ( 0 , 6 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "x{1,4}+ \\ w" , perl , "xxxxxa" , match_default , make_array ( 0 , 5 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "x{1,3}+ \\ w" , perl , "xxxxxa" , match_default , make_array ( 0 , 4 , - 2 , 4 , 6 , - 2 , - 2 ));
2010-09-03 08:33:13 +00:00
TEST_INVALID_REGEX ( " \\ d+++" , perl );
2011-06-16 11:27:13 +00:00
TEST_INVALID_REGEX ( " \\ d++*" , perl );
TEST_INVALID_REGEX ( " \\ d++?" , perl );
TEST_INVALID_REGEX ( " \\ d++{3}" , perl );
2010-09-03 08:33:13 +00:00
TEST_INVALID_REGEX ( " \\ d*++" , perl );
TEST_INVALID_REGEX ( " \\ d?++" , perl );
TEST_INVALID_REGEX ( " \\ d{1,2}++" , perl );
2017-10-08 11:52:54 +01:00
TEST_REGEX_SEARCH ( "(ab +)" , perl | mod_x , "abbb" , match_default , make_array ( 0 , 4 , 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "(ab +?)" , perl | mod_x , "abbb" , match_default , make_array ( 0 , 2 , 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "(ab + ?)" , perl | mod_x , "abbb" , match_default , make_array ( 0 , 2 , 0 , 2 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "(ab ++)" , perl | mod_x , "abbb" , match_default , make_array ( 0 , 4 , 0 , 4 , - 2 , - 2 ));
TEST_REGEX_SEARCH ( "(ab + +)" , perl | mod_x , "abbb" , match_default , make_array ( 0 , 4 , 0 , 4 , - 2 , - 2 ));
TEST_INVALID_REGEX ( "(ab + ++)" , perl | mod_x );
TEST_INVALID_REGEX ( "(ab + + +)" , perl | mod_x );
TEST_INVALID_REGEX ( "(ab + + ?)" , perl | mod_x );
2021-10-13 17:59:56 +01:00
#ifndef BOOST_REGEX_CXX03
// Some bug cases from https://github.com/boostorg/regex/issues/151
TEST_INVALID_REGEX ( "a|?+" , perl | mod_x );
TEST_INVALID_REGEX ( "(?xi)a|?+" , perl | mod_x );
TEST_INVALID_REGEX ( "(?xi)a|# \r *" , perl | mod_x );
TEST_INVALID_REGEX ( "(?xi)|# \r *" , perl | mod_x );
TEST_INVALID_REGEX ( "(?xi)|?+# \r *" , perl | mod_x );
#endif
2009-04-23 09:51:31 +00:00
}
