Mercurial > gnulib
annotate tests/unigbrk/test-u8-grapheme-next.c @ 40057:b06060465f09
maint: Run 'make update-copyright'
author | Paul Eggert <eggert@cs.ucla.edu> |
---|---|
date | Tue, 01 Jan 2019 00:25:11 +0100 |
parents | 10eb9086bea0 |
children |
rev | line source |
---|---|
14076
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
1 /* Next grapheme cluster length test. |
40057
b06060465f09
maint: Run 'make update-copyright'
Paul Eggert <eggert@cs.ucla.edu>
parents:
19484
diff
changeset
|
2 Copyright (C) 2010-2019 Free Software Foundation, Inc. |
14076
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
3 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
4 This program is free software: you can redistribute it and/or modify it |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
5 under the terms of the GNU Lesser General Public License as published |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
6 by the Free Software Foundation; either version 3 of the License, or |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
7 (at your option) any later version. |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
8 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
9 This program is distributed in the hope that it will be useful, |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
10 but WITHOUT ANY WARRANTY; without even the implied warranty of |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
12 Lesser General Public License for more details. |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
13 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
14 You should have received a copy of the GNU Lesser General Public License |
19190 | 15 along with this program. If not, see <https://www.gnu.org/licenses/>. */ |
14076
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
16 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
17 /* Written by Ben Pfaff <blp@cs.stanford.edu>, 2010. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
18 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
19 #include <config.h> |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
20 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
21 /* Specification. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
22 #include <unigbrk.h> |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
23 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
24 #include <stdio.h> |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
25 #include <stdlib.h> |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
26 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
27 #include "macros.h" |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
28 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
29 static void |
14087
5400154288e5
unigbrk: Avoid gcc warnings.
Bruno Haible <bruno@clisp.org>
parents:
14076
diff
changeset
|
30 test_u8_grapheme_next (const char *input, size_t n, size_t len) |
14076
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
31 { |
14087
5400154288e5
unigbrk: Avoid gcc warnings.
Bruno Haible <bruno@clisp.org>
parents:
14076
diff
changeset
|
32 const uint8_t *s = (const uint8_t *) input; |
14076
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
33 const uint8_t *next = u8_grapheme_next (s, s + n); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
34 if (next != s + len) |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
35 { |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
36 size_t i; |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
37 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
38 if (next == NULL) |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
39 fputs ("u8_grapheme_next returned NULL", stderr); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
40 else |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
41 fprintf (stderr, "u8_grapheme_next skipped %zu bytes", next - s); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
42 fprintf (stderr, ", expected %zu:\n", len); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
43 for (i = 0; i < n; i++) |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
44 fprintf (stderr, " %02x", s[i]); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
45 putc ('\n', stderr); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
46 abort (); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
47 } |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
48 } |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
49 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
50 int |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
51 main (void) |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
52 { |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
53 static const uint8_t s[] = "abc"; |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
54 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
55 /* Empty string. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
56 ASSERT (u8_grapheme_next (NULL, NULL) == NULL); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
57 ASSERT (u8_grapheme_next (s, s) == NULL); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
58 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
59 /* Standalone 1-unit graphemes. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
60 test_u8_grapheme_next ("a", 1, 1); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
61 test_u8_grapheme_next ("ab", 2, 1); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
62 test_u8_grapheme_next ("abc", 3, 1); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
63 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
64 /* Multi-unit, single code point graphemes. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
65 #define HIRAGANA_A "\343\201\202" /* あ: Hiragana letter 'a'. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
66 test_u8_grapheme_next (HIRAGANA_A, 3, 3); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
67 test_u8_grapheme_next (HIRAGANA_A"x", 4, 3); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
68 test_u8_grapheme_next (HIRAGANA_A HIRAGANA_A, 6, 3); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
69 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
70 /* Combining accents. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
71 #define GRAVE "\314\200" /* Combining grave accent. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
72 #define ACUTE "\314\201" /* Combining acute accent. */ |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
73 test_u8_grapheme_next ("e"ACUTE, 3, 3); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
74 test_u8_grapheme_next ("e"ACUTE GRAVE, 5, 5); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
75 test_u8_grapheme_next ("e"ACUTE"x", 4, 3); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
76 test_u8_grapheme_next ("e"ACUTE "e"ACUTE, 6, 3); |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
77 |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
78 return 0; |
bf75753bb6d8
unigbrk: New modules for grapheme clusters.
Ben Pfaff <blp@cs.stanford.edu>
parents:
diff
changeset
|
79 } |