Skip tests (See http://dw-dev.dreamwidth.org/20733.html)
Patch by szabgab.
diffs (337 lines):
diff -r 6ae034daa056 -r e418eb708ead t/assertions.t
--- a/t/assertions.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/assertions.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,9 +1,12 @@
# -*-perl-*-
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
+
+#plan tests => ;
+plan skip_all => 'fix this test!';
ok(LJ::assert_is("foo", "foo"));
ok(! eval { LJ::assert_is("foo", "bar") });
diff -r 6ae034daa056 -r e418eb708ead t/esn-journalnewcomment.t
--- a/t/esn-journalnewcomment.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/esn-journalnewcomment.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,15 +1,19 @@
# -*-perl-*-
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
require 'ljprotocol.pl';
require 'talklib.pl';
+BEGIN { $LJ::HOME = $ENV{LJHOME}; }
use LJ::Event;
use LJ::Test qw(memcache_stress temp_user);
use FindBin qw($Bin);
+
+#plan tests => ;
+plan skip_all => 'Fix this test!';
# we want to test eight major cases here, matching and not matching for
# four types of subscriptions, all of subscr etypeid = JournalNewComment
diff -r 6ae034daa056 -r e418eb708ead t/esn.t
--- a/t/esn.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/esn.t Wed Sep 02 16:09:07 2009 +0000
@@ -2,12 +2,16 @@
# -*-perl-*-
use strict;
-use Test::More tests => 15;
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
+BEGIN { $LJ::HOME = $ENV{LJHOME}; }
use LJ::Event;
use LJ::Test qw(memcache_stress temp_user);
use FindBin qw($Bin);
+
+#plan tests => 15;
+plan skip_all => 'Fix this test!';
@LJ::EVENT_TYPES = ('LJ::Event::ForTest1', 'LJ::Event::ForTest2');
$LJ::_T_FAST_TEMP_USER = 1;
diff -r 6ae034daa056 -r e418eb708ead t/faq.t
--- a/t/faq.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/faq.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,7 +1,7 @@
# -*-perl-*-
use strict;
-use Test::More qw(no_plan);
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
@@ -9,6 +9,9 @@ require 'ljlang.pl';
use LJ::Faq;
use LJ::Test qw(memcache_stress);
+
+#plan tests => 72;
+plan skip_all => 'Fix this test! Is there support for Spanish?';
sub run_tests {
# constructor tests
diff -r 6ae034daa056 -r e418eb708ead t/m-friendof.t
--- a/t/m-friendof.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/m-friendof.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,7 +1,7 @@
# -*-perl-*-
use strict;
-use Test::More tests => 144;
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
use FindBin qw($Bin);
@@ -9,6 +9,9 @@ use LJ::M::FriendsOf;
use LJ::M::FriendsOf;
local $LJ::_T_FAST_TEMP_USER = 1; # don't do post-create hook
+
+#plan tests => 144;
+plan skip_all => 'Fix this test! LJ::add_friend has been deprecated';
our @STATUSVIS;
our $PREFIX;
diff -r 6ae034daa056 -r e418eb708ead t/notificationinbox.t
--- a/t/notificationinbox.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/notificationinbox.t Wed Sep 02 16:09:07 2009 +0000
@@ -3,9 +3,12 @@
# Tests LJ::NotificationInbox and LJ::NotificationItem
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
+
+#plan tests =>;
+plan skip_all => 'Fix this test! LJ/Event/Befriended.pm is missing';
# Set more manageable limit for testing
$LJ::CAP_DEF{'inbox_max'} = 10;
@@ -16,8 +19,8 @@ use Class::Autouse qw(
LJ::NotificationInbox
LJ::NotificationItem
LJ::Event
- LJ::Event::Befriended
);
+# LJ::Event::Befriended
my $u = temp_user();
my $u2 = temp_user();
diff -r 6ae034daa056 -r e418eb708ead t/notificationmethod-email.t
--- a/t/notificationmethod-email.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/notificationmethod-email.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,16 +1,19 @@
#!/usr/bin/perl
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
use LJ::Test qw(temp_user memcache_stress);
+#plan tests =>;
+plan skip_all => 'Fix this test! LJ/Event/Befriended.pm is missing';
+
use Class::Autouse qw(
- LJ::Event::Befriended
LJ::NotificationMethod::Email
);
+# LJ::Event::Befriended
my $u;
my $valid_u = sub {
diff -r 6ae034daa056 -r e418eb708ead t/notificationmethod-inbox.t
--- a/t/notificationmethod-inbox.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/notificationmethod-inbox.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,16 +1,19 @@
#!/usr/bin/perl
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
use LJ::Test qw(temp_user memcache_stress);
+#plan tests =>;
+plan skip_all => 'Fix this test! LJ/Event/Befriended.pm is missing';
+
use Class::Autouse qw(
- LJ::Event::Befriended
LJ::NotificationMethod::Inbox
);
+# LJ::Event::Befriended
my $u;
my $valid_u = sub {
diff -r 6ae034daa056 -r e418eb708ead t/parsefeed-atom-link2.t
--- a/t/parsefeed-atom-link2.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/parsefeed-atom-link2.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,9 +1,12 @@
# -*-perl-*-
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require "parsefeed.pl";
require 'ljlib.pl';
+
+#plan tests => ;
+plan skip_all => 'Fix this test!';
# These tests are of the correct identification of an "alternate" link.
# We assume here that an HTML alternate link is preferred over text/plain,
despite the
diff -r 6ae034daa056 -r e418eb708ead t/parsefeed-atom-types.t
--- a/t/parsefeed-atom-types.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/parsefeed-atom-types.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,9 +1,12 @@
# -*-perl-*-
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require "parsefeed.pl";
require 'ljlib.pl';
+
+#plan tests => 16;
+plan skip_all => 'Fix this test!';
## These test cases are based roughly on Phil Ringnalda's eight <title>
conformance tests:
##
<http://weblog.philringnalda.com/2005/12/18/who-knows-a-title-from-a-hole-in-the-ground>
diff -r 6ae034daa056 -r e418eb708ead t/privs.t
--- a/t/privs.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/privs.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,10 +1,13 @@
# -*-perl-*-
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
+BEGIN { $LJ::HOME = $ENV{LJHOME}; }
use LJ::Console;
use LJ::Test qw (temp_user);
+
+plan tests => 5;
# check that it requires a login
my $u = temp_user();
diff -r 6ae034daa056 -r e418eb708ead t/proto-post-edit-roundtrip.t
--- a/t/proto-post-edit-roundtrip.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/proto-post-edit-roundtrip.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,11 +1,14 @@
# -*-perl-*-
use strict;
-use Test::More tests => 10;
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
use LJ::Test;
require 'ljlib.pl';
require 'ljprotocol.pl';
+
+#plan tests => 10;
+plan skip_all => 'Fix this test!';
my $u = temp_user();
my $newpass = "pass" . rand();
diff -r 6ae034daa056 -r e418eb708ead t/settings.t
--- a/t/settings.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/settings.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,17 +1,21 @@
# -*-perl-*-
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
require 'ljlang.pl';
+
+#plan tests => ;
+plan skip_all => 'Fix this test! LJ/Setting/WebpageURL.pm is missing';
package LJ;
require 'htmlcontrols.pl';
package main;
-use LJ::Setting::WebpageURL;
+BEGIN { $LJ::HOME = $ENV{LJHOME}; }
+#use LJ::Setting::WebpageURL;
use LJ::Setting::Gender;
use LJ::Setting::Name;
diff -r 6ae034daa056 -r e418eb708ead t/talklib-mail-migrate.t
--- a/t/talklib-mail-migrate.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/talklib-mail-migrate.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,10 +1,13 @@
#!/usr/bin/perl
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
use FindBin qw($Bin);
chdir "$Bin/data/userpics" or die "Failed to chdir to t/data/userpics";
+
+#plan tests => ;
+plan skip_all => 'fix this test!, cannot find phonepost.pl';
package LJ;
diff -r 6ae034daa056 -r e418eb708ead t/user-infoshow-migrate.t
--- a/t/user-infoshow-migrate.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/user-infoshow-migrate.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,9 +1,13 @@
#!/usr/bin/perl
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';
+
+
+#plan tests => 228;
+plan skip_all => 'Fix this test!';
use LJ::Test qw(temp_user memcache_stress);
diff -r 6ae034daa056 -r e418eb708ead t/webreq.t
--- a/t/webreq.t Wed Sep 02 07:35:55 2009 +0000
+++ b/t/webreq.t Wed Sep 02 16:09:07 2009 +0000
@@ -1,11 +1,15 @@
# -*-perl-*-
use strict;
-use Test::More 'no_plan';
+use Test::More;
use lib "$ENV{LJHOME}/cgi-bin";
+
+#plan tests => ;
+plan skip_all => 'Fix this test!';
require 'modperl.pl';
use LJ::Test;
+
my $fa = fake_apache();
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
