Author: bernhard Date: Sun Feb 18 06:31:12 2007 New Revision: 17039 Modified: trunk/t/compilers/pge/p6regex/01-regex.t trunk/t/compilers/pge/p6regex/rx_charclass
Log: [PGE] Add tests for literals containing '<' and '?' Modified: trunk/t/compilers/pge/p6regex/01-regex.t ============================================================================== --- trunk/t/compilers/pge/p6regex/01-regex.t (original) +++ trunk/t/compilers/pge/p6regex/01-regex.t Sun Feb 18 06:31:12 2007 @@ -1,5 +1,5 @@ #!./parrot -G -# Copyright (C) 2001-2006, The Perl Foundation. +# Copyright (C) 2001-2007, The Perl Foundation. # $Id$ =head1 NAME Modified: trunk/t/compilers/pge/p6regex/rx_charclass ============================================================================== --- trunk/t/compilers/pge/p6regex/rx_charclass (original) +++ trunk/t/compilers/pge/p6regex/rx_charclass Sun Feb 18 06:31:12 2007 @@ -43,6 +43,10 @@ <'... --- ...'> ...---... n literal match (\') <'ab\'>cd'> ab'>cd y literal match with quote <'ab\\cd'> ab\x5ccd y literal match with backslash +<'?'> ab<? y literal match with question mark +<'<'> ab<? y literal match with lt +<'<?'> ab<? y literal match with lt and question mark +<'<?'> ab<x? n non-matching literal match with lt and question mark <[A..Z0..9]> abcdef n two enumerated ranges <[A..Z0..9]> abcDef y two enumerated ranges