[siesta-commit] siesta/t 07list.t,1.14,1.15 07user.t,1.2,1.3

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

From: muttley
Subject: [siesta-commit] siesta/t 07list.t,1.14,1.15 07user.t,1.2,1.3
Date: 16:16 on 02 Sep 2002
Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv31085/t

Modified Files:
	07list.t 07user.t 
Log Message:
Huge batch of changes to get config working. 


Index: 07list.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07list.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- 07list.t	28 Aug 2002 10:05:24 -0000	1.14
+++ 07list.t	2 Sep 2002 15:16:08 -0000	1.15
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 23;
+use Test::More tests => 26;
 use Test::MockObject;
 use Siesta;
 use Siesta::List;
@@ -47,3 +47,9 @@
 ok( $list->add_member( 'bob@xxxxxxxx.xxxxxxxxxx' ), 'was able to add bob' );
 is( scalar $list->members, $count + 1 );
 ok( $list->is_member( 'bob@xxxxxxxx.xxxxxxxxxx' ) );
+
+# config
+is ($list->get_config('bar', 'a'), 'b', "getting the config");
+ok ($list->set_config('bar', 'a', 'whatever'), "setting new config");
+is ($list->get_config('bar', 'a'), 'whatever', "getting the new config");
+

Index: 07user.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07user.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- 07user.t	28 Aug 2002 10:05:24 -0000	1.2
+++ 07user.t	2 Sep 2002 15:16:09 -0000	1.3
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 2;
+use Test::More tests => 5;
 use Test::MockObject;
 use Siesta;
 use Siesta::User;
@@ -10,3 +10,9 @@
 my $user = Siesta::User->new('jay@xxxxxxxx.xxxxxxxxxx');
 ok( $user, "user created" );
 isa_ok( $user, "Siesta::User", );
+
+# option
+# config
+is ($user->get_config('bar', 'a'), 'b', "getting the config");
+ok ($user->set_config('bar', 'a', 'whatever'), "setting new config");
+is ($user->get_config('bar', 'a'), 'whatever', "getting the new config");



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