On Wed, 18 May 2005, Dino Morelli wrote: >On Wed, 18 May 2005, Dino Morelli wrote: > >>Patch file for MANIFEST and cclass.t, and new file escape.t attached. >> > >Looks like I missed the escape.t attachment. >
The list server keeps eating my attached homework. Won't let me attach a .t file. Trying to stick it in the body of the message this time... NEW file: t/p6rules/escape.t ------------------------------------------------------------------------- use strict; use warnings; use Parrot::Test tests => 16; use Parrot::Test::PGE; p6rule_isnt('abcdef', 'a\s+f', 'whitespace'); p6rule_is ("ab cdef", 'ab\s+cdef', 'whitespace'); p6rule_is ('abcdef', 'a\S+f', 'not whitespace'); p6rule_isnt("ab cdef", 'a\S+f', 'not whitespace'); p6rule_isnt('a=[ *f', 'a\w+f', 'word character'); p6rule_is ("abcdef", 'a\w+f', 'word character'); p6rule_is ('a&%- f', 'a\W+f', 'not word character'); p6rule_isnt("abcdef", 'a\W+f', 'not word character'); p6rule_isnt('abcdef', 'a\d+f', 'digit'); p6rule_is ("ab42cdef", 'ab\d+cdef', 'digit'); p6rule_is ('abcdef', 'a\D+f', 'not digit'); p6rule_isnt("ab0cdef", 'a\D+f', 'not digit'); p6rule_isnt('abcdef', 'a\n+f', 'logical newline'); p6rule_is ("ab\n\ncdef", 'ab\n+cdef', 'logical newline'); p6rule_is ('abcdef', 'a\N+f', 'not logical newline'); p6rule_isnt("ab\ncdef", 'a\N+f', 'not logical newline'); # dont forget to change the number of tests :-) ------------------------------------------------------------------------- -Dino -- .~. Dino Morelli /V\ email: [EMAIL PROTECTED] /( )\ weblog: http://categorically.net/d/blog/ ^^-^^ preferred distro: Debian GNU/Linux http://www.debian.org