afuna: Cat under a blanket. Text: "Cats are just little people with Fur and Fangs" (Default)
afuna ([personal profile] afuna) wrote in [site community profile] changelog2009-09-02 04:10 pm
  • Add Memory
  • Share This Entry

[dw-free] Many tests in t/ fail

[commit: http://hg.dwscoalition.org/dw-free/rev/e418eb708ead]

http://bugs.dwscoalition.org/show_bug.cgi?id=1721

Skip tests (See http://dw-dev.dreamwidth.org/20733.html)

Patch by [personal profile] szabgab.

Files modified:
  • t/assertions.t
  • t/esn-journalnewcomment.t
  • t/esn.t
  • t/faq.t
  • t/m-friendof.t
  • t/notificationinbox.t
  • t/notificationmethod-email.t
  • t/notificationmethod-inbox.t
  • t/parsefeed-atom-link2.t
  • t/parsefeed-atom-types.t
  • t/privs.t
  • t/proto-post-edit-roundtrip.t
  • t/settings.t
  • t/talklib-mail-migrate.t
  • t/user-infoshow-migrate.t
  • t/webreq.t
--------------------------------------------------------------------------------
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();
--------------------------------------------------------------------------------
  • Add Memory
  • Share This Entry
(0 comments)

Post a comment in response:

This account has disabled anonymous posting.
If you don't have an account you can create one now.
HTML doesn't work in the subject.
More info about formatting

If you are unable to use this captcha for any reason, please contact us by email at support@dreamwidth.org

 
Notice: This account is set to log the IP addresses of everyone who comments.
Links will be displayed as unclickable URLs to help prevent spam.