1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
let use_version = ref (None, None)
type status =
| Passed
| Failed of string
| Disabled of string
let tests = Queue.create ()
let add_test ~title f =
Queue.add (title, f) tests
let failed = ref false
let launch_test (title, f) =
Printf.printf "Test '%s' ... %!" title;
try
match f () with
Passed -> Printf.printf "passed\n%!"
| Failed reason ->
Printf.printf "failed: %s\n%!" reason;
failed := true
| Disabled reason -> Printf.printf "disabled: %s\n%!" reason
with
Py.E (ty, value) ->
Printf.printf
"raised a Python exception: [%s] %s\n%!"
(Py.Object.to_string ty)
(Py.Object.to_string value);
failed := true
| e ->
Printf.printf "raised an exception: %s\n%!" (Printexc.to_string e);
failed := true
let rec launch_tests () =
match
try Some (Queue.pop tests)
with Queue.Empty -> None
with
None -> ()
| Some test ->
launch_test test;
launch_tests ()
let enable_only_on_unix f arg =
if Sys.os_type = "Unix" then
f arg
else
Disabled "only on Unix"
let show_environment_variable envvar =
try
Printf.eprintf "%s=%s\n" envvar (Sys.getenv envvar)
with Not_found ->
Printf.eprintf "%s not set\n" envvar
let main () =
let library_name, version, minor =
match Sys.argv with
[| _ |] -> None, None, None
| [| _; version |] ->
begin
match String.length version with
1 -> None, Some (int_of_string version), None
| (3 | 4) when version.[1] = '.' ->
None,
Some (int_of_string (String.sub version 0 1)),
Some
(int_of_string (String.sub version 2 (String.length version - 2)))
| _ -> Some version, None, None
end
| _ -> failwith "Argument should be a version number" in
use_version := (version, minor);
prerr_endline "Environment variables:";
show_environment_variable "PATH";
show_environment_variable "PYTHONHOME";
show_environment_variable "DYLD_LIBRARY_PATH";
show_environment_variable "DYLD_FALLBACK_LIBRARY_PATH";
prerr_endline "Initializing library...";
Py.initialize ?library_name ~verbose:true ?version ?minor ~debug_build:true ();
begin
match Py.get_library_filename () with
None -> prerr_endline "No library has been loaded.\n"
| Some filename -> Printf.eprintf "Library \"%s\" has been loaded.\n" filename
end;
Format.eprintf "platform: %s@." (Pywrappers.py_getplatform ());
Format.eprintf "build info: %s@." (Pywrappers.py_getbuildinfo ());
if Py.is_debug_build () then
prerr_endline "Debug build."
else
prerr_endline "Not a debug build.";
prerr_endline "Starting tests...";
launch_tests ();
if !failed then
exit 1
|
