rev 1349 - trunk/siesta/t

[prev] [thread] [next] [lurker] [Date index for 2003/08/14]

From: richardc
Subject: rev 1349 - trunk/siesta/t
Date: 08:33 on 14 Aug 2003
Author: richardc
Date: 2003-08-14 08:33:56 +0100 (Thu, 14 Aug 2003)
New Revision: 1349

Modified:
   trunk/siesta/t/30nacho.t
Log:
the deferral test actually tries to send mail.  fuck that


Modified: trunk/siesta/t/30nacho.t
===================================================================
--- trunk/siesta/t/30nacho.t	2003-08-13 20:57:07 UTC (rev 1348)
+++ trunk/siesta/t/30nacho.t	2003-08-14 07:33:56 UTC (rev 1349)
@@ -1,7 +1,6 @@
 #!perl -w
 use strict;
-# use Test::More skip_all => 'nacho in a state of flux';
-use Test::More tests => 22;
+use Test::More tests => 15;
 use lib qw(t/lib);
 use Siesta::Test 'init_db';
 use Siesta::List;
@@ -70,47 +69,3 @@
 is_deeply( [ map { $_->name } $list->plugins ],
            [ qw( SimpleSig MembersOnly Send ) ], "specified set of plugins" );
 
-
-# deferral testing
-
-my $user = Siesta::Member->find_or_create({ email => 'test@foo' });
-
-my $message = Siesta::Message->new(\*DATA);
-ok( $message, "made a message from DATA" );
-is( $message->subject, "yoohoo", "  on which the subject is correct" );
-
-my $deferred = 
-my @deferred = Siesta::Deferred->retrieve_all;
-is( scalar @deferred, 0, "we have no deferred messages" );
-
-my $id = $message->defer(
-    why => 'the hell of it',
-    who => $user,
-   )->id;
-ok( $id, "deferred a message $id" );
-
-@deferred = Siesta::Deferred->retrieve_all;
-is( scalar @deferred, 1, "we have 1 deferred message" );
-
-system @NACHO, ('resume-deferred', $id);
-is( $?, 0, "resumed the message" );
-
-
-my @ndeferred = Siesta::Deferred->retrieve_all;
-is( scalar @ndeferred, 0, "we have no deferred messages again" );
-
-
-__DATA__
-From: jay@xxxxxxxx.xxxxxxxxxx
-To: dealers@xxxxxxxx.xxxxxxxxxx
-Subject: yoohoo
-
-All you motherfuckers are gonna pay, You are the ones who are the
-ball-lickers.  We're gonna fuck your mothers while you watch and cry
-like little bitches.  Once we get to Hollywood and find those Miramax
-fucks who are making that movie, we're gonna make 'em eat our shit,
-then shit out our shit, then eat their shit which is made up of our
-shit that we made 'em eat.  Then you're all fucking next.
-
-Love, Jay and Silent Bob.
-

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52