Catch URI parse errors during routing (Copy from croservices#114 vendethiel++)

Author: Fernando Corrêa de Oliveira

lib/Cro/HTTP/Router.rakumod

@@ -322,6 +322,12 @@ module Cro::HTTP::Router {
                     my @*BIND-FAILS;
                     my $log-timeline-task = $request.annotations<log-timeline>;
                     my $routing-outcome = Cro::HTTP::LogTimeline::Route.log: $log-timeline-task, -> {
+                        CATCH {
+                            when X::Cro::Uri::ParseError {
+                                  emit Cro::HTTP::Response.new(:400status, :$request);
+                                  next;
+                            }
+                        }
                         $request.path ~~ $!path-matcher
                     }
                     with $routing-outcome {

t/http-router.rakutest

@@ -19,6 +19,12 @@ sub body-text(Cro::HTTP::Response $r) {
         ok $r ~~ Cro::HTTP::Response, 'Empty route set gives a response';
         is $r.status, '404', 'Status code from empty route set is 404';
     }
+
+    $source.emit(Cro::HTTP::Request.new(:method<GET>, :target<example[1].jpg>));
+    given $responses.receive -> $r {
+        ok $r ~~ Cro::HTTP::Response, 'No matching route gets a HTTP response';
+        is $r.status, '400', 'Status code uri is invalid is 500';
+    }
 }
 
 throws-like { request }, X::Cro::HTTP::Router::OnlyInHandler, what => 'request',