File: test_lib.ml

package info (click to toggle)
utop 2.16.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 888 kB
  • sloc: ml: 3,647; lisp: 895; makefile: 50; sh: 20
file content (14 lines) | stat: -rw-r--r-- 365 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
let test_fix_string =
  let test ~name input ~expected =
    (name, `Quick, fun () ->
       let got = UTop.Private.fix_string input in
       Alcotest.check Alcotest.string __LOC__ expected got
    )
  in
  ( "fix_string"
  , [ test ~name:"small" "x" ~expected:"x"
    ; test ~name:"empty" "" ~expected:""
    ]
  )

let () = Alcotest.run "utop" [test_fix_string]