aboutsummaryrefslogtreecommitdiffstats
path: root/t/app
diff options
context:
space:
mode:
Diffstat (limited to 't/app')
-rw-r--r--t/app/sendreport/angus.t56
1 files changed, 0 insertions, 56 deletions
diff --git a/t/app/sendreport/angus.t b/t/app/sendreport/angus.t
deleted file mode 100644
index 41379b4ff..000000000
--- a/t/app/sendreport/angus.t
+++ /dev/null
@@ -1,56 +0,0 @@
-use FixMyStreet::Test;
-
-use_ok("FixMyStreet::SendReport::Angus");
-
-my $u = FixMyStreet::DB->resultset('User')->new( { email => 'test@example.org', name => 'A User' } );
-
-my $p = FixMyStreet::DB->resultset('Problem')->new( {
- latitude => 1,
- longitude => 1,
- title => 'title',
- detail => 'detail',
- user => $u,
- id => 1,
- name => 'A User',
- cobrand => 'fixmystreet',
-} );
-
-my $angus = FixMyStreet::SendReport::Angus->new();
-
-subtest 'parses authentication token correctly' => sub {
- my $authxml = <<EOT;
- <AuthenticateResponse>
-
- <AuthenticateResult>
- TVRreUxqRTJPQzR5TlRVdU1qSjhNakF4Tmpvd01Ub3lNam94TlRvME16b3pPUT09VGhvdVNoYWx0Tm90UGFzcw==
- </AuthenticateResult>
- <success>
- True
- </success>
- <message></message>
-
- </AuthenticateResponse>
-EOT
-;
- is $angus->get_auth_token($authxml), 'TVRreUxqRTJPQzR5TlRVdU1qSjhNakF4Tmpvd01Ub3lNam94TlRvME16b3pPUT09VGhvdVNoYWx0Tm90UGFzcw==', 'token correct';
-};
-
-subtest 'parses report external id correctly' => sub {
- my $respxml = <<EOT;
-<CreateRequestResponse>
-
- <CreateRequestResult>
- <RequestId>7245</RequestId>
- </CreateRequestResult>
-
- <success>True</success>
- <message></message>
-
-</CreateRequestResponse>
-EOT
-;
- is $angus->get_external_id($respxml), '7245', 'external id correct';
-};
-
-
-done_testing();