0

我正在编写我的第一个 Ocaml+OUnit2+Dune 项目。但是在我的单元测试中，当我说打开 Mymaps 时，它会显示“未绑定模块 Mymaps”

我的项目结构如下

mymaps
  |
  |-> lib
       |-> dune
       |-> mymaps.mli
       |-> mymaps.ml
  |-> test
       |->mymaps_test.ml
       |-> dune
  |->dune-project
  |->mymaps.opam

mymaps_test.ml 的内容

open OUnit2
open Mymaps
let empty_test = "empty has no bindings" >:: (fun _ -> assert_equal [] (empty))
let mymap_tests = [empty_test]
let suite = "maps suite" >::: mymap_tests
let _ = run_test_tt_main suite

mymaps.mli 的内容

type ('k, 'v) t
val empty : ('k, 'v) t
val insert : 'k -> 'v -> ('k, 'v) t -> ('k, 'v) t

mymaps.ml 的内容

type ('k, 'v) t = ('k * 'v) list
let rec insert k v m = match m with 
  | [] -> [(k, v)]
  | (eK, eV) :: tl -> let (nK, nV) = if (eK = k) then (k, v) else (eK, eV) in 
                        (nK, nV) :: insert k v tl
let empty = []

测试/沙丘文件的内容

(test
 (name mymaps_test)
 (libraries ounit2))

lib/dune 文件的内容

(library
 (public_name mymaps)
 (name mymaps))

这是 Github 的链接https://github.com/abhsrivastava/mymaps.git

请让我知道为什么我的测试无法打开模块。为什么它说未绑定模块 Mymaps。（我也尝试过小写的 mymaps 和 MyMaps，但它就是看不到它）。

4

1 回答 1

3

您需要在测试项目mymaps的libraries节中列出，就像您在工作区中的任何其他项目一样。没有其他任何迹象表明这是您要测试的库。

(test
 (name mymaps_test)
 (libraries mymaps ounit2))
于 2022-03-04T20:18:45.710 回答