[siesta-commit] siesta/t 08config.t,1.8,1.9

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

From: muttley
Subject: [siesta-commit] siesta/t 08config.t,1.8,1.9
Date: 09:43 on 09 Sep 2002
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