[prev] [thread] [next] [lurker] [Date index for 2003/08/14]
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