[siesta-commit] siesta/t 08config.t,1.5,1.6

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

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

Modified Files:
	08config.t 
Log Message:
Some tests are still failing. I'm wondering if it's the order the tests 
are done in or something in the code. I'll fix in a mo.


Index: 08config.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/08config.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- 08config.t	8 Sep 2002 10:59:15 -0000	1.5
+++ 08config.t	8 Sep 2002 11:12:14 -0000	1.6
@@ -11,44 +11,58 @@
 my $value;
 
 #############
-# inserting
+# default
 #############
 
-# default
+# insert
 ok(Siesta->storage->config('ReplyTo', undef, undef, 'munge', 0));
 
+# check
+$value = Siesta->storage->config('ReplyTo', undef, undef, 'munge');
+is($value, 0, "insert default");
+
+#############
 # per list
+#############
+
+# insert
 ok(Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'munge', 1));
 
+# check
+$value = Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'munge');
+is($value, 1, "insert per list");
+
+
+#############
 # per user
+#############
+
+# insert
 ok(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'munge', 0));
 
+# check
+$value = Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'munge');
+is($value, 0, "insert per user");
 
-# per-user, per-list
+
+#############
+# list/user
+#############
+
+# insert
 ok(Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'munge', 1));
 
 
+# check
+$value = Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'munge');
+is($value, 1, "insert per user, per list");
+
 
-#############
-# retrieving
-#############
 
-# default
-$value = Siesta->storage->config('ReplyTo', undef, undef, 'munge');
-is($value, 0, "insert default");
 
-# per list
-$value = Siesta->storage->config('ReplyTo', undef, 'siesta-dev', 'munge');
-is($value, 1, "insert per list");
 
-# per user
-$value = Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', undef, 'munge');
-is($value, 0, "insert per user");
 
 
-# per-user, per-list
-$value = Siesta->storage->config('ReplyTo', 'simon@xxxxxxxxxx.xxx', 'siesta-dev', 'munge');
-is($value, 1, "insert per user, per list");
 
 #############
 # updating

• [siesta-commit] siesta/t 08config.t,1.5,1.6 muttley 12:12 on 08 Sep 2002

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