[Rt-commit] r8249 - rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-2

[ruz at bestpractical.com]

Author: ruz
Date: Sat Jul 21 05:52:16 2007
New Revision: 8249

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-2/cf_external.t

Log:
* create at least one group to make that test pass on a clean DB

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-2/cf_external.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-2/cf_external.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/t/ordered-2/cf_external.t	Sat Jul 21 05:52:16 2007
@@ -2,8 +2,7 @@
 
 use warnings;
 use strict;
-use Test::More; 
-plan tests => 10;
+use Test::More tests => 11;
 
 use RT;
 require RT::Test;
@@ -37,6 +36,13 @@
 }
 
 {
+    # create at least on group for the tests
+    my $group = RT::Group->new( $RT::SystemUser );
+    my ($ret, $msg) = $group->CreateUserDefinedGroup( Name => $q->Name );
+    ok $ret, 'created group' or diag "error: $msg";
+}
+
+{
     my $values = $cf->Values;
     isa_ok( $values, VALUES_CLASS );
     ok( $values->Count, "we have values" );