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();
--------------------------------------------------------------------------------