[Camden] Adds test file

Sets up test file and adds test for service white list

t/open311/endpoint/camden.t

@@ -291,4 +291,69 @@ subtest "GET updates OK" => sub {
     ok 1;
 };
 
+
+my $confirm_integ = Test::MockModule->new('Integrations::Confirm');
+$confirm_integ->mock(config => sub {
+    {
+        endpoint_url => 'http://www.example.org/',
+    }
+});
+
+$confirm_integ->mock(perform_request => sub {
+    my ($self, $op) = @_; # Don't care about subsequent ops
+    $op = $$op;
+    if ($op->name && $op->name eq 'GetEnquiryLookups') {
+        return {
+            OperationResponse => { GetEnquiryLookupsResponse => { TypeOfService => [
+                { ServiceCode => 'ABC', ServiceName => 'Trees', EnquirySubject => [ { SubjectCode => "DEF" } ] },
+            ] } }
+        };
+    }
+    return {};
+});
+
+use_ok 'Open311::Endpoint::Integration::UK::Camden::ConfirmTrees';
+
+$endpoint = Open311::Endpoint::Integration::UK::Camden::ConfirmTrees->new(
+    config_file => path(__FILE__)->sibling("camden_confirm_trees.yml")->stringify,
+);
+
+subtest "GET Service List" => sub {
+
+my $res = $endpoint->run_test_request( GET => '/services.xml' );
+    ok $res->is_success, 'xml success';
+    my $expected = <<XML;
+<?xml version="1.0" encoding="utf-8"?>
+<services>
+  <service>
+    <description>Blocking streetlight</description>
+      <groups>
+       <group>Trees</group>
+      </groups>
+      <keywords></keywords>
+      <metadata>true</metadata>
+      <service_code>ABC_DEF</service_code>
+      <service_name>Blocking streetlight</service_name>
+      <type>realtime</type>
+   </service>
+   <service>
+    <description>Blocking traffic signal/sign</description>
+    <groups>
+     <group>Trees</group>
+    </groups>
+    <keywords></keywords>
+    <metadata>true</metadata>
+    <service_code>ABC_DEF_1</service_code>
+    <service_name>Blocking traffic signal/sign</service_name>
+    <type>realtime</type>
+   </service>
+</services>
+XML
+    my $content = $res->content;
+    $content =~ s/\s+//g;
+    $expected =~ s/\s+//g;
+    is $content, $expected
+        or diag $res->content;
+};
+
 done_testing;

t/open311/endpoint/camden_confirm_trees.yml

@@ -0,0 +1,4 @@
+"service_whitelist":
+  "Trees":
+     "ABC_DEF": "Blocking streetlight"
+     "ABC_DEF_1": "Blocking traffic signal/sign"