1#!/usr/bin/env gpgscm
2
3;; Copyright (C) 2017 Damien Goutte-Gattat
4;;
5;; This file is part of GnuPG.
6;;
7;;
8;; GnuPG is free software; you can redistribute it and/or modify
9;; it under the terms of the GNU General Public License as published by
10;; the Free Software Foundation; either version 3 of the License, or
11;; (at your option) any later version.
12;;
13;; GnuPG is distributed in the hope that it will be useful,
14;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16;; GNU General Public License for more details.
17;;
18;; You should have received a copy of the GNU General Public License
19;; along with this program; if not, see <http://www.gnu.org/licenses/>.
20
21(load (in-srcdir "tests" "openpgp" "trust-pgp" "common.scm"))
22
23(display "Checking max depth of trust signature chains...\n")
24
25(initscenario "scenario3")
26
27(checktrust BOBBY "f")	;; Tsigned by Alice (level=2, trust=120).
28(checktrust CAROL "f")	;; Tsigned by Bobby (level=2, trust=120).
29(checktrust DAVID "f")	;; Tsigned by Carol (level=2, trust=120).
30(checktrust FRANK "q")	;; The tsig from Carol does not confer
31			;; ownertrust to David's key (too deep).
32