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

Add a has method to Session/Setting, so that it's easy to check if a setting

Browse source 
already exists.  Very handy for upgrade scripts.
This commit is contained in:
Colin Kuskie 2009-05-13 17:32:49 +00:00
parent 385d35c13b
commit b19279a13d
2 changed files with 29 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/Session/Setting.pm
View file

@ -109,6 +109,30 @@ sub get {
}
#-------------------------------------------------------------------
=head2 has ( $param )
Returns true if the requested setting exists in this object's cache of the settings.
This works better than using ->get, since it doesn't care about the truthiness of
the value of the setting.
This method will have little use outside of upgrade and install scripts, to prevent
them from creating and/or overwriting existing settings.
=head3 $param
The setting to check.
=cut
sub has {
my $self = shift;
my $param = shift;
return exists $self->{_settings}{$param};
}
#-------------------------------------------------------------------
=head2 new ( session )

6
t/Session/Setting.t
View file

@ -15,7 +15,7 @@ use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use Test::More tests => 7; # increment this value for each test you create
use Test::More tests => 10; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -27,6 +27,10 @@ $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');
is($session->setting->has('inmate'), 1, 'has checks for existance');
$session->setting->set('inmate', 0);
is($session->setting->get('inmate'), 0, 'get will get 0 values');
is($session->setting->has('inmate'), 1, 'has checks for existance, regardless of value');
$session->setting->remove("inmate");
my ($value) = $session->db->quickArray("select value from settings where name='inmate'");
is($value, undef, "delete()");