[prev] [thread] [next] [lurker] [Date index for 2002/09/09]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv27350/t Modified Files: 08config.t Log Message: F1XX0r3d Index: 08config.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/08config.t,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- 08config.t 8 Sep 2002 17:44:36 -0000 1.8 +++ 08config.t 9 Sep 2002 08:43:38 -0000 1.9 @@ -1,6 +1,6 @@ #!perl -w use strict; -use Test::More tests => 44; +use Test::More tests => 46; use Test::MockObject; use Siesta; use Siesta::User; @@ -129,33 +129,34 @@ is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'test'), 'fallthrough'); -# set per list and everything else should fall to that except default +# set per list. This means that per-user,per-list will be updated ok(Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'test', 'per list')); is(Siesta->storage->config('ReplyTo', undef, undef, 'test'), 'fallthrough'); -is(Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'test'), 'per list', "first per list"); -is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test'), 'per list', "second per list"); -is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'test'), 'per list', "third per list"); +is(Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'test'), 'per list'); +is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test'), 'fallthrough'); +is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'test'), 'per list'); -# set per user and everything else should fall to that except default and per user +# update default, check per-ser again +ok(Siesta->storage->config('ReplyTo', undef, undef, 'test', 'default')); +is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test'), 'default'); + + +# set per user and per-user,per-list will be updated ok(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test', 'per user')); -is(Siesta->storage->config('ReplyTo', undef, undef, 'test'), 'fallthrough'); -is(Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'test'), 'per list', "fourth per list"); +is(Siesta->storage->config('ReplyTo', undef, undef, 'test'), 'default'); +is(Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'test'), 'per list'); is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test'), 'per user'); is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'test'), 'per user'); - # finally set per-user, per-list and check that ok(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'test', 'per user per list')); -is(Siesta->storage->config('ReplyTo', undef, undef, 'test'), 'fallthrough', "fifth per list"); +is(Siesta->storage->config('ReplyTo', undef, undef, 'test'), 'default'); is(Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'test'), 'per list'); is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'test'), 'per user'); is(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'test'), 'per user per list'); - - - ####################
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52