1# Copyright (C) 2019-2022 Free Software Foundation, Inc. 2# 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with GCC; see the file COPYING3. If not see 15# <http://www.gnu.org/licenses/>. 16 17# Immediately exit if we can't run target executables. 18if { ![isnative] } { 19 return 20} 21 22# Skip running test if phobos was not built on the target. 23if { ![is-effective-target d_runtime_has_std_library] } { 24 return 25} 26 27# Gather a list of all tests. 28set tests [lsort [filter_libphobos_unittests [find $srcdir/../src "*.d"]]] 29 30set version_flags "-fversion=StdUnittest" 31 32if { [is-effective-target linux_pre_2639] } { 33 lappend version_flags "-fversion=Linux_Pre_2639" 34} 35 36set libphobos_skip_tests { 37 # Skip curl tests if library is not available 38 { libphobos.phobos/etc/c/curl.d { ! libcurl_available } } 39 { libphobos.phobos/std/net/curl.d { ! libcurl_available } } 40} 41 42# Initialize dg. 43dg-init 44 45# Main loop. 46foreach test $tests { 47 set libphobos_test_name "$subdir/[dg-trim-dirname $srcdir/../src $test]" 48 dg-runtest $test "-static-libphobos" \ 49 "-fmain -fbuilding-libphobos-tests $version_flags" 50 set libphobos_test_name "" 51} 52 53# All done. 54dg-finish 55