Home | History | Annotate | Line # | Download | only in libphobos.phobos 
      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.
     18 if { ![isnative] } {
     19     return
     20 }
     21 
     22 # Skip running test if phobos was not built on the target.
     23 if { ![is-effective-target d_runtime_has_std_library] } {
     24     return
     25 }
     26 
     27 # Gather a list of all tests.
     28 set tests [lsort [filter_libphobos_unittests [find $srcdir/../src "*.d"]]]
     29 
     30 set version_flags "-fversion=StdUnittest"
     31 
     32 if { [is-effective-target linux_pre_2639] } {
     33     lappend version_flags "-fversion=Linux_Pre_2639"
     34 }
     35 
     36 set 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.
     43 dg-init
     44 
     45 # Main loop.
     46 foreach 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.
     54 dg-finish
     55