File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -261,7 +261,8 @@ let create_temp_dir prefix =
261261 let timestamp = Unix. time () |> int_of_float in
262262 let random = Random. int 10000 in
263263 let dir_name =
264- Filename. concat (Filename. get_temp_dir_name () )
264+ Filename. concat
265+ (Filename. get_temp_dir_name () )
265266 (Printf. sprintf " migra_test_%s_%d_%d" prefix timestamp random)
266267 in
267268 Unix. mkdir dir_name 0o755 ;
Original file line number Diff line number Diff line change @@ -5,7 +5,8 @@ let with_sqlite_file prefix f =
55 let timestamp = Unix. time () |> int_of_float in
66 let random = Random. int 10000 in
77 let db_file =
8- Filename. concat (Filename. get_temp_dir_name () )
8+ Filename. concat
9+ (Filename. get_temp_dir_name () )
910 (Printf. sprintf " migra_test_%s_%d_%d.db" prefix timestamp random)
1011 in
1112 let db_url = Printf. sprintf " sqlite3://%s" db_file in
You can’t perform that action at this time.
0 commit comments