diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2013-02-04 23:05:20 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2013-02-04 23:05:20 +0000 |
| commit | dcf76b83a077833df57b6560d610e8cedd4162ed (patch) | |
| tree | f18ef483f8a4bcc0db14488b79d686ff5c71ddb1 /perllib | |
| parent | be1d7f07903d7291dde8da19f78935233e383597 (diff) | |
Add a basic FMB test.
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/FixMyStreet.pm | 2 | ||||
| -rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 12 |
2 files changed, 12 insertions, 2 deletions
diff --git a/perllib/FixMyStreet.pm b/perllib/FixMyStreet.pm index 2d8f462d5..be488a796 100644 --- a/perllib/FixMyStreet.pm +++ b/perllib/FixMyStreet.pm @@ -33,7 +33,7 @@ Thus module has utility functions for the FMS project. FixMyStreet->test_mode( $bool ); my $in_test_mode_bool = FixMyStreet->test_mode; -Put the FixMyStreet into test mode - inteded for the unit tests: +Put the FixMyStreet into test mode - intended for the unit tests: BEGIN { use FixMyStreet; diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm index 5f25dfc70..61f59f725 100644 --- a/perllib/FixMyStreet/SendReport/Open311.pm +++ b/perllib/FixMyStreet/SendReport/Open311.pm @@ -97,7 +97,7 @@ sub send { category => $row->category } ); - my $open311 = Open311->new( + my %open311_params = ( jurisdiction => $conf->jurisdiction, endpoint => $conf->endpoint, api_key => $conf->api_key, @@ -106,6 +106,16 @@ sub send { use_service_as_deviceid => $use_service_as_deviceid, extended_description => $extended_desc, ); + if (FixMyStreet->test_mode) { + my $test_res = HTTP::Response->new(); + $test_res->code(200); + $test_res->message('OK'); + $test_res->content('<?xml version="1.0" encoding="utf-8"?><service_requests><request><service_request_id>248</service_request_id></request></service_requests>'); + $open311_params{test_mode} = 1; + $open311_params{test_get_returns} = { 'requests.xml' => $test_res }; + } + + my $open311 = Open311->new( %open311_params ); # non standard west berks end points if ( $row->bodies_str =~ /2619/ ) { |