diff options
author | Struan Donald <struan@exo.org.uk> | 2012-04-24 16:13:29 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2012-04-24 16:13:29 +0100 |
commit | 65e4864f4408a1560beca8746046c8a08a3971f4 (patch) | |
tree | d50ecd588e2030d1fb6794688d7f7162ae3af331 /t/open311.t | |
parent | afa97893b54edd890527a80392492f0d10a739a1 (diff) |
Revert "correct misunderstanding of bromley spec"
Turns out I was correct the first time round :(
This reverts commit afa97893b54edd890527a80392492f0d10a739a1.
Diffstat (limited to 't/open311.t')
-rw-r--r-- | t/open311.t | 98 |
1 files changed, 3 insertions, 95 deletions
diff --git a/t/open311.t b/t/open311.t index 08e2ebd08..83b81d8aa 100644 --- a/t/open311.t +++ b/t/open311.t @@ -59,7 +59,6 @@ my $problem = FixMyStreet::App->model('DB::Problem')->new( { latitude => 1, longitude => 2, user => $user, - confirmed => $dt, } ); subtest 'posting service request' => sub { @@ -93,57 +92,6 @@ EOT is $c->param('long'), 2, 'longitude correct'; is $c->param('description'), $description, 'descritpion correct'; is $c->param('service_code'), 'pothole', 'service code correct'; - is $c->param('northing'), undef, 'northing correct'; - is $c->param('easting'), undef, 'easting is not set'; - is $c->param('report_url'), undef, 'report_url is not set'; - is $c->param('service_request_id_ext'), undef, 'service_request_id_ext is not set'; - is $c->param('report_title'), undef, 'report_title is not set'; - is $c->param('email_alerts_requested'), undef, 'email_alerts_requested is not set'; - is $c->param('requested_datetime'), undef, 'requested_datetime is not set'; - is $c->param('public_anonymity_required'), undef, 'public_anonymity_required is not set'; -}; - -subtest 'posting extended service request' => sub { - my $extra = { - northing => 'N', - easting => 'E', - url => 'http://example.com/report/1', - }; - - my $results = make_service_req( $problem, $extra, $problem->category, '<?xml version="1.0" encoding="utf-8"?><service_requests><request><service_request_id>248</service_request_id></request></service_requests>', 1 ); - - is $results->{ res }, 248, 'got request id'; - - my $req = $o->test_req_used; - - my $description = <<EOT; -title: a problem - -detail: problem detail - -url: http://example.com/report/1 - -Submitted via FixMyStreet -EOT -; - - my $c = CGI::Simple->new( $results->{ req }->content ); - - is $c->param('email'), $user->email, 'correct email'; - is $c->param('first_name'), 'Test', 'correct first name'; - is $c->param('last_name'), 'User', 'correct last name'; - is $c->param('lat'), 1, 'latitide correct'; - is $c->param('long'), 2, 'longitude correct'; - is $c->param('description'), $description, 'descritpion correct'; - is $c->param('service_code'), 'pothole', 'service code correct'; - is $c->param('northing'), 'N', 'northing correct'; - is $c->param('easting'), 'E', 'easting correct'; - is $c->param('report_url'), 'http://example.com/report/1', 'report_url correct'; - is $c->param('service_request_id_ext'), $problem->id, 'service_request_id_ext correct'; - is $c->param('report_title'), 'a problem', 'report_title correct'; - is $c->param('email_alerts_requested'), 'FALSE', 'email_alerts_requested correct'; - is $c->param('requested_datetime'), $problem->confirmed, 'requested_datetime correct'; - is $c->param('public_anonymity_required'), 'FALSE', 'public_anonymity_required correct'; }; for my $test ( @@ -172,26 +120,6 @@ for my $test ( }, ], params => [ - [ 'first_name', 'Test', 'first name correct' ], - [ 'last_name', 'User', 'last name correct' ], - [ 'attribute[first_name]', 'First', 'correct first_name attribute param' ], - [ 'attribute[last_name]', 'Last', 'correct last_name attribute param' ], - ], - }, - { - desc => 'first and last names in extra used correctly with extended send request', - extended_sendrequest => 1, - extra => [ - { - name => 'first_name', - value => 'First', - }, - { - name => 'last_name', - value => 'Last', - }, - ], - params => [ [ 'first_name', 'First', 'first name correct' ], [ 'last_name', 'Last', 'last name correct' ], [ 'attribute[first_name]', undef, 'no first_name attribute param' ], @@ -214,23 +142,6 @@ for my $test ( ] ], }, - { - title => 'magic fms_extra parameters handled correctly with extended send request', - extended_sendrequest => 1, - extra => [ - { - name => 'fms_extra_title', - value => 'Extra title', - } - ], - params => [ - [ - 'attribute[title]', - undef, - 'no title attribute param' - ] - ], - }, ) { subtest $test->{desc} => sub { @@ -239,8 +150,7 @@ for my $test ( my $extra = { url => 'http://example.com/report/1', }; my $results = make_service_req( $problem, $extra, $problem->category, -'<?xml version="1.0" encoding="utf-8"?><service_requests><request><service_request_id>248</service_request_id></request></service_requests>', - $test->{extended_sendrequest} +'<?xml version="1.0" encoding="utf-8"?><service_requests><request><service_request_id>248</service_request_id></request></service_requests>' ); my $req = $o->test_req_used; my $c = CGI::Simple->new( $results->{req}->content ); @@ -420,9 +330,8 @@ sub make_service_req { my $extra = shift; my $service_code = shift; my $xml = shift; - my $extended = shift || 0; - return make_req( $problem, $xml, 'send_service_request', 'requests.xml', $extended, $extra, $service_code ); + return make_req( $problem, $xml, 'send_service_request', 'requests.xml', $extra, $service_code ); } sub make_req { @@ -430,11 +339,10 @@ sub make_req { my $xml = shift; my $method = shift; my $path = shift; - my $extended = shift; my @args = @_; my $o = - Open311->new( test_mode => 1, end_point => 'http://localhost/o311', extended_sendrequest => $extended ); + Open311->new( test_mode => 1, end_point => 'http://localhost/o311' ); my $test_res = HTTP::Response->new(); $test_res->code(200); |