Skip to content

Commit a688a72

Browse files
committed
Fix LibraryDslTest indentation (PR #720)
1 parent 08fdb65 commit a688a72

File tree

1 file changed

+14
-14
lines changed

1 file changed

+14
-14
lines changed

unittest/analyses/libraryDslTest.ml

Lines changed: 14 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -1,32 +1,32 @@
11
open OUnit2
22

33
let memset_desc: LibraryDesc.t = LibraryDsl.(
4-
unknown [drop "dest" [w]; drop "ch" []; drop "count" []]
5-
)
4+
unknown [drop "dest" [w]; drop "ch" []; drop "count" []]
5+
)
66

77
let pthread_mutex_lock_desc: LibraryDesc.t = LibraryDsl.(
8-
special [__' [r]] @@ fun e -> Lock { lock = e; try_ = false; write = true; return_on_success = false; } (* actual description in LibraryFunctions has try_ depending on sem.lock.fail *)
9-
)
8+
special [__' [r]] @@ fun e -> Lock { lock = e; try_ = false; write = true; return_on_success = false; } (* actual description in LibraryFunctions has try_ depending on sem.lock.fail *)
9+
)
1010

1111
let pthread_create_desc: LibraryDesc.t = LibraryDsl.(
12-
special [__ "thread" [w]; drop "attr" [r]; __ "start_routine" [r]; __ "arg" [r]] @@ fun thread start_routine arg -> ThreadCreate { thread; start_routine; arg }
13-
)
12+
special [__ "thread" [w]; drop "attr" [r]; __ "start_routine" [r]; __ "arg" [r]] @@ fun thread start_routine arg -> ThreadCreate { thread; start_routine; arg }
13+
)
1414

1515
let realloc_desc: LibraryDesc.t = LibraryDsl.(
16-
special [__ "ptr" [r; f]; __ "size" []] @@ fun ptr size -> Realloc { ptr; size }
17-
)
16+
special [__ "ptr" [r; f]; __ "size" []] @@ fun ptr size -> Realloc { ptr; size }
17+
)
1818

1919
let scanf_desc': LibraryDesc.t = LibraryDsl.(
20-
special ((drop "format" []) :: VarArgs (__' [w])) @@ fun (args: Cil.exp list) -> Unknown
21-
)
20+
special ((drop "format" []) :: VarArgs (__' [w])) @@ fun (args: Cil.exp list) -> Unknown
21+
)
2222

2323
let scanf_desc: LibraryDesc.t = LibraryDsl.(
24-
unknown ((drop "format" []) :: VarArgs (drop' [w]))
25-
)
24+
unknown ((drop "format" []) :: VarArgs (drop' [w]))
25+
)
2626

2727
let rand_desc: LibraryDesc.t = LibraryDsl.(
28-
unknown ~attrs:[ThreadUnsafe] []
29-
)
28+
unknown ~attrs:[ThreadUnsafe] []
29+
)
3030

3131
(* this file currently only tests that the above DSL usage compiles *)
3232
(* TODO: runtime tests *)

0 commit comments

Comments
 (0)