t/ban-quick-editors.t

   1 # Copyright (C) 2013  Alex Schroeder <alex@gnu.org>
   2 #
   3 # This program is free software: you can redistribute it and/or modify it under
   4 # the terms of the GNU General Public License as published by the Free Software
   5 # Foundation, either version 3 of the License, or (at your option) any later
   6 # version.
   7 #
   8 # This program is distributed in the hope that it will be useful, but WITHOUT
   9 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  10 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
  11 #
  12 # You should have received a copy of the GNU General Public License along with
  13 # this program. If not, see <http://www.gnu.org/licenses/>.
  14
  15 require 't/test.pl';
  16 package OddMuse;
  17 use Test::More tests => 3;
  18
  19 clear_pages();
  20
  21 # switch it back on again
  22 AppendStringToFile($ConfigFile, "\$SurgeProtection = 1;\n");
  23 # make sure the visitors.log is filled
  24 $ENV{'REMOTE_ADDR'} = '127.0.0.1';
  25
  26 add_module('ban-quick-editors.pl');
  27
  28 get_page('Test');
  29 test_page(update_page('Test', 'cannot edit'),
  30           'This page is empty');
  31 test_page($redirect, 'Editing not allowed');
  32 sleep 5;
  33 test_page(update_page('Test', 'edit succeeded'),
  34           'edit succeeded');