oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

got it before perlDreamer did!

Browse source
This commit is contained in:
JT Smith 2008-12-20 16:12:09 +00:00
parent d0b8dd17bc
commit c76d533c31
1 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

20
t/Session/Setting.t
View file

@ -19,16 +19,16 @@ use Test::More tests => 6; # increment this value for each test you create
my $session = WebGUI::Test->session;
$session->setting->add("test","XXX");
my ($value) = $session->db->quickArray("select value from settings where name='test'");
is($value, 'XXX', "add()");
is($session->setting->get("test"), "XXX", "get()");
$session->setting->set("test","YYY");
my ($value) = $session->db->quickArray("select value from settings where name='test'");
is($value, 'YYY', "set()");
is($session->setting->get("test"), 'YYY', 'set() also updates object cache');
$session->setting->remove("test");
my ($value) = $session->db->quickArray("select value from settings where name='test'");
$session->setting->add("inmate","30265");
my ($value) = $session->db->quickArray("select value from settings where name='inmate'");
is($value, '30265', "add()");
is($session->setting->get("inmate"), "30265", "get()");
$session->setting->set("inmate","37927");
my ($value) = $session->db->quickArray("select value from settings where name='inmate'");
is($value, '37927', "set()");
is($session->setting->get("inmate"), '37927', 'set() also updates object cache');
$session->setting->remove("inmate");
my ($value) = $session->db->quickArray("select value from settings where name='inmate'");
is($value, undef, "delete()");
isa_ok($session->setting->session, 'WebGUI::Session', 'session method returns a session object');