rev 1448 - trunk/Siesta-Integrate-Postfix/t

[prev] [thread] [next] [lurker] [Date index for 2003/10/17]

Author: richardc
Date: 2003-10-17 17:23:43 +0100 (Fri, 17 Oct 2003)
New Revision: 1448

Modified:
   trunk/Siesta-Integrate-Postfix/t/postfix.t
Log:
test that what we wrote looks consistent

Modified: trunk/Siesta-Integrate-Postfix/t/postfix.t
===================================================================
--- trunk/Siesta-Integrate-Postfix/t/postfix.t	2003-10-17 16:20:40 UTC (rev 1447)
+++ trunk/Siesta-Integrate-Postfix/t/postfix.t	2003-10-17 16:23:43 UTC (rev 1448)
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 3;
+use Test::More tests => 4;
 use Siesta::Test 'init_db';
 use Siesta::Config qw( $config );
 use Siesta::List;
@@ -8,7 +8,7 @@
 require_ok( "Siesta::Integrate::Postfix" );
 $config->root('t');
 
-Siesta::List->create({
+my $list = Siesta::List->create({
     name  => 'testlist',
     owner => Siesta::Member->create({
         email => 'test@test',
@@ -20,3 +20,7 @@
 ok( Siesta::Integrate::Postfix->do, "we can do" );
 ok( -e $filename, "we maded a file" );
 
+open my $fh, "$filename" or die "couldn't reopen $filename";
+chomp( my $name = <$fh> );
+is( $name, $list->name, "alias file looks good" )
+

• rev 1448 - trunk/Siesta-Integrate-Postfix/t richardc 17:23 on 17 Oct 2003

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