Changeset 2573

Timestamp:

06/13/08 18:54:41 (20 months ago)

Author:

bchoate

Message:

Fixes for test suite.

Location:

branches/release-40

Files:

• Makefile (modified) (1 diff)
• t/00-compile.t (modified) (1 diff)
• t/21-app-callbacks.t (modified) (5 diffs)
• t/26-pings.t (modified) (1 diff)

branches/release-40/Makefile

@@ -172 +172 @@
 
 test: code
-        MT_CONFIG=t/mt.cfg perl -Ilib -Iextlib -It/lib -MTest::Harness -e 'runtests @ARGV' t/*.t
+        perl -Ilib -Iextlib -It/lib -MTest::Harness -e 'runtests @ARGV' t/*.t
 
 quick-test: code
-        MT_CONFIG=t/mt.cfg perl -Ilib -Iextlib -It/lib -MTest::Harness -e 'runtests @ARGV'  \
+        perl -Ilib -Iextlib -It/lib -MTest::Harness -e 'runtests @ARGV'  \
                 t/00-compile.t t/01-serialize.t t/04-config.t \
                 t/05-errorhandler.t t/07-builder.t t/08-util.t           \

branches/release-40/t/00-compile.t

@@ -5 +5 @@
 use warnings;
 
-use lib 'lib', 'extlib';
+use lib 't/lib', 'lib', 'extlib';
+use MT::Test;
 
 use Test::More tests => 181;

branches/release-40/t/21-app-callbacks.t

@@ -6 +6 @@
 use Test::More tests => 3;
 use CGI;
-use DB_File;
 
 use lib 'extlib';
@@ -12 +11 @@
 use lib 'lib';
 
+use MT::Test;
 use MT;
 use MT::Plugin;
@@ -17 +17 @@
 use MT::App::CMS;
 use MT::Permission;
-
-use vars qw($T_CFG);
 
 use lib 't';
@@ -27 +25 @@
 my @result_cats = ();
 
-my $cms = MT::App::CMS->new(Config => $T_CFG);
+my $cms = MT::App::CMS->new();
 
 my $plugin = MT::Plugin->new({name => "21-callbacks.t"});
@@ -48 +46 @@
 $q->param(blog_id => $entry2->blog_id);
 $q->param(category_ids => 17);
+$q->param(author_id => 1);
+$q->param(status => 1);
 # $q->param(username => 'Chuck D');
 # $q->param(password => 'bass');

branches/release-40/t/26-pings.t

@@ -54 +54 @@
 SKIP: {
     skip("Test update server $server is unreachable", 5)
-        unless ok($p->ping($server), 'ping');
+        unless $p->ping($server);
+    ok(1, "ping");
 
 {