t/encoding.t

   1 # Copyright (C) 2012  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 => 41;
  18 use utf8; # tests contain UTF-8 characters and it matters
  19
  20 clear_pages();
  21
  22 # ASCII basics
  23
  24 $page = update_page('Aal', 'aal');
  25 test_page($page, '<h1><a .*>Aal</a></h1>', '<p>aal</p>');
  26 xpath_test($page, '//h1/a[text()="Aal"]', '//p[text()="aal"]');
  27
  28 $page = get_page('Aal');
  29 test_page($page, '<h1><a .*>Aal</a></h1>', '<p>aal</p>');
  30 xpath_test($page, '//h1/a[text()="Aal"]', '//p[text()="aal"]');
  31
  32 # non-ASCII
  33
  34 $page = update_page('Öl', 'öl');
  35 test_page($page, '<h1><a .*>Öl</a></h1>', '<p>öl</p>');
  36 xpath_test($page, '//h1/a[text()="Öl"]', '//p[text()="öl"]');
  37
  38 $page = get_page('Öl');
  39 test_page($page, '<h1><a .*>Öl</a></h1>', '<p>öl</p>');
  40 xpath_test($page, '//h1/a[text()="Öl"]', '//p[text()="öl"]');
  41
  42 $page = get_page('action=index raw=1');
  43 test_page($page, 'Aal', 'Öl');
  44
  45 test_page(get_page('Aal'), 'aal');
  46 test_page(get_page('Öl'), 'öl');
  47
  48 # rc
  49
  50 test_page(get_page('action=rc raw=1'),
  51           'title: Öl', 'description: öl');
  52
  53 # diff
  54
  55 update_page('Öl', 'Ähren');
  56 xpath_test(get_page('action=browse id=Öl diff=1'),
  57            '//div[@class="old"]/p/strong[@class="changes"][text()="öl"]',
  58            '//div[@class="new"]/p/strong[@class="changes"][text()="Ähren"]');
  59
  60 # search
  61
  62 # testing with non-ASCII is important on a Mac
  63
  64 # ASCII
  65 $page = get_page('search=aal raw=1');
  66 test_page($page, 'title: Search for: aal', 'title: Aal');
  67
  68 # matching page name does not involve grep working
  69 $page = get_page('search=öl raw=1');
  70 test_page($page, 'title: Search for: öl', 'title: Öl');
  71
  72 # this fails with grep on a Mac, thus testing if mac.pl
  73 # managed to switch of the use of grep
  74 test_page(get_page('search=ähren raw=1'),
  75           'title: Search for: ähren', 'title: Öl');
  76
  77 # the username keeps getting reported as changed
  78 test_page(get_page('action=browse id=Möglich username=Schr%C3%B6der'),
  79           'Set-Cookie: Wiki=username%251eSchr%C3%B6der',
  80           'username=Schröder');
  81
  82 # verify that non-ASCII parameters work as intended
  83 AppendStringToFile($ConfigFile, "use utf8;\n\$CookieParameters{ärger} = 1;\n");
  84 test_page(get_page('action=browse id=Test %C3%A4rger=hallo'),
  85           'Set-Cookie: Wiki=%C3%A4rger%251ehallo');
  86
  87 # create a test page to test the output in various ways
  88 test_page(update_page("Russian", "Русский Hello"),
  89           "Русский");
  90
  91 # checking for errors in the rss feed
  92 test_page(get_page("action=rss match=Russian full=1"),
  93           "Русский");
  94
  95 # with toc.pl, however, a problem: Русский is corrupted
  96 add_module('toc.pl');
  97 test_page(update_page("Russian", "Русский Hello again"),
  98           "Русский");
  99
 100 # and with inclusion, too:
 101 test_page(update_page("All", qq{<include "Russian">}),
 102           "Русский");
 103
 104 # and checking the cache
 105 test_page(get_page("All"), "Русский");
 106
 107 # and checking without the cache
 108 test_page(get_page("action=browse id=All cache=0"), "Русский");
 109
 110 # testing search
 111 test_page(get_page('search=Русский raw=1'),
 112           qw(Russian));
 113
 114 # testing page editing
 115 test_page(update_page("Русский", "друзья"),
 116           "друзья");