[Rt-commit] r3128 - in RT-Action-ExtractSubjectTag: . t

[kevinr at bestpractical.com]

Author: kevinr
Date: Thu Jun  9 15:44:47 2005
New Revision: 3128

Modified:
   RT-Action-ExtractSubjectTag/   (props changed)
   RT-Action-ExtractSubjectTag/t/02custom_tags.t
Log:
 r4146 at SAD-GIRL-IN-SNOW:  kevinr | 2005-06-09 15:44:36 -0400
 * fixed the error in my regex which was causing the tests to behave incorrectly


Modified: RT-Action-ExtractSubjectTag/t/02custom_tags.t
==============================================================================
--- RT-Action-ExtractSubjectTag/t/02custom_tags.t	(original)
+++ RT-Action-ExtractSubjectTag/t/02custom_tags.t	Thu Jun  9 15:44:47 2005
@@ -107,7 +107,7 @@
 ok($ticket->Subject =~ /\Q{&32}\E/, "New tag was added to ticket's subject");
 
 # don't match certain numbers
-$RT::Action::ExtractSubjectTag::ExtractSubjectTagNoMatch = qr/\{(?:\&3{0-9}|\@{0-99})\}/;
+$RT::Action::ExtractSubjectTag::ExtractSubjectTagNoMatch = qr/\{(?:\&3\d|\@\d\d??)\}/;
 
 # parse an email with an excluded tag
 $email =~ s/\Q{&32}\E/{&38}/;
@@ -122,7 +122,7 @@
 ok($ticket->Subject !~ /\Q{&38}\E/, "First excluded tag was not added");
 
 # parse another email with an excluded tag
-$email =~ s/\Q{&38}\E/{@73}/;
+$email =~ s/\Q{&38}\E/{\@73}/;
 ($id, $message) = $parser->SmartParseMIMEEntityFromScalar( Message => $email, 
   Decode => 1 );
 ok($parser->Entity, "Parser returned a MIME entity");