[Rt-commit] r14668 - in rtfm/trunk: .

[falcone at bestpractical.com]

Author: falcone
Date: Wed Jul 30 16:07:34 2008
New Revision: 14668

Modified:
   rtfm/trunk/   (props changed)
   rtfm/trunk/t/04interface.t
   rtfm/trunk/t/3upload-customfields.t

Log:
 r36412 at ketch:  falcone | 2008-07-30 14:35:56 -0400
 * remove duplicate data creation and debugging output


Modified: rtfm/trunk/t/04interface.t
==============================================================================
--- rtfm/trunk/t/04interface.t	(original)
+++ rtfm/trunk/t/04interface.t	Wed Jul 30 16:07:34 2008
@@ -185,7 +185,6 @@
 $m->title_like(qr/Create a new article/, "got edit page from extraction");
 $m->submit_form(form_name => 'EditArticle');
 $m->title_like(qr/Modify article/);
-$m->save_content("04interface.html");
 $m->follow_link_ok( { text => 'Display' }, '-> Display' );
 $m->content_like(qr/Africa/, "Article content exist");
 $m->content_contains($ticket->Subject,

Modified: rtfm/trunk/t/3upload-customfields.t
==============================================================================
--- rtfm/trunk/t/3upload-customfields.t	(original)
+++ rtfm/trunk/t/3upload-customfields.t	Wed Jul 30 16:07:34 2008
@@ -4,7 +4,7 @@
 use warnings;
 
 use lib 't/lib';
-use RT::FM::Test tests => 25;
+use RT::FM::Test tests => 21;
 
 use RT;
 use constant ImageFile => $RT::MasonComponentRoot .'/NoAuth/images/bplogo.gif';
@@ -16,37 +16,11 @@
 };
 
 use RT::FM::Class;
-use RT::FM::Topic;
 my $class = RT::FM::Class->new($RT::SystemUser);
 my ($ret, $msg) = $class->Create('Name' => 'tlaTestClass-'.$$,
 			      'Description' => 'A general-purpose test class');
 ok($ret, "Test class created");
 
-# Create a hierarchy of test topics
-my $topic1 = RT::FM::Topic->new($RT::SystemUser);
-my $topic11 = RT::FM::Topic->new($RT::SystemUser);
-my $topic12 = RT::FM::Topic->new($RT::SystemUser);
-my $topic2 = RT::FM::Topic->new($RT::SystemUser);
-($ret, $msg) = $topic1->Create('Parent' => 0,
-			      'Name' => 'tlaTestTopic1-'.$$,
-			      'ObjectType' => 'RT::FM::Class',
-			      'ObjectId' => $class->Id);
-ok($ret, "Topic 1 created");
-($ret, $msg) = $topic11->Create('Parent' => $topic1->Id,
-			       'Name' => 'tlaTestTopic1.1-'.$$,
-			       'ObjectType' => 'RT::FM::Class',
-			       'ObjectId' => $class->Id);
-ok($ret, "Topic 1.1 created");
-($ret, $msg) = $topic12->Create('Parent' => $topic1->Id,
-			       'Name' => 'tlaTestTopic1.2-'.$$,
-			       'ObjectType' => 'RT::FM::Class',
-			       'ObjectId' => $class->Id);
-ok($ret, "Topic 1.2 created");
-($ret, $msg) = $topic2->Create('Parent' => 0,
-			      'Name' => 'tlaTestTopic2-'.$$,
-			      'ObjectType' => 'RT::FM::Class',
-			      'ObjectId' => $class->Id);
-ok($ret, "Topic 2 created");
 
 my ($url, $m) = RT::Test->started_ok;
 isa_ok($m, 'Test::WWW::Mechanize');
@@ -81,7 +55,6 @@
 $m->field( $tcf => 1 );         # Associate the new CF with this queue
 $m->field( $_ => undef ) for @names;    # ...and not any other. ;-)
 $m->submit;
-$m->save_content("3upload.html");
 
 $m->content_like( qr/Object created/, 'TCF added to the queue' );
 $m->follow_link( text => 'RTFM');