g13: Switch over to common/exectool.c.
[gnupg.git] / tests / pkits / import-all-certs
1 #!/bin/sh
2 # import-all-certs - GnuPG import test                     -*- sh -*-
3 # Copyright (C) 2004, 2008 Free Software Foundation, Inc. 
4 #
5 # This file is part of GnuPG.
6
7 # GnuPG is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
11
12 # GnuPG is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 # GNU General Public License for more details.
16
17 # You should have received a copy of the GNU General Public License
18 # along with this program; if not, see <http://www.gnu.org/licenses/>.
19
20 . ${srcdir:-.}/common.sh || exit 2
21
22 section=6
23 description="GnuPG Import"
24 info "Running $description tests"
25
26 while read flag dummy section name; do 
27     case $flag in \#*) continue ;; esac
28     [ -z "$(echo $flag)" ] && continue;
29
30     description="import $name"
31     if ${GPGSM} -q --import certs/$name ; then
32         if [ "$flag" = 'p' ]; then
33             pass "importing certificate \`$name' succeeded"
34         elif [ "$flag" = 'f' ]; then
35             fail "importing certificate \`$name' succeeded"
36         elif [ "$flag" = '?' ]; then
37             unresolved "importing certificate \`$name' succeeded"
38         elif [ "$flag" = 'u' ]; then
39             skip "importing certificate \`$name' succeeded"
40         else
41             info "importing certificate \`$name' succeeded - (flag=$flag)"
42         fi
43     else
44         if [ "$flag" = 'p' ]; then
45             fail "importing certificate \`$name' failed"
46         elif [ "$flag" = 'f' ]; then
47             pass "importing certificate \`$name' failed"
48         elif [ "$flag" = '?' ]; then
49             unresolved "importing certificate \`$name' failed"
50         elif [ "$flag" = 'u' ]; then
51             skip "importing certificate \`$name' failed"
52         else
53             info "importing certificate \`$name' failed - (flag=$flag)"
54         fi
55     fi
56 done < $srcdir/import-all-certs.data
57
58 final_result