git.annexia.org / virt-df.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Merge.
[virt-df.git] / lib / test_int63.ml
1 open Printf
2 open Int63.Operators
3
4 let () =
5   let a = ~^3 *^ ~^500 in
6   let b = a <^< 3 in
7   printf "result = %s\n" (Int63.to_string b)
[OBSOLETE] Old version of virt-df, use libguestfs instead.