| # Copyright (C) 2021-2022 Free Software Foundation, Inc. | |
| # | |
| # This file is part of the GNU Binutils. | |
| # | |
| # This program is free software; you can redistribute it and/or modify | |
| # it under the terms of the GNU General Public License as published by | |
| # the Free Software Foundation; either version 3 of the License, or | |
| # (at your option) any later version. | |
| # | |
| # This program is distributed in the hope that it will be useful, | |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| # GNU General Public License for more details. | |
| # | |
| # You should have received a copy of the GNU General Public License | |
| # along with this program; if not, write to the Free Software | |
| # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, | |
| # MA 02110-1301, USA. | |
| # | |
| if {[info exists env(LC_ALL)]} { | |
| set old_lc_all $env(LC_ALL) | |
| } | |
| set env(LC_ALL) "C" | |
| set ctf_test_list [lsort [glob -nocomplain $srcdir/$subdir/*.lk]] | |
| foreach ctf_test $ctf_test_list { | |
| verbose [file rootname $ctf_test] | |
| verbose running lookup test on $ctf_test | |
| run_lookup_test [file rootname $ctf_test] | |
| } | |
| if {[info exists old_lc_all]} { | |
| set env(LC_ALL) $old_lc_all | |
| } else { | |
| unset env(LC_ALL) | |
| } |