From 940fef353e6551f721651db79cb135219191ad9e Mon Sep 17 00:00:00 2001
From: Björn Persson <Bjorn@Rombobjörn.se>
Date: Mon, 16 Dec 2013 17:27:40 +0100
Subject: the beginning of a testsuite

---
 testsuite/inputs/clean | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 testsuite/inputs/clean

(limited to 'testsuite/inputs/clean')

diff --git a/testsuite/inputs/clean b/testsuite/inputs/clean
new file mode 100644
index 0000000..ab322cc
--- /dev/null
+++ b/testsuite/inputs/clean
@@ -0,0 +1,7 @@
+cd "${srcdir}"
+if [ "${relative_builddir}" != . ] ; then
+   make configure builddir="${relative_builddir}"
+   cd "${relative_builddir}"
+fi
+make
+make clean
-- 
cgit v1.2.3


From 098259b44d7895e3bb9537edbbd633fd3e0205d5 Mon Sep 17 00:00:00 2001
From: Björn Persson <Bjorn@Rombobjörn.se>
Date: Tue, 17 Dec 2013 14:29:11 +0100
Subject: function library for the testcases

---
 testsuite/inputs/clean         |  7 ++-----
 testsuite/inputs/default_build |  7 ++-----
 testsuite/inputs/distclean     |  7 ++-----
 testsuite/library              | 25 +++++++++++++++++++++++++
 testsuite/run_tests            |  9 +++++++--
 5 files changed, 38 insertions(+), 17 deletions(-)
 create mode 100644 testsuite/library

(limited to 'testsuite/inputs/clean')

diff --git a/testsuite/inputs/clean b/testsuite/inputs/clean
index ab322cc..6defe0e 100644
--- a/testsuite/inputs/clean
+++ b/testsuite/inputs/clean
@@ -1,7 +1,4 @@
-cd "${srcdir}"
-if [ "${relative_builddir}" != . ] ; then
-   make configure builddir="${relative_builddir}"
-   cd "${relative_builddir}"
-fi
+. "${library}"
+common_setup
 make
 make clean
diff --git a/testsuite/inputs/default_build b/testsuite/inputs/default_build
index 7ff31f7..1706516 100644
--- a/testsuite/inputs/default_build
+++ b/testsuite/inputs/default_build
@@ -1,6 +1,3 @@
-cd "${srcdir}"
-if [ "${relative_builddir}" != . ] ; then
-   make configure builddir="${relative_builddir}"
-   cd "${relative_builddir}"
-fi
+. "${library}"
+common_setup
 make
diff --git a/testsuite/inputs/distclean b/testsuite/inputs/distclean
index 6e1119b..76524c3 100644
--- a/testsuite/inputs/distclean
+++ b/testsuite/inputs/distclean
@@ -1,7 +1,4 @@
-cd "${srcdir}"
-if [ "${relative_builddir}" != . ] ; then
-   make configure builddir="${relative_builddir}"
-   cd "${relative_builddir}"
-fi
+. "${library}"
+common_setup
 make
 make distclean
diff --git a/testsuite/library b/testsuite/library
new file mode 100644
index 0000000..1302625
--- /dev/null
+++ b/testsuite/library
@@ -0,0 +1,25 @@
+# function library for Comfignat's testcases
+# Copyright 2013 B. Persson, Bjorn@Rombobeorn.se
+#
+# This material is provided as is, with absolutely no warranty expressed
+# or implied. Any use is at your own risk.
+#
+# Permission is hereby granted to use or copy this testsuite
+# for any purpose, provided the above notices are retained on all copies.
+# Permission to modify the code and to distribute modified code is granted,
+# provided the above notices are retained, and a notice that the code was
+# modified is included with the above copyright notice.
+
+
+common_setup () {
+   # When the locations file specifies a separate build directory, initialize
+   # the build directory and go there. When the source directory is also the
+   # build directory, just go to that directory.
+   cd "${srcdir}"
+   if [ "${relative_builddir}" != . ] ; then
+      make configure builddir="${relative_builddir}"
+      cd "${relative_builddir}"
+   fi
+}
+
+
diff --git a/testsuite/run_tests b/testsuite/run_tests
index dfdfe75..c559814 100755
--- a/testsuite/run_tests
+++ b/testsuite/run_tests
@@ -6,7 +6,7 @@
 # This material is provided as is, with absolutely no warranty expressed
 # or implied. Any use is at your own risk.
 #
-# Permission is hereby granted to use or copy this program
+# Permission is hereby granted to use or copy this testsuite
 # for any purpose, provided the above notices are retained on all copies.
 # Permission to modify the code and to distribute modified code is granted,
 # provided the above notices are retained, and a notice that the code was
@@ -27,6 +27,12 @@ Comfignat_overriding_absolute_builddir=
 Comfignat_overriding_absolute_objdir=
 Comfignat_overriding_absolute_stagedir=
 
+# variables that the testcases need:
+export library srcdir builddir relative_builddir
+
+# function library for the testcases:
+library="${outer_srcdir}"/testsuite/library
+
 rm -Rf "${outer_builddir}"/testruns
 
 for source_directory in "${outer_srcdir}"/testsuite/sources/* ; do
@@ -40,7 +46,6 @@ for source_directory in "${outer_srcdir}"/testsuite/sources/* ; do
          mkdir -p "${srcdir}" "${builddir}"
          cp -RHp "${source_directory}"/* "${srcdir}"
          cp -p "${outer_srcdir}"/comfignat.* "${srcdir}"
-         export srcdir builddir relative_builddir
          if sh -e "${input_script}" >output 2>&1 ; then
             verdict=PASSED
             passed=$((passed + 1))
-- 
cgit v1.2.3


From 501f9888bff97d68adff2bfde0da7869c04d7e79 Mon Sep 17 00:00:00 2001
From: Björn Persson <Bjorn@Rombobjörn.se>
Date: Thu, 19 Dec 2013 01:02:34 +0100
Subject: some code to check files after tests

---
 testsuite/inputs/clean         |  1 +
 testsuite/inputs/default_build |  1 +
 testsuite/library              |  9 +++++++
 testsuite/run_tests            | 56 +++++++++++++++++++++++++++++++++++++++---
 4 files changed, 63 insertions(+), 4 deletions(-)

(limited to 'testsuite/inputs/clean')

diff --git a/testsuite/inputs/clean b/testsuite/inputs/clean
index 6defe0e..8f443d5 100644
--- a/testsuite/inputs/clean
+++ b/testsuite/inputs/clean
@@ -1,4 +1,5 @@
 . "${library}"
 common_setup
+expect_configuration
 make
 make clean
diff --git a/testsuite/inputs/default_build b/testsuite/inputs/default_build
index 1706516..cd85823 100644
--- a/testsuite/inputs/default_build
+++ b/testsuite/inputs/default_build
@@ -1,3 +1,4 @@
 . "${library}"
 common_setup
+expect_configuration
 make
diff --git a/testsuite/library b/testsuite/library
index 1302625..2d16973 100644
--- a/testsuite/library
+++ b/testsuite/library
@@ -17,9 +17,18 @@ common_setup () {
    # build directory, just go to that directory.
    cd "${srcdir}"
    if [ "${relative_builddir}" != . ] ; then
+      echo "${builddir}"/Makefile >>"${file_list}"
       make configure builddir="${relative_builddir}"
       cd "${relative_builddir}"
    fi
 }
 
 
+expect_configuration () {
+   # If "always" is passed, the testcase is always expected to leave a
+   # configuration file. If this is called without "always", a configuration
+   # file is expected only in a separate build directory.
+   if [ "$1" = always -o "${relative_builddir}" != . ] ; then
+      echo "${builddir}"/comfignat_configuration.mk >>"${file_list}"
+   fi
+}
diff --git a/testsuite/run_tests b/testsuite/run_tests
index c559814..57364b3 100755
--- a/testsuite/run_tests
+++ b/testsuite/run_tests
@@ -17,40 +17,88 @@
 
 set -e
 
+# Get the command line parameters.
 outer_srcdir="$1"
 outer_builddir="$2"
 
+# Initialize counters.
 passed=0
 failed=0
 
+# The testcases should use their own build directories, not the one of the Make
+# process that invoked the testsuite.
 Comfignat_overriding_absolute_builddir=
 Comfignat_overriding_absolute_objdir=
 Comfignat_overriding_absolute_stagedir=
 
 # variables that the testcases need:
-export library srcdir builddir relative_builddir
+export library            # absolute pathname of function library
+export file_list          # absolute pathname of list of expected files
+export srcdir             # testcase's source directory relative to testrundir
+export builddir           # testcase's build directory relative to testrundir
+export relative_builddir  # testcase's build directory relative to srcdir
 
 # function library for the testcases:
 library="${outer_srcdir}"/testsuite/library
 
+# Clean out any old test results.
 rm -Rf "${outer_builddir}"/testruns
 
 for source_directory in "${outer_srcdir}"/testsuite/sources/* ; do
    for location_file in "${outer_srcdir}"/testsuite/locations/* ; do
       for input_script in "${outer_srcdir}"/testsuite/inputs/* ; do
+
+         # Compose the name of the combined test case.
          test_name=$(basename "${source_directory}")+$(basename "${location_file}")+$(basename "${input_script}")
          testrundir="${outer_builddir}"/testruns/"${test_name}"
+         file_list="${testrundir}"/files.expected
          mkdir -p "${testrundir}"
          cd "${testrundir}"
+
+         # Get the source and build directory names.
          . "${location_file}"
-         mkdir -p "${srcdir}" "${builddir}"
+         mkdir -p "${srcdir}"
+         if [ "${relative_builddir}" != . ] ; then
+            echo "${builddir}" >>files.expected
+         fi
+
+         # Populate the source directory.
          cp -RHp "${source_directory}"/* "${srcdir}"
          cp -p "${outer_srcdir}"/comfignat.* "${srcdir}"
+         find "${srcdir}" >>files.expected
+
+         # Run the test.
          if sh -e "${input_script}" >output 2>&1 ; then
-            verdict=PASSED
-            passed=$((passed + 1))
+
+            # Check that the expected files and no others are present.
+            LC_COLLATE=C sort -o files.expected files.expected
+            if find "${srcdir}" "${builddir}" | LC_COLLATE=C sort | diff files.expected - >files.diff ; then
+
+               # Check that the source files haven't been mangled.
+               cd "${source_directory}"
+               find . -type f ! -exec cmp -s "{}" "${testrundir}/${srcdir}/{}" \; -print >> "${testrundir}"/changed_sources
+               cd "${outer_srcdir}"
+               for file in comfignat.* ; do
+                  if ! cmp -s ${file} "${testrundir}/${srcdir}/${file}" ; then
+                     echo ${file} >> "${testrundir}"/changed_sources
+                  fi
+               done
+               if [ -s "${testrundir}"/changed_sources ] ; then
+                  verdict=FAILED
+               else
+                  verdict=PASSED
+               fi
+            else
+               verdict=FAILED
+            fi
          else
+            # The test returned an error code.
             verdict=FAILED
+         fi
+
+         if [ ${verdict} = PASSED ] ; then
+            passed=$((passed + 1))
+         else
             failed=$((failed + 1))
          fi
          echo "${test_name}: ${verdict}"
-- 
cgit v1.2.3


From cfde013bbd87fb30ced9c2c9fc4f0d1122c9c569 Mon Sep 17 00:00:00 2001
From: Björn Persson <Bjorn@Rombobjörn.se>
Date: Thu, 19 Dec 2013 09:29:52 +0100
Subject: Made run_test load the function library for the testcases.

---
 testsuite/inputs/clean         |  1 -
 testsuite/inputs/default_build |  1 -
 testsuite/inputs/distclean     |  1 -
 testsuite/run_tests            | 12 +++++-------
 4 files changed, 5 insertions(+), 10 deletions(-)

(limited to 'testsuite/inputs/clean')

diff --git a/testsuite/inputs/clean b/testsuite/inputs/clean
index 8f443d5..a0d18f9 100644
--- a/testsuite/inputs/clean
+++ b/testsuite/inputs/clean
@@ -1,4 +1,3 @@
-. "${library}"
 common_setup
 expect_configuration
 make
diff --git a/testsuite/inputs/default_build b/testsuite/inputs/default_build
index cd85823..af01356 100644
--- a/testsuite/inputs/default_build
+++ b/testsuite/inputs/default_build
@@ -1,4 +1,3 @@
-. "${library}"
 common_setup
 expect_configuration
 make
diff --git a/testsuite/inputs/distclean b/testsuite/inputs/distclean
index 76524c3..6e5e472 100644
--- a/testsuite/inputs/distclean
+++ b/testsuite/inputs/distclean
@@ -1,4 +1,3 @@
-. "${library}"
 common_setup
 make
 make distclean
diff --git a/testsuite/run_tests b/testsuite/run_tests
index 57364b3..38d6562 100755
--- a/testsuite/run_tests
+++ b/testsuite/run_tests
@@ -32,15 +32,11 @@ Comfignat_overriding_absolute_objdir=
 Comfignat_overriding_absolute_stagedir=
 
 # variables that the testcases need:
-export library            # absolute pathname of function library
 export file_list          # absolute pathname of list of expected files
 export srcdir             # testcase's source directory relative to testrundir
 export builddir           # testcase's build directory relative to testrundir
 export relative_builddir  # testcase's build directory relative to srcdir
 
-# function library for the testcases:
-library="${outer_srcdir}"/testsuite/library
-
 # Clean out any old test results.
 rm -Rf "${outer_builddir}"/testruns
 
@@ -48,7 +44,7 @@ for source_directory in "${outer_srcdir}"/testsuite/sources/* ; do
    for location_file in "${outer_srcdir}"/testsuite/locations/* ; do
       for input_script in "${outer_srcdir}"/testsuite/inputs/* ; do
 
-         # Compose the name of the combined test case.
+         # Compose the name of the combined testcase.
          test_name=$(basename "${source_directory}")+$(basename "${location_file}")+$(basename "${input_script}")
          testrundir="${outer_builddir}"/testruns/"${test_name}"
          file_list="${testrundir}"/files.expected
@@ -67,8 +63,10 @@ for source_directory in "${outer_srcdir}"/testsuite/sources/* ; do
          cp -p "${outer_srcdir}"/comfignat.* "${srcdir}"
          find "${srcdir}" >>files.expected
 
-         # Run the test.
-         if sh -e "${input_script}" >output 2>&1 ; then
+         # Run the testcase in a child process.
+         # The child process first loads the function library and then runs the
+         # input script.
+         if sh -e -c ". ${outer_srcdir}/testsuite/library; . ${input_script}" >output 2>&1 ; then
 
             # Check that the expected files and no others are present.
             LC_COLLATE=C sort -o files.expected files.expected
-- 
cgit v1.2.3


From 5d900ea8ccb660d4d3bb9aaa08464fb9aae081f9 Mon Sep 17 00:00:00 2001
From: Björn Persson <Bjorn@Rombobjörn.se>
Date: Fri, 31 Jan 2014 08:32:17 +0100
Subject: Check that the right generated files exist.

---
 testsuite/inputs/clean                            |  2 +-
 testsuite/inputs/default_build                    |  3 +-
 testsuite/library                                 | 60 ++++++++++++++++++-----
 testsuite/run_tests                               | 12 +++--
 testsuite/sources/empty/generated_files           |  0
 testsuite/sources/library_1/Makefile              | 20 ++++++++
 testsuite/sources/library_1/build_testcase.gpr.gp | 34 +++++++++++++
 testsuite/sources/library_1/generated_files       |  7 +++
 testsuite/sources/library_1/testcase.adb          | 24 +++++++++
 testsuite/sources/library_1/testcase.ads          | 18 +++++++
 testsuite/sources/library_1/testcase.gpr.gp       | 27 ++++++++++
 11 files changed, 191 insertions(+), 16 deletions(-)
 create mode 100644 testsuite/sources/empty/generated_files
 create mode 100644 testsuite/sources/library_1/Makefile
 create mode 100644 testsuite/sources/library_1/build_testcase.gpr.gp
 create mode 100644 testsuite/sources/library_1/generated_files
 create mode 100644 testsuite/sources/library_1/testcase.adb
 create mode 100644 testsuite/sources/library_1/testcase.ads
 create mode 100644 testsuite/sources/library_1/testcase.gpr.gp

(limited to 'testsuite/inputs/clean')

diff --git a/testsuite/inputs/clean b/testsuite/inputs/clean
index a0d18f9..2b37fec 100644
--- a/testsuite/inputs/clean
+++ b/testsuite/inputs/clean
@@ -1,4 +1,4 @@
-common_setup
 expect_configuration
+common_setup
 make
 make clean
diff --git a/testsuite/inputs/default_build b/testsuite/inputs/default_build
index af01356..635b842 100644
--- a/testsuite/inputs/default_build
+++ b/testsuite/inputs/default_build
@@ -1,3 +1,4 @@
-common_setup
 expect_configuration
+expect_generated_files
+common_setup
 make
diff --git a/testsuite/library b/testsuite/library
index 2d16973..c665c71 100644
--- a/testsuite/library
+++ b/testsuite/library
@@ -1,5 +1,5 @@
 # function library for Comfignat's testcases
-# Copyright 2013 B. Persson, Bjorn@Rombobeorn.se
+# Copyright 2013 - 2014 B. Persson, Bjorn@Rombobeorn.se
 #
 # This material is provided as is, with absolutely no warranty expressed
 # or implied. Any use is at your own risk.
@@ -11,6 +11,54 @@
 # modified is included with the above copyright notice.
 
 
+# These directory variables mustn't be conveyed from Comfignat, because then
+# the testsuite would rely on the same thing that it's supposed to test.
+prefix=/usr/local
+exec_prefix=${prefix}
+datarootdir=${prefix}/share
+bindir=${exec_prefix}/bin
+libexecdir=${exec_prefix}/libexec
+includedir=${prefix}/include
+libdir=${exec_prefix}/lib
+alidir=${libdir}
+gprdir=${datarootdir}/gpr
+stagedir=stage
+stage_bindir=${stagedir}${bindir}
+stage_libexecdir=${stagedir}${libexecdir}
+stage_includedir=${stagedir}${includedir}
+stage_libdir=${stagedir}${libdir}
+stage_alidir=${stagedir}${alidir}
+stage_gprdir=${stagedir}${gprdir}
+
+
+expect_configuration () {
+   # If "always" is passed, the testcase is always expected to leave a
+   # configuration file. If this is called without "always", a configuration
+   # file is expected only in a separate build directory.
+   if [ "$1" = always -o "${relative_builddir}" != . ] ; then
+      echo "${builddir}"/comfignat_configuration.mk >>"${file_list}"
+   fi
+}
+
+
+expect_generated_files () {
+   # The testcase is expected to generate files which are listed in the file
+   # generated_files. The list is whitespace-separated and may contain shell
+   # variable references.
+   for file in $(cat "${srcdir}"/generated_files) ; do
+      # Expand variables in the string to get the pathname.
+      eval file="${file}"
+      # Write the pathname and its parent directories to the file list.
+      # Chop off pathname components until only "." remains, but also avoid
+      # looping forever if the final residue turns out to be "/" or "//".
+      while [ "${file}" != . -a "${file}" != / -a "${file}" != // ] ; do
+         echo "${builddir}/${file}" >>"${file_list}"
+         file=$(dirname "${file}")
+      done
+   done
+}
+
+
 common_setup () {
    # When the locations file specifies a separate build directory, initialize
    # the build directory and go there. When the source directory is also the
@@ -22,13 +70,3 @@ common_setup () {
       cd "${relative_builddir}"
    fi
 }
-
-
-expect_configuration () {
-   # If "always" is passed, the testcase is always expected to leave a
-   # configuration file. If this is called without "always", a configuration
-   # file is expected only in a separate build directory.
-   if [ "$1" = always -o "${relative_builddir}" != . ] ; then
-      echo "${builddir}"/comfignat_configuration.mk >>"${file_list}"
-   fi
-}
diff --git a/testsuite/run_tests b/testsuite/run_tests
index 35fcc23..f440f8d 100755
--- a/testsuite/run_tests
+++ b/testsuite/run_tests
@@ -1,7 +1,7 @@
 #!/bin/sh
 
 # Comfignat's testsuite
-# Copyright 2013 B. Persson, Bjorn@Rombobeorn.se
+# Copyright 2013 - 2014 B. Persson, Bjorn@Rombobeorn.se
 #
 # This material is provided as is, with absolutely no warranty expressed
 # or implied. Any use is at your own risk.
@@ -90,8 +90,14 @@ for source_directory in "${outer_srcdir}"/testsuite/sources/* ; do
          if sh -e -c ". ${outer_srcdir}/testsuite/library; . ${input_script}" >output 2>&1 ; then
 
             # Check that the expected files and no others are present.
-            LC_COLLATE=C sort -o files.expected files.expected
-            if find "${srcdir}" "${builddir}" | LC_COLLATE=C sort | diff files.expected - >files.diff ; then
+            # Sort the list of expected files and remove duplicates.
+            LC_COLLATE=C sort -u -o files.expected files.expected
+            # List all files in the build directory except for the directory
+            # where intermediate files are suposed to be. List the files in the
+            # source directory separately if the directories are separate. Sort
+            # the combined list the same way as the list of expected files is
+            # sorted. Then compare the lists.
+            if ( find "${builddir}" | grep -v ^"${builddir}"/obj ; test "${relative_builddir}" != . && find "${srcdir}" ) | LC_COLLATE=C sort | diff files.expected - >files.diff ; then
 
                # Check that the source files haven't been mangled.
                cd "${source_directory}"
diff --git a/testsuite/sources/empty/generated_files b/testsuite/sources/empty/generated_files
new file mode 100644
index 0000000..e69de29
diff --git a/testsuite/sources/library_1/Makefile b/testsuite/sources/library_1/Makefile
new file mode 100644
index 0000000..f0c587b
--- /dev/null
+++ b/testsuite/sources/library_1/Makefile
@@ -0,0 +1,20 @@
+# part of Comfignat's testsuite
+# Copyright 2014 B. Persson, Bjorn@Rombobeorn.se
+#
+# This material is provided as is, with absolutely no warranty expressed
+# or implied. Any use is at your own risk.
+#
+# Permission is hereby granted to use or copy this testsuite
+# for any purpose, provided the above notices are retained on all copies.
+# Permission to modify the code and to distribute modified code is granted,
+# provided the above notices are retained, and a notice that the code was
+# modified is included with the above copyright notice.
+
+
+include comfignat.mk
+
+options = frobnicate
+frobnicate = false
+
+build_GPRs = build_testcase.gpr
+usage_GPRs = testcase.gpr
diff --git a/testsuite/sources/library_1/build_testcase.gpr.gp b/testsuite/sources/library_1/build_testcase.gpr.gp
new file mode 100644
index 0000000..abfa866
--- /dev/null
+++ b/testsuite/sources/library_1/build_testcase.gpr.gp
@@ -0,0 +1,34 @@
+-- Comfignat's testsuite
+-- Copyright 2014 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This material is provided as is, with absolutely no warranty expressed
+-- or implied. Any use is at your own risk.
+--
+-- Permission is hereby granted to use or copy this testsuite
+-- for any purpose, provided the above notices are retained on all copies.
+-- Permission to modify the code and to distribute modified code is granted,
+-- provided the above notices are retained, and a notice that the code was
+-- modified is included with the above copyright notice.
+
+
+with "comfignat.gpr";
+
+library project Build_Testcase is
+
+   #if Frobnicate then
+      Frob_Flag := "-frob";
+   #else
+      Frob_Flag := "";
+   #end if;
+
+   for Library_Name      use "testcase";
+   for Library_Kind      use "dynamic";
+   for Library_Version   use "libtestcase" & Frob_Flag & ".so.1";
+   for Library_Interface use ("Testcase");
+   for Source_Dirs       use ($Srcdir);
+   for Object_Dir        use Comfignat.Objdir;
+   for Library_Src_Dir   use Comfignat.Stage_Includedir & "/testcase";
+   for Library_Dir       use Comfignat.Stage_Libdir;
+   for Library_ALI_Dir   use Comfignat.Stage_Alidir & "/testcase";
+
+end Build_Testcase;
diff --git a/testsuite/sources/library_1/generated_files b/testsuite/sources/library_1/generated_files
new file mode 100644
index 0000000..2acba75
--- /dev/null
+++ b/testsuite/sources/library_1/generated_files
@@ -0,0 +1,7 @@
+build_testcase.gpr
+comfignat.gpr
+${stage_includedir}/testcase/testcase.ads
+${stage_libdir}/libtestcase.so.1
+${stage_libdir}/libtestcase.so
+${stage_alidir}/testcase/testcase.ali
+${stage_gprdir}/testcase.gpr
diff --git a/testsuite/sources/library_1/testcase.adb b/testsuite/sources/library_1/testcase.adb
new file mode 100644
index 0000000..df96cc3
--- /dev/null
+++ b/testsuite/sources/library_1/testcase.adb
@@ -0,0 +1,24 @@
+-- part of Comfignat's testsuite
+-- Copyright 2014 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This material is provided as is, with absolutely no warranty expressed
+-- or implied. Any use is at your own risk.
+--
+-- Permission is hereby granted to use or copy this testsuite
+-- for any purpose, provided the above notices are retained on all copies.
+-- Permission to modify the code and to distribute modified code is granted,
+-- provided the above notices are retained, and a notice that the code was
+-- modified is included with the above copyright notice.
+
+
+with Ada.Calendar; use Ada.Calendar;
+with Ada.Text_IO; use Ada.Text_IO;
+
+package body Testcase is
+
+   function Year return String is
+   begin
+      return Year(Clock)'Img;
+   end Year;
+
+end Testcase;
diff --git a/testsuite/sources/library_1/testcase.ads b/testsuite/sources/library_1/testcase.ads
new file mode 100644
index 0000000..d2646b8
--- /dev/null
+++ b/testsuite/sources/library_1/testcase.ads
@@ -0,0 +1,18 @@
+-- part of Comfignat's testsuite
+-- Copyright 2014 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This material is provided as is, with absolutely no warranty expressed
+-- or implied. Any use is at your own risk.
+--
+-- Permission is hereby granted to use or copy this testsuite
+-- for any purpose, provided the above notices are retained on all copies.
+-- Permission to modify the code and to distribute modified code is granted,
+-- provided the above notices are retained, and a notice that the code was
+-- modified is included with the above copyright notice.
+
+
+package Testcase is
+
+   function Year return String;
+
+end Testcase;
diff --git a/testsuite/sources/library_1/testcase.gpr.gp b/testsuite/sources/library_1/testcase.gpr.gp
new file mode 100644
index 0000000..de4645c
--- /dev/null
+++ b/testsuite/sources/library_1/testcase.gpr.gp
@@ -0,0 +1,27 @@
+-- part of Comfignat's testsuite
+-- Copyright 2014 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This material is provided as is, with absolutely no warranty expressed
+-- or implied. Any use is at your own risk.
+--
+-- Permission is hereby granted to use or copy this testsuite
+-- for any purpose, provided the above notices are retained on all copies.
+-- Permission to modify the code and to distribute modified code is granted,
+-- provided the above notices are retained, and a notice that the code was
+-- modified is included with the above copyright notice.
+
+
+#if Directories_GPR'Defined then
+with $Directories_GPR;
+#end if;
+
+library project Testcase is
+
+   for Library_Name     use "testcase";
+   for Library_Kind     use "dynamic";
+   for Source_Dirs      use ($Includedir & "/testcase");
+   for Library_Dir      use $Libdir;
+   for Library_ALI_Dir  use $Alidir & "/testcase";
+   for Externally_Built use "true";
+
+end Testcase;
-- 
cgit v1.2.3