defmodule RQTLTest do
  use ExUnit.Case

  setup do
     file = GnServer.Rqtl.Control.parse_control("./genotype/iron.json")
     {:ok, ctrl: file}
  end

  test "Test parsing R/QTL control file", state  do
    # ctrl = GnServer.Rqtl.Control.parse_control("./genotype/iron.json")
    keys = ["crosstype", "geno", "pheno", "phenocovar",
            "covar", "gmap", "alleles", "genotypes", "sex",
            "cross_info", "x_chr", "na.strings"]
    Enum.map(keys, fn(x) -> IO.puts x; assert Map.has_key?(state[:ctrl], x) end)
  end

end

Add R/QTL control file parsing test case
Add R/QTL control file parsing test case

chfi/gn_server,genenetwork/gn_server