[prev] [thread] [next] [lurker] [Date index for 2002/09/02]
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