tests/srcdump-loginback.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_SRCDUMP_NEEDLOGIN) 1
  21 srcdump-prep
  22
  23 dospawn
  24
  25 loginas alice
  26
  27 send "B/source available\r\r"
  28
  29 etxt "Save file to"
  30
  31 srcdump-save-check