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

kevinr at bestpractical.com kevinr at bestpractical.com
Thu Jun 9 13:47:29 EDT 2005


Author: kevinr
Date: Thu Jun  9 13:47:29 2005
New Revision: 3126

Modified:
   RT-Action-ExtractSubjectTag/   (props changed)
   RT-Action-ExtractSubjectTag/t/01extract_tags.t
Log:
 r4121 at SAD-GIRL-IN-SNOW:  kevinr | 2005-06-09 13:43:01 -0400
 * Fixed a the "don't add my RT tag" test and added a test to make sure the
 module is actually installed.


Modified: RT-Action-ExtractSubjectTag/t/01extract_tags.t
==============================================================================
--- RT-Action-ExtractSubjectTag/t/01extract_tags.t	(original)
+++ RT-Action-ExtractSubjectTag/t/01extract_tags.t	Thu Jun  9 13:47:29 2005
@@ -16,6 +16,9 @@
 # much of the top of this file is blatantly stolen from '04send_email.t' in
 # the main RT regression suite.
 
+# make sure the module is installed
+BEGIN { use_ok('RT::Action::ExtractSubjectTag'); }
+
 # no idea if this test is useful in this context or not, but it's a nice one
 # to start with since it succeeds :)
 is (__PACKAGE__, 'main', "We're operating in the main package");
@@ -110,7 +113,7 @@
 ok($ticket->Subject =~ /\Q[bar.example #24]\E/, "Second unique tag was added to ticket's subject");
 
 # create a new e-mail with the local RT instance's tag
-$email =~ s/\Q[foo.example #12]\E/[example.com #24]/;
+$email =~ s/\Q[bar.example #24]\E/[example.com #24]/;
 ($id, $message) = $parser->SmartParseMIMEEntityFromScalar( Message => $email, 
   Decode => 1 );
 ok($parser->Entity, "Parser returned a MIME entity");


More information about the Rt-commit mailing list