10
1
mirror of https://gitlab.com/scemama/QCaml.git synced 2024-11-07 06:33:39 +01:00
QCaml/run_tests.ml

25 lines
560 B
OCaml

let test_water_dz () =
let basis_file = "test_files/cc-pvdz"
and nuclei_file = "test_files/h2o.xyz"
in
let simulation_closed_shell =
Simulation.of_filenames ~charge:0 ~multiplicity:1 ~nuclei:nuclei_file basis_file
in
let ao_basis =
simulation_closed_shell.Simulation.ao_basis
in
Alcotest.run "Water, cc-pVDZ" [
"AO_Basis", AOBasis.test_case ao_basis;
"Guess", Guess.test_case ao_basis;
"Spindeterminant", Spindeterminant.test_case ();
"Determinant", Determinant.test_case ();
]
let () =
test_water_dz ()