mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 20:32:15 +00:00
12 lines
298 B
OCaml
12 lines
298 B
OCaml
open Gilded_rose
|
|
|
|
let test () =
|
|
let items = Items.v ~items:[ Item.v "Foo" 10 20 ] () in
|
|
Alcotest.(check string)
|
|
"Broken test" "Fixme"
|
|
(List.hd items |> fun item -> item.name)
|
|
|
|
let () =
|
|
let open Alcotest in
|
|
run "Gilded Rose" [ ("Our first test", [ test_case "fixme" `Quick test ]) ]
|