RT 4.0.13

11 files changed, 17 insertions, 18 deletions

diff --git a/rt/t/articles/article.t b/rt/t/articles/article.t
index 33becb023..7a3474f07 100644
--- a/rt/t/articles/article.t
+++ b/rt/t/articles/article.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
diff --git a/rt/t/articles/articles.t b/rt/t/articles/articles.t
index c6fe65106..8d2918e50 100644
--- a/rt/t/articles/articles.t
+++ b/rt/t/articles/articles.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
diff --git a/rt/t/articles/basic-api.t b/rt/t/articles/basic-api.t
index f9f9f89f4..168b8cbea 100644
--- a/rt/t/articles/basic-api.t
+++ b/rt/t/articles/basic-api.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use warnings;
 use strict;
diff --git a/rt/t/articles/cfsearch.t b/rt/t/articles/cfsearch.t
index 49420e581..3bfa667ee 100644
--- a/rt/t/articles/cfsearch.t
+++ b/rt/t/articles/cfsearch.t
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
 
 use strict;
 use warnings;
diff --git a/rt/t/articles/class.t b/rt/t/articles/class.t
index 84d6e23be..7a7c015fc 100644
--- a/rt/t/articles/class.t
+++ b/rt/t/articles/class.t
@@ -1,9 +1,8 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
 
-use RT::Test tests => 24;
+use RT::Test tests => undef;
 
 use_ok 'RT::Articles';
 use_ok 'RT::Classes';
@@ -18,14 +17,21 @@ my ($id, $msg) = $cl->Create(Name => 'Test-'.$$, Description => 'A test class');
 
 ok ($id, $msg);
 
+ok( $cl->SetName( 'test-' . $$ ), 'rename to lower cased version' );
+ok( $cl->SetName( 'Test-' . $$ ), 'rename back' );
+
 # no duplicate class names should be allowed
-($id, $msg) = $cl->Create(Name => 'Test-'.$$, Description => 'A test class');
+($id, $msg) = RT::Class->new($root)->Create(Name => 'Test-'.$$, Description => 'A test class');
+
+ok (!$id, $msg);
+
+($id, $msg) = RT::Class->new($root)->Create(Name => 'test-'.$$, Description => 'A test class');
 
 ok (!$id, $msg);
 
 #class name should be required
 
-($id, $msg) = $cl->Create(Name => '', Description => 'A test class');
+($id, $msg) = RT::Class->new($root)->Create(Name => '', Description => 'A test class');
 
 ok (!$id, $msg);
 
@@ -74,3 +80,6 @@ $m->submit();
 $m->content_like(qr/Description changed from.*no value.*to .*Test Description/,'description changed');
 $m->form_number(3);
 is($m->current_form->find_input('Include-Name')->value,undef,'Disabled Including Names for this Class');
+
+undef $m;
+done_testing();
diff --git a/rt/t/articles/interface.t b/rt/t/articles/interface.t
index d04be8b88..779127fa6 100644
--- a/rt/t/articles/interface.t
+++ b/rt/t/articles/interface.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
@@ -192,10 +191,10 @@ $m->follow_link_ok( { text => 'Extract Article' }, '-> Extract Article' );
 $m->content_contains($class->Name);
 $m->follow_link_ok( { text => $class->Name }, 'Extract Article -> '. $class->Name );
 $m->content_like(qr/Select topics for this article/i, 'selecting topic');
-$m->form_number(3);
+$m->form_number(2);
 $m->set_visible([option => $topic1->Name]);
 $m->submit;
-$m->form_number(3);
+$m->form_number(2);
 $m->set_visible([option => $answerCF->Name]);
 $m->click();
 $m->title_like(qr/Create a new article/, "got edit page from extraction");
diff --git a/rt/t/articles/queue-specific-class.t b/rt/t/articles/queue-specific-class.t
index a73d583c3..5cd042910 100644
--- a/rt/t/articles/queue-specific-class.t
+++ b/rt/t/articles/queue-specific-class.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
@@ -35,7 +34,7 @@ for my $name ( keys %class ) {
         'article create page' );
 
     $m->submit_form(
-        form_number => 3,
+        form_number => 2,
         fields      => { Name => "article $name" }
     );
 
diff --git a/rt/t/articles/search-interface.t b/rt/t/articles/search-interface.t
index bcba3116b..e957a6c31 100644
--- a/rt/t/articles/search-interface.t
+++ b/rt/t/articles/search-interface.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
@@ -153,7 +152,7 @@ sub DoArticleSearch{
   $m->text_contains('First article');
 
   $m->submit_form_ok( {
-            form_number => 3,
+            form_number => 2,
             fields      => {
                 'Article~' => $search_text
             },
diff --git a/rt/t/articles/upload-customfields.t b/rt/t/articles/upload-customfields.t
index 912c23ded..e5ed5d190 100644
--- a/rt/t/articles/upload-customfields.t
+++ b/rt/t/articles/upload-customfields.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
diff --git a/rt/t/articles/uri-a.t b/rt/t/articles/uri-a.t
index 5c1fdaf36..1a0480f1d 100644
--- a/rt/t/articles/uri-a.t
+++ b/rt/t/articles/uri-a.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;
diff --git a/rt/t/articles/uri-articles.t b/rt/t/articles/uri-articles.t
index 4124b1942..b6a1c8dac 100644
--- a/rt/t/articles/uri-articles.t
+++ b/rt/t/articles/uri-articles.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use strict;
 use warnings;