chiark / gitweb /
895fa363ff1442443275ba9d803ff602da12eff0
[cgi-auth-flexible.git] / tests / srcdump-login.at
1 # -*- Tcl -*-
2
3 # This is part of CGI::Auth::Flexible, a perl CGI authentication module.
4 #
5 # Copyright 2012,2013,2015 Ian Jackson.
6 # Copyright 2012,2013,2015 Citrix.
7 #
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.
14 #
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.
19
20 set env(CAFTEST_NOSRCDUMP) 0
21
22 set timeout [expr {$timeout * 3}]
23
24 dospawn
25
26 send "B/source available\r"
27
28 submitform-expect "Viewing"
29
30 loginas alice sesame "Save file to"
31
32 srcdump-save-check