Paweł Wieczorek avatar Paweł Wieczorek committed 8d2562c Draft

cleaning

Comments (0)

Files changed (1)

tests/Test_parser.ml

     assert_equal ~msg:msg ~printer:(fun x -> "[" ^ String.concat "," (List.map String.quote x) ^ "]") a b
 
 let _validate_field printer actual request revconv field extracted expected =
-    assert_equal ~msg:("mime field " ^ field) ~printer:printer expected actual;
-    assert_equal ~msg:("extracted field " ^ field) ~printer:printer expected extracted
+    assert_equal
+        ~msg:("mime field " ^ field)
+        ~printer:printer
+        expected actual;
+
+    assert_equal
+        ~msg:("extracted field " ^ field)
+        ~printer:printer
+        expected extracted
 
 let validate_extracted_field request conv revconv field extracted expected =
     let actual_mime      = conv (request#header (String.lowercase field)) in
 let validate_extracted_field_all request conv revconv field extracted expected =
     let actual_mime      = List.map conv (request#header_all (String.lowercase field)) in
     let printer          = String.concat "," -| List.map (String.quote -| revconv) in
-    assert_equal ~msg:("length " ^ field) ~printer:string_of_int (List.length expected) (List.length extracted);
     _validate_field printer actual_mime request revconv field extracted expected
 
 let validate_message request = function
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.