[prev] [thread] [next] [lurker] [Date index for 2002/10/17]
Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv785/t
Modified Files:
05setup_database.t 08config.t
Log Message:
perltidy
Index: 05setup_database.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/05setup_database.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- 05setup_database.t 15 Oct 2002 14:07:45 -0000 1.6
+++ 05setup_database.t 17 Oct 2002 12:57:30 -0000 1.7
@@ -1,5 +1,6 @@
#!perl -w
use strict;
+
# $Id$
# named 05 as the plugins need to suck on real data, so this should
Index: 08config.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/08config.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- 08config.t 17 Oct 2002 11:52:19 -0000 1.13
+++ 08config.t 17 Oct 2002 12:57:30 -0000 1.14
@@ -19,14 +19,12 @@
ok( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'munge', 0 ) );
# check
-$value =
- Siesta->storage->get_preference( 'ReplyTo', undef, undef, 'munge' );
+$value = Siesta->storage->get_preference( 'ReplyTo', undef, undef, 'munge' );
is( $value, 0, "insert default" );
# delete
ok( Siesta::Preferences::delete( 'ReplyTo', undef, undef, 'munge' ) );
-$value =
- Siesta->storage->get_preference( 'ReplyTo', undef, undef, 'munge' );
+$value = Siesta->storage->get_preference( 'ReplyTo', undef, undef, 'munge' );
is( $value, undef, "delete" );
#############
@@ -34,12 +32,17 @@
#############
# insert
-ok( Siesta::Preferences::preference( 'ReplyTo', undef, 'siesta-dev', 'munge', 1 ) );
+ok(
+ Siesta::Preferences::preference(
+ 'ReplyTo', undef,
+ 'siesta-dev', 'munge',
+ 1
+ )
+ );
# check
$value =
- Siesta->storage->get_preference( 'ReplyTo', undef, 'siesta-dev',
- 'munge' );
+ Siesta->storage->get_preference( 'ReplyTo', undef, 'siesta-dev', 'munge' );
is( $value, 1, "insert per list" );
#############
@@ -49,15 +52,15 @@
# insert
ok(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'munge',
- 0
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef,
+ 'munge', 0
)
);
# check
$value =
- Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- undef, 'munge' );
+ Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef,
+ 'munge' );
is( $value, 0, "insert per user" );
#############
@@ -67,15 +70,14 @@
# insert
ok(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- 'siesta-dev', 'munge',
- 1
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ 'siesta-dev', 'munge',
+ 1
)
);
# check
-$value =
- Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+$value = Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
'siesta-dev', 'munge' );
is( $value, 1, "insert per user, per list" );
@@ -87,22 +89,28 @@
ok( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'munge', 0 ) );
# per list
-ok( Siesta::Preferences::preference( 'ReplyTo', undef, 'siesta-dev', 'munge', 1 ) );
+ok(
+ Siesta::Preferences::preference(
+ 'ReplyTo', undef,
+ 'siesta-dev', 'munge',
+ 1
+ )
+ );
# per user
ok(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'munge',
- 0
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef,
+ 'munge', 0
)
);
# per-user, per-list
ok(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- 'siesta-dev', 'munge',
- 1
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ 'siesta-dev', 'munge',
+ 1
)
);
@@ -111,25 +119,22 @@
#############
# default
-$value =
- Siesta->storage->get_preference( 'ReplyTo', undef, undef, 'munge' );
+$value = Siesta->storage->get_preference( 'ReplyTo', undef, undef, 'munge' );
is( $value, 0, "check default" );
# per list
$value =
- Siesta->storage->get_preference( 'ReplyTo', undef, 'siesta-dev',
- 'munge' );
+ Siesta->storage->get_preference( 'ReplyTo', undef, 'siesta-dev', 'munge' );
is( $value, 1, "check per list" );
# per user
$value =
- Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- undef, 'munge' );
+ Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef,
+ 'munge' );
is( $value, 0, "check per user" );
# per-user, per-list
-$value =
- Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+$value = Siesta->storage->get_preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
'siesta-dev', 'munge' );
is( $value, 1, "check per user, per list" );
@@ -149,17 +154,29 @@
# system default
# set the default and everything else should fall down to that
-ok( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test', 'fallthrough' ) );
+ok(
+ Siesta::Preferences::preference(
+ 'ReplyTo', undef,
+ undef, 'test',
+ 'fallthrough'
+ )
+ );
-is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ), 'fallthrough' );
-is( Siesta::Preferences::preference( 'ReplyTo', undef, 'siesta-dev', 'test' ),
+is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ),
'fallthrough' );
-is( Siesta::Preferences::preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test' ),
+is( Siesta::Preferences::preference( 'ReplyTo', undef, 'siesta-dev', 'test' ),
'fallthrough' );
is(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- 'siesta-dev', 'test'
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ undef, 'test'
+ ),
+ 'fallthrough'
+ );
+is(
+ Siesta::Preferences::preference(
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ 'siesta-dev', 'test'
),
'fallthrough'
);
@@ -167,47 +184,70 @@
# set per list. This means that per-user,per-list will be updated
ok(
Siesta::Preferences::preference(
- 'ReplyTo', undef, 'siesta-dev', 'test',
- 'per list'
+ 'ReplyTo', undef,
+ 'siesta-dev', 'test',
+ 'per list'
)
);
-is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ), 'fallthrough' );
+is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ),
+ 'fallthrough' );
is( Siesta::Preferences::preference( 'ReplyTo', undef, 'siesta-dev', 'test' ),
'per list' );
-is( Siesta::Preferences::preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test' ),
- 'fallthrough' );
is(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- 'siesta-dev', 'test'
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ undef, 'test'
+ ),
+ 'fallthrough'
+ );
+is(
+ Siesta::Preferences::preference(
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ 'siesta-dev', 'test'
),
'per list'
);
# update default, check per-user again
-ok( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test', 'default' ) );
-is( Siesta::Preferences::preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test' ),
- 'default' );
+ok(
+ Siesta::Preferences::preference(
+ 'ReplyTo', undef, undef, 'test',
+ 'default'
+ )
+ );
+is(
+ Siesta::Preferences::preference(
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ undef, 'test'
+ ),
+ 'default'
+ );
# set per user and per-user,per-list will be updated
ok(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- undef, 'test',
- 'per user'
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ undef, 'test',
+ 'per user'
)
);
-is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ), 'default' );
+is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ),
+ 'default' );
is( Siesta::Preferences::preference( 'ReplyTo', undef, 'siesta-dev', 'test' ),
'per list' );
-is( Siesta::Preferences::preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test' ),
- 'per user' );
is(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- 'siesta-dev', 'test'
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ undef, 'test'
+ ),
+ 'per user'
+ );
+is(
+ Siesta::Preferences::preference(
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ 'siesta-dev', 'test'
),
'per user'
);
@@ -215,21 +255,29 @@
# finally set per-user, per-list and check that
ok(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- 'siesta-dev', 'test',
- 'per user per list'
+ 'ReplyTo',
+ 'simon@xxxxxxxxxx.xxx',
+ 'siesta-dev',
+ 'test',
+ 'per user per list'
)
);
-is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ), 'default' );
+is( Siesta::Preferences::preference( 'ReplyTo', undef, undef, 'test' ),
+ 'default' );
is( Siesta::Preferences::preference( 'ReplyTo', undef, 'siesta-dev', 'test' ),
'per list' );
-is( Siesta::Preferences::preference( 'ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test' ),
- 'per user' );
is(
Siesta::Preferences::preference(
- 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
- 'siesta-dev', 'test'
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ undef, 'test'
+ ),
+ 'per user'
+ );
+is(
+ Siesta::Preferences::preference(
+ 'ReplyTo', 'simon@xxxxxxxxxx.xxx',
+ 'siesta-dev', 'test'
),
'per user per list'
);
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52