3 # This is part of CGI::Auth::Flexible, a perl CGI authentication module.
5 # Copyright 2012,2013,2015 Ian Jackson.
6 # Copyright 2012,2013,2015 Citrix.
8 # This program is free software: you can redistribute it and/or modify
9 # it under the terms of the GNU Affero 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, with the "CAF Login Exception"
12 # as published by Ian Jackson (version 1, or at your option any
13 # later version) as an Additional Permission.
15 # This program is distributed in the hope that it will be useful,
16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 # GNU Affero General Public License for more details.
20 set env(CAFTEST_NOSRCDUMP) 0
22 set timeout [expr {$timeout * 3}]
26 send "B/source available\r"
28 submitform-expect "Viewing"
30 loginas alice sesame "Save file to"
32 set outertar $tt/t-srcdump.tgz
33 set sd $tt/t-srcdump.d
35 send "\x15$outertar\r"
36 etxt "Download complete"
40 set files [exec tar -C $sd -zvxf - < $outertar]
51 if {[file exists .git]} {
52 set got(.git/objects/) 0
57 licence.data - manifest.txt {
61 foreach g [exec tar -C $sd -tf - < $sd/$f] {
63 cgi-auth-flexible.pm - .gitignore - .git/objects/ {
67 error "file $g inside $f !"
72 error "file $g inside $f outside .git !"
80 foreach g [array names got] {
82 error "file $g missing"