[siesta-commit] siesta/t 08config.t,1.10,1.11

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

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

Modified Files:
	08config.t 
Log Message:
tests for deleting of keys


Index: 08config.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/08config.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- 08config.t	12 Sep 2002 12:55:32 -0000	1.10
+++ 08config.t	20 Sep 2002 13:40:24 -0000	1.11
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 46;
+use Test::More tests => 52;
 use Test::MockObject;
 use Siesta;
 use Siesta::User;
@@ -22,6 +22,13 @@
   Siesta->storage->get_config_explicitly( 'ReplyTo', undef, undef, 'munge' );
 is( $value, 0, "insert default" );
 
+# delete
+ok(Siesta->storage->delete_config('ReplyTo', undef, undef, 'munge'));
+$value =
+  Siesta->storage->get_config_explicitly( 'ReplyTo', undef, undef, 'munge' );
+is( $value, undef, "delete" );
+
+
 #############
 # per list
 #############
@@ -53,6 +60,8 @@
                                           undef, 'munge' );
 is( $value, 0, "insert per user" );
 
+
+
 #############
 # list/user
 #############
@@ -268,3 +277,10 @@
 $value = $plugin->config( $listuser, 'foo' );
 is( $value, 0, "plugin check per user, per list" );
 
+# try delete
+ok($plugin->config($default, 'quux', 'mook'));
+$value = $plugin->config( $default, 'quux' );
+is( $value, 'mook');
+ok($plugin->delete_config($default, 'quux'));
+$value = $plugin->config( $default, 'quux' );
+is( $value, undef)

• [siesta-commit] siesta/t 08config.t,1.10,1.11 muttley 14:40 on 20 Sep 2002

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