Merge branch 'move_traces_test' into 'master'

Move test from legacy testsuite

See merge request eng/toolchain/gnatcoll-core!39

Author: fedor-rybin

testsuite/tests/traces/env_var_substitution/.gnatdebug

@@ -0,0 +1,4 @@
+trace_pid > log_pid.$$
+trace_D > log_D.$D
+trace_T > log_T.$T
+trace_FOO > log_FOO.$FOO

testsuite/tests/traces/env_var_substitution/post_test.py

@@ -0,0 +1,18 @@
+#!/usr/bin/env python
+
+import glob
+
+
+pid = int(open('tracename.pid').readline())
+for pat in ['log_pid.%d' % pid,
+            'log_D.[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]',
+            'log_T.[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]' +
+            'T[0-9][0-9][0-9][0-9][0-9][0-9]',
+            'log_FOO.BAR']:
+    files = glob.glob(pat)
+    if len(files) != 1:
+        print("expected 1 file matching %s, found %d"
+              % (pat, len(files)))
+    fnam = files[0]
+    if "hello from %d" % pid not in open(fnam).readline():
+        print("Marker not found in %s" % fnam)

testsuite/tests/traces/env_var_substitution/pre_test.py

@@ -0,0 +1,18 @@
+#!/usr/bin/env python
+
+import os
+import glob
+
+
+def unlink_if_exists(files):
+    if isinstance(files, str):
+        files = [files]
+    for f in files:
+        try:
+            os.unlink(f)
+        except OSError:
+            pass
+
+map(os.unlink, glob.glob("log_*"))
+unlink_if_exists("tracename.pid")
+

testsuite/tests/traces/env_var_substitution/test.adb

@@ -0,0 +1,30 @@
+with GNATCOLL.Traces; use GNATCOLL.Traces;
+with Test_Assert;
+with Ada.Text_IO; use Ada.Text_IO;
+with Ada.Environment_Variables;
+
+function Test return Integer is
+   H_PID : constant Trace_Handle := Create ("trace_pid");
+   H_D   : constant Trace_Handle := Create ("trace_D");
+   H_T   : constant Trace_Handle := Create ("trace_T");
+   H_FOO : constant Trace_Handle := Create ("trace_FOO");
+   function getpid return Integer;
+   pragma Import (C, getpid, "getpid");
+
+   Pid : constant String := getpid'Img;
+   Pidfile : Ada.Text_IO.File_Type;
+begin
+   Create (Pidfile, Out_File, "tracename.pid");
+   Put_Line (Pidfile, Pid);
+   Close (Pidfile);
+
+   Ada.Environment_Variables.Set ("FOO", "BAR");
+
+   Parse_Config_File;
+   Trace (H_PID, "hello from" & Pid);
+   Trace (H_D, "hello from" & Pid);
+   Trace (H_T, "hello from" & Pid);
+   Trace (H_FOO, "hello from" & Pid);
+
+   return Test_Assert.Report;
+end Test;

testsuite/tests/traces/env_var_substitution/test.yaml

@@ -0,0 +1,4 @@
+title: GNATCOLL.Traces test
+data: [".gnatdebug"]
+control:
+    - [SKIP, "env.is_cross", "Test uses python which is not available on cross targets"]