[TfL] Restrict HE categories to HE roads.

The checks added in 285e183db missed the TfL cobrand.

1 files changed, 20 insertions, 7 deletions

diff --git a/t/Mock/Tilma.pm b/t/Mock/Tilma.pm
index 5a11209e3..7542b1f5e 100644
--- a/t/Mock/Tilma.pm
+++ b/t/Mock/Tilma.pm
@@ -10,6 +10,18 @@ has json => (
     },
 );
 
+sub as_json {
+    my ($self, $features) = @_;
+    my $json = mySociety::Locale::in_gb_locale {
+        $self->json->encode({
+            type => "FeatureCollection",
+            crs => { type => "name", properties => { name => "urn:ogc:def:crs:EPSG::27700" } },
+            features => $features,
+        });
+    };
+    return $json;
+}
+
 sub dispatch_request {
     my $self = shift;
 
@@ -25,15 +37,16 @@ sub dispatch_request {
                     [ 539408.94, 170607.58 ],
                 ] ] } } ];
         }
-        my $json = mySociety::Locale::in_gb_locale {
-            $self->json->encode({
-                type => "FeatureCollection",
-                crs => { type => "name", properties => { name => "urn:ogc:def:crs:EPSG::27700" } },
-                features => $features,
-            });
-        };
+        my $json = $self->as_json($features);
         return [ 200, [ 'Content-Type' => 'application/json' ], [ $json ] ];
     },
+
+    sub (GET + /mapserver/highways + ?*) {
+        my ($self, $args) = @_;
+        my $json = $self->as_json([]);
+        return [ 200, [ 'Content-Type' => 'application/json' ], [ $json ] ];
+    },
+
 }
 
 __PACKAGE__->run_if_script;