[Rt-commit] r3078 - RT-Action-ExtractSubjectTag/t

[kevinr at bestpractical.com]

Author: kevinr
Date: Tue Jun  7 18:10:57 2005
New Revision: 3078

Added:
   RT-Action-ExtractSubjectTag/t/01extract_tags.t   (contents, props changed)
Modified:
   /   (props changed)
Log:
 r4001 at SAD-GIRL-IN-SNOW:  kevinr | 2005-06-06 21:36:05 -0400
 * Added a very basic test file.


Added: RT-Action-ExtractSubjectTag/t/01extract_tags.t
==============================================================================
--- (empty file)
+++ RT-Action-ExtractSubjectTag/t/01extract_tags.t	Tue Jun  7 18:10:57 2005
@@ -0,0 +1,29 @@
+#!/sw/bin/perl5.8.6
+
+use strict;
+use Test::More qw/no_plan/;
+use RT;
+RT::LoadConfig();
+RT::Init;
+use RT::EmailParser;
+use RT::Tickets;
+use RT::Action::SendEmail;
+
+my @_outgoing_messages;
+my @scrips_fired;
+
+# much of the top of this file is blatantly stolen from '04send_email.t' in
+# the main RT regression suite.
+
+#We're not testing acls here.
+my $everyone = RT::Group->new($RT::SystemUser);
+$everyone->LoadSystemInternalGroup('Everyone');
+$everyone->PrincipalObj->GrantRight(Right => 'SuperUser');
+
+# 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");
+
+1;
+
+