[siesta-commit] siesta/t 08config.t,NONE,1.1

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

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

Added Files:
	08config.t 
Log Message:
Whoops. Committed properly.


--- NEW FILE: 08config.t ---
#!perl -w
use strict;
use Test::More tests => 5;
use Test::MockObject;
use Siesta;
use Siesta::Config::User;


my $user_config = new Siesta::Config::User();
ok($user_config, "per user config created");

isa_ok($user_config, 'Siesta::Config');

ok(!$user_config->get('foo','bar','key'), "key 'key' not defined for namespace 'bar' in list 'foo'");
ok($user_config->set('foo','bar','key', 'value'), "key 'key' set as 'value' for namespace 'bar' in list 'foo'");
is($user_config->get('foo','bar','key'), 'value', "key 'key' is value 'value' in namespace 'bar' in list 'foo'");

• [siesta-commit] siesta/t 08config.t,NONE,1.1 muttley 08:12 on 02 Sep 2002

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