mirror of
https://github.com/LCPQ/quantum_package
synced 2024-09-01 17:13:42 +02:00
20 lines
355 B
OCaml
20 lines
355 B
OCaml
|
open Core.Std
|
||
|
open Qputils
|
||
|
open Qptypes
|
||
|
|
||
|
let test_module () =
|
||
|
|
||
|
let pseudo_channel =
|
||
|
let b = "BFD" in
|
||
|
In_channel.create (Qpackage.root^"/data/pseudo/"^(String.lowercase b))
|
||
|
in
|
||
|
|
||
|
let pseudo =
|
||
|
Pseudo.read_element pseudo_channel (Element.of_string "Cu")
|
||
|
in
|
||
|
|
||
|
print_endline (Pseudo.to_string pseudo);
|
||
|
;;
|
||
|
|
||
|
test_module ();
|