quantum_package/ocaml/test_molecule.ml

open Core.Std ;;
open Qptypes ;;

let test_molecule () =
  let xyz =
"
H           1.0       0.54386314      0.00000000     -3.78645152
O           8.0       1.65102147      0.00000000     -2.35602344
H           1.0       0.54386314      0.00000000     -0.92559535
"
  in
  
  print_string "---\n";
  begin
  try (
    ignore (Molecule.of_xyz_string xyz ~multiplicity:(Multiplicity.of_int 2)) ;
    print_string "Failed in MultiplicityError\n" )
    with
    | Molecule.MultiplicityError _ -> print_string "MultiplicityError OK\n"
  end ;
  print_string "---\n";
  let m = Molecule.of_xyz_string xyz 
  in print_endline (Molecule.name m) ;
  let m = Molecule.of_xyz_string xyz ~charge:1 ~multiplicity:(Multiplicity.of_int 2)
  in print_endline (Molecule.name m) ;

  let xyz =
"
H        0.54386314      0.00000000     -3.78645152
O        1.65102147      0.00000000     -2.35602344
H        0.54386314      0.00000000     -0.92559535
"
  in
  let m = Molecule.of_xyz_string xyz ~charge:(-2) 
  in print_endline (Molecule.name m) ;
  print_endline (Molecule.to_string m);
  print_string "---------\n";

  let m = Molecule.of_xyz_file "c2h6.xyz"  in
  print_string (Molecule.to_string m);

;;

test_molecule ();;