diff options
| author | Edmund von der Burg <evdb@mysociety.org> | 2011-02-23 18:47:07 +0000 |
|---|---|---|
| committer | Edmund von der Burg <evdb@mysociety.org> | 2011-02-23 18:47:07 +0000 |
| commit | b7df296229dcca8dd35f2138826e5415e0edede9 (patch) | |
| tree | 5b5d793837caed3edb6c40102984e3d24ad324c0 /t/fixmystreet.t | |
| parent | fe18ee66aa7d97a070990731316152b74b132e65 (diff) | |
Allow access to the config through FixMyStreet
Diffstat (limited to 't/fixmystreet.t')
| -rw-r--r-- | t/fixmystreet.t | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/t/fixmystreet.t b/t/fixmystreet.t index c1b3f0075..d7f00b047 100644 --- a/t/fixmystreet.t +++ b/t/fixmystreet.t @@ -2,7 +2,8 @@ use strict; use warnings; use Path::Class; -use Test::More tests => 4; +use Test::More; +use Test::Exception; use_ok 'FixMyStreet'; @@ -14,3 +15,23 @@ isa_ok $path_to_path, 'Path::Class::File'; ok $path_to_path->is_absolute, "path is absolute"; is "$path_to_path", $file_path, "got $file_path"; +# check that the config gets loaded and is immutable +my $config = FixMyStreet->config; +isa_ok $config, 'HASH'; +is $config->{GAZE_URL}, 'http://gaze.mysociety.org/gaze', + "got GAZE_URL correctly"; +throws_ok( + sub { $config->{GAZE_URL} = 'some other value'; }, + qr/Modification of a read-only value attempted/, + 'attempt to change config caught' +); +is $config->{GAZE_URL}, 'http://gaze.mysociety.org/gaze', "GAZE_URL unchanged"; + +# check that we can get the value by key as well +is FixMyStreet->config('GAZE_URL'), 'http://gaze.mysociety.org/gaze', + "GAZE_URL correct when got by key"; +is FixMyStreet->config('BAD_KEY_DOES_NOT_EXIST'), undef, "config miss is undef"; + +# all done +done_testing(); + |