1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/perl
#
# $Id: $
# Copyright (C) 2002 Alastair McKinstry <mckinstry@computer.org>
# This file is distributed under the terms of the GPL.
use Debian::DebianTest;
use Ispell:IspellTest;
sub capitalisation
#
# The following should be marked correct
#
@rules_correct = {
"molaim",
"molann t",
"molaimid",
"mhol m"
"mholamar"
"moladh")
;;; #The following should be caught as erroneous
(ispell-ga-fail
"molamar"
"fios"
"bhfios"
"bpointe"
"phointe"
"pointe ")
baile
Bhaile
bhaile
bhbaile
mBaile
Mbaile
ire
hire
Hire
Hire
runtest("Correct rules", sub { ispell_mark_correct(@rules_correct) } );
# Local variables:
# mode: perl
# perl-indent-level: 4
# End:
|
