2004-08-17 17:26:22 +02:00
|
|
|
#!/bin/sh
|
2008-02-19 11:33:35 +01:00
|
|
|
# import-all-certs - GnuPG import test -*- sh -*-
|
|
|
|
# Copyright (C) 2004, 2008 Free Software Foundation, Inc.
|
2004-08-17 17:26:22 +02:00
|
|
|
#
|
|
|
|
# This file is part of GnuPG.
|
|
|
|
#
|
|
|
|
# GnuPG is free software; you can redistribute it and/or modify
|
|
|
|
# it under the terms of the GNU General Public License as published by
|
2008-02-19 11:33:35 +01:00
|
|
|
# the Free Software Foundation; either version 3 of the License, or
|
2004-08-17 17:26:22 +02:00
|
|
|
# (at your option) any later version.
|
|
|
|
#
|
|
|
|
# GnuPG 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
|
2008-02-19 11:33:35 +01:00
|
|
|
# along with this program; if not, see <http://www.gnu.org/licenses/>.
|
2004-08-17 17:26:22 +02:00
|
|
|
|
|
|
|
. ${srcdir:-.}/common.sh || exit 2
|
|
|
|
|
2008-02-19 11:33:35 +01:00
|
|
|
section=6
|
|
|
|
description="GnuPG Import"
|
|
|
|
info "Running $description tests"
|
2004-08-17 17:26:22 +02:00
|
|
|
|
2008-02-19 11:33:35 +01:00
|
|
|
while read flag dummy section name; do
|
|
|
|
case $flag in \#*) continue ;; esac
|
|
|
|
[ -z "$(echo $flag)" ] && continue;
|
|
|
|
|
|
|
|
description="import $name"
|
2004-08-17 17:26:22 +02:00
|
|
|
if ${GPGSM} -q --import certs/$name ; then
|
|
|
|
if [ "$flag" = 'p' ]; then
|
|
|
|
pass "importing certificate \`$name' succeeded"
|
|
|
|
elif [ "$flag" = 'f' ]; then
|
|
|
|
fail "importing certificate \`$name' succeeded"
|
|
|
|
elif [ "$flag" = '?' ]; then
|
|
|
|
unresolved "importing certificate \`$name' succeeded"
|
|
|
|
elif [ "$flag" = 'u' ]; then
|
2008-02-22 16:47:18 +01:00
|
|
|
skip "importing certificate \`$name' succeeded"
|
2004-08-17 17:26:22 +02:00
|
|
|
else
|
|
|
|
info "importing certificate \`$name' succeeded - (flag=$flag)"
|
|
|
|
fi
|
|
|
|
else
|
|
|
|
if [ "$flag" = 'p' ]; then
|
|
|
|
fail "importing certificate \`$name' failed"
|
|
|
|
elif [ "$flag" = 'f' ]; then
|
|
|
|
pass "importing certificate \`$name' failed"
|
|
|
|
elif [ "$flag" = '?' ]; then
|
|
|
|
unresolved "importing certificate \`$name' failed"
|
|
|
|
elif [ "$flag" = 'u' ]; then
|
2008-02-22 16:47:18 +01:00
|
|
|
skip "importing certificate \`$name' failed"
|
2004-08-17 17:26:22 +02:00
|
|
|
else
|
|
|
|
info "importing certificate \`$name' failed - (flag=$flag)"
|
|
|
|
fi
|
|
|
|
fi
|
|
|
|
done < $srcdir/import-all-certs.data
|
|
|
|
|
|
|
|
final_result
|