You've already forked gnatcoll-bindings
mirror of
https://github.com/AdaCore/gnatcoll-bindings.git
synced 2026-02-12 12:59:11 -08:00
78fae807b1
* Adjust test layout * Add a test for T701-014 * Add documentation on existing tests Change-Id: Iafaf003ceec6af038c76bc6899b169865e3294be
18 lines
411 B
Ada
18 lines
411 B
Ada
with Ada.Environment_Variables;
|
|
with GNATCOLL.Python.Lifecycle; use GNATCOLL.Python.Lifecycle;
|
|
|
|
package body Test_Common is
|
|
|
|
package Env renames Ada.Environment_Variables;
|
|
|
|
function Python_Home return String is
|
|
begin
|
|
return Env.Value ("ADA_PYTHON_HOME");
|
|
end Python_Home;
|
|
|
|
procedure Set_Python_Home is
|
|
begin
|
|
Py_SetPythonHome (Python_Home);
|
|
end Set_Python_Home;
|
|
end Test_Common;
|