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

[kevinr at bestpractical.com]

Author: kevinr
Date: Tue Jun  7 18:11:16 2005
New Revision: 3079

Modified:
   /   (props changed)
   RT-Action-ExtractSubjectTag/t/01extract_tags.t
Log:
 r4002 at SAD-GIRL-IN-SNOW:  kevinr | 2005-06-06 22:05:34 -0400
 * Made it a slightly more useful basic test.


Modified: RT-Action-ExtractSubjectTag/t/01extract_tags.t
==============================================================================
--- RT-Action-ExtractSubjectTag/t/01extract_tags.t	(original)
+++ RT-Action-ExtractSubjectTag/t/01extract_tags.t	Tue Jun  7 18:11:16 2005
@@ -24,6 +24,17 @@
 # to start with since it succeeds :)
 is (__PACKAGE__, 'main', "We're operating in the main package");
 
+# test default action (extract other RT instances' tags)
+
+my $default_action = RT::ScripAction->new($RT::SystemUser);
+
+$default_action->Create( Name           => 'ExtractSubjectTag (default)',
+                         Description    => '',
+                         ExecModule     => 'ExtractSubjectTag',
+                       );
+
+ok ($default_action->Name eq 'ExtractSubjectTag (default)', 'Module loads');
+
 1;