swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

rm scfg wip

Browse source
This commit is contained in:
Swrup 2026-03-19 21:29:27 +01:00
parent 8c2c90b3c2
commit 872cf1b72f
13 changed files with 156 additions and 343 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/test.ml
View file

@ -183,7 +183,7 @@ module Test_post = struct
let* expected_comment =
Comment.of_string comment
|> Result.map_error (fun s ->
Err.Unprocessable (Fmt.str "comment: %s" s) )
Err.Unprocessable (Fmt.str "comment: %s" s) )
in
let expected_op =
{ id = post_id
@ -221,7 +221,7 @@ module Test_post = struct
let* expected_comment =
Comment.of_string comment
|> Result.map_error (fun s ->
Err.Unprocessable (Fmt.str "comment: %s" s) )
Err.Unprocessable (Fmt.str "comment: %s" s) )
in
let expected_post =
{ id = post.id
@ -256,7 +256,7 @@ module Test_post = struct
let* expected_comment =
Comment.of_string comment
|> Result.map_error (fun s ->
Err.Unprocessable (Fmt.str "comment: %s" s) )
Err.Unprocessable (Fmt.str "comment: %s" s) )
in
(* image read/write to file for thumbnail creation + strip exif change image data
thumbnail dimension can be <> than image dimension *)