Disallow @ on scheme part

Author: dinosaure

lib/uri.ml

@@ -892,7 +892,7 @@ module Parser = struct
   let scheme =
     lift
       (fun s -> Some (Pct.decode (Pct.cast_encoded s)))
-      (take_while (fun c -> c <> ':' && c <> '/' && c <> '?' && c <> '#')
+      (take_while (fun c -> c <> '@' && c <> ':' && c <> '/' && c <> '?' && c <> '#')
       <* char ':')
     <|> return None
 

lib_test/dune

@@ -2,7 +2,7 @@
  (name test_runner)
  (package uri)
  (modules test_runner)
- (libraries uri uri.services oUnit))
+ (libraries fmt uri uri.services oUnit))
 
 (test
  (name test_runner_sexp)

lib_test/test_runner.ml

@@ -422,6 +422,8 @@ let test_with_change = [
     let urn = Uri.of_string "urn:uuid:f81d4fae-7dec-11d0-a765-00a0c91e6bf6" in
     let urn2= Uri.with_scheme urn (Some "urn") in
     assert_equal ~printer urn urn2;
+    let git = Uri.of_string "[email protected]:owner/repo" in
+    assert_equal ~printer:Fmt.(to_to_string (option string)) (Uri.scheme git) None ;
 
     let urn_path =
       Uri.with_path Uri.empty "uuid:f81d4fae-7dec-11d0-a765-00a0c91e6bf6"