[siesta-commit] siesta/t 05setup_database.t,1.4,1.5 07list.t,1.21,1.22 07user.t,1.8,1.9

[prev] [thread] [next] [lurker] [Date index for 2002/09/12]

Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv14077/t

Modified Files:
	05setup_database.t 07list.t 07user.t 
Log Message:
perltidy

Index: 05setup_database.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/05setup_database.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- 05setup_database.t	12 Sep 2002 14:10:21 -0000	1.4
+++ 05setup_database.t	12 Sep 2002 14:14:51 -0000	1.5
@@ -1,15 +1,15 @@
 #!perl -w
 use strict;
+
 # named 05 as the plugins need to suck on real data, so this should
 # happen first
 
 use Test::More tests => 8;
 
 unlink 't/test.db';
-my $DB = 'DBI dbi:SQLite:t/test.db';
+my $DB    = 'DBI dbi:SQLite:t/test.db';
 my $NACHO = "$^X -Iblib/lib -Iblib/arch bin/nacho -d '$DB' ";
 
-
 system "$NACHO create-database $DB";
 is( $?, 0, "create script ran OK" );
 
@@ -25,10 +25,12 @@
 system "$NACHO new-user randal\@rst-video Randal Graves";
 is( $?, 0, "added Randal" );
 
-system "$NACHO new-list dealers jay\@front-of.quick-stop dealers\@front-of.quick-stop dealers-bounce\@front-of.quick-stop";
+system
+  "$NACHO new-list dealers jay\@front-of.quick-stop dealers\@front-of.quick-stop dealers-bounce\@front-of.quick-stop";
 is( $?, 0, "created dealers" );
 
-system "$NACHO add-user-list dealers jay\@front-of.quick-stop bob\@front-of.quick-stop";
+system
+  "$NACHO add-user-list dealers jay\@front-of.quick-stop bob\@front-of.quick-stop";
 is( $?, 0, "add bob and jay to dealers" );
 
 system "$NACHO set-plugins dealers SimpleSig MembersOnly Send";

Index: 07list.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07list.t,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- 07list.t	12 Sep 2002 12:55:32 -0000	1.21
+++ 07list.t	12 Sep 2002 14:14:51 -0000	1.22
@@ -64,7 +64,7 @@
 
 # now reload it
 $test_list = Siesta::List->new('testing');
-ok( $test_list, "list reloaded" );
+ok( $test_list,     "list reloaded" );
 isa_ok( $test_list, "Siesta::List" );
 is( $test_list->owner(), 'test@xxxxxxx.xxx', "correct data" );
 

Index: 07user.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07user.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- 07user.t	12 Sep 2002 12:55:32 -0000	1.8
+++ 07user.t	12 Sep 2002 14:14:51 -0000	1.9
@@ -17,7 +17,7 @@
                                          forename => 'bluntman',
                                          surname  => 'chronic'
                                          );
-ok( $other, "user created from hash" );
+ok( $other,     "user created from hash" );
 isa_ok( $other, "Siesta::User" );
 
 # save that
@@ -27,7 +27,7 @@
 
 # we now reload that user
 $other = Siesta::User->new('bluntman@xxxxxxx.xxx');
-ok( $other, "user reloaded" );
+ok( $other,     "user reloaded" );
 isa_ok( $other, "Siesta::User" );
 is( $other->forename(), 'bluntman', "correct data" );
 

• [siesta-commit] siesta/t 05setup_database.t,1.4,1.5 07list.t,1.21,1.22 07user.t,1.8,1.9 clampr 15:14 on 12 Sep 2002

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