1 /*
2 * Copyright (C) 2005, 2006, 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 3 of the License, or
7 * (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 * You should have received a copy of the GNU General Public License
14 * along with this program; if not, write to the Free Software
15 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
16 *
17 */
18
19 /*
20 * Key events are provided by the testrunner or manual input. Neither is perfect.
21 */
22
23 #include <stdlib.h>
24 #include <stdio.h>
25 #include <ming.h>
26
27 #include "ming_utils.h"
28
29 #define OUTPUT_VERSION 6
30 #define OUTPUT_FILENAME "Keycodes_test.swf"
31
32
33
34 int
main(int argc,char ** argv)35 main(int argc, char** argv)
36 {
37 SWFMovie mo;
38 SWFMovieClip dejagnuclip;
39 SWFDisplayItem it;
40
41 const char *srcdir=".";
42 if ( argc>1 )
43 srcdir=argv[1];
44 else
45 {
46 fprintf(stderr, "Usage: %s <mediadir>\n", argv[0]);
47 return 1;
48 }
49
50 Ming_init();
51 mo = newSWFMovieWithVersion(OUTPUT_VERSION);
52 SWFMovie_setDimension(mo, 800, 600);
53
54 add_actions(mo,
55 "var keys = array();"
56 "var keynames = array();"
57
58 /* Basic test for keys (Good for testrunner) */
59 "keys[0] = array (39, 65, 66);"
60 "keynames[0] = ('right arrow, A, B');"
61
62 /* More basic tests (Good for testrunner) */
63 "keys[1] = array (13, 17, 112);"
64 "keynames[1] = ('Ctrl, Enter, F1');"
65
66 /* Tests for extended ascii. On many keyboards, some keys should result
67 in multiple keycodes being marked as down, but we can't tell which keys
68 or keycodes without knowing the keyboard layout. My Essszet (ß) should have
69 codes 223 ('ß'), 220 ('\'), and 191 ('?').
70 So the test is good for checking isDown for the main DisplayObjects, but the passes
71 for !isDown can be bogus, depending on keyboard.
72 */
73 "keys[2] = array (223, 228);"
74 "keynames[2] = ('Extended ascii: (no shift) a-Umlaut, Essszet\n"
75 "(Not a reliable test, because the keycodes supposed to be down are "
76 "keymap dependent.');"
77
78 /* More basic tests. (Good for testrunner)*/
79 "keys[3] = array (16, 34, 222);"
80 "keynames[3] = ('shift, page-down, doublequote');"
81
82 /* Test indifference to shift for alphabetic DisplayObjects ... */
83 "keys[4] = array (16, 65, 70);"
84 "keynames[4] = ('keypress order: press shift, A, F');"
85
86 /* ... Releasing shift before the DisplayObject keys should still remove A
87 from the isDown array. Good for testrunner. */
88 "keys[5] = array (70, 74);"
89 "keynames[5] = ('key order: release shift, release A, press j');"
90
91 /* Test indifference to shift for non-alphabetic DisplayObjects ... */
92 "keys[6] = array (16, 49, 222);"
93 "keynames[6] = ('keypress order: shift, !, doublequote');"
94
95 /* ... Releasing shift before the DisplayObject keys should remove ! and " from the
96 isDown array. This will not work on non-US keyboards, where " and 2 are on the
97 same key. But testing this automatically is not possible in this framework. */
98 "keys[7] = array ();"
99 "keynames[7] = ('key release order: release shift, release !, release doublequote.\n"
100 "Will fail manual test on non-US keyboards');"
101
102 /* Test indifference to shift for extended-ascii alphabetic DisplayObjects ... */
103 "keys[8] = array (228, 246);"
104 "keynames[8] = ('(no shift: a-umlaut, o-umlaut');"
105
106 /* ... ä and Ä have different keycodes, but releasing one should mean the other
107 is removed from the isDown array when they are on the same key. In fact,
108 pressing either on a German keyboard means that codes for both are marked
109 as down. Is this true when the DisplayObjects are not on the same key? Probably not. So
110 this test might only be possible manually. */
111 "keys[9] = array ();"
112 "keynames[9] = ('key order: press shift, release A-Umlaut, release O-umlaut, release shift.\n"
113 "Will fail manual test on some keyboards');"
114
115 "var test = 0;"
116 );
117
118 dejagnuclip = get_dejagnu_clip((SWFBlock)get_default_font(srcdir), 10, 0, 0, 800, 600);
119 SWFMovie_add(mo, (SWFBlock)dejagnuclip);
120
121 SWFMovie_nextFrame(mo);
122
123 int i;
124 for (i = 0; i <= 9; i++) {
125
126 add_actions(mo,
127
128 "keys[test].push (256);"
129 "_root.createEmptyMovieClip('dynamic_mc', -10);"
130 "_root.note(keynames[test]);"
131 "Key.addListener(dynamic_mc);"
132 "_root.onMouseDown = function () { _root.nextFrame(); };"
133 "stop();"
134 );
135
136 SWFMovie_nextFrame(mo); // 2nd frame
137
138 add_actions(mo,
139 "var j = 0;"
140 "for(var i=0; i < 256; i++) {"
141 "if (keys[test].length > 0 && i < keys[test][j]) {"
142 "xcheck(!Key.isDown(i), 'Key '+ i + ' should not be marked as down!');"
143 "} else {"
144 "xcheck (Key.isDown(i), 'Key '+ i + ' should be marked as down!');"
145 "j++;"
146 "};"
147 "};"
148 "test++;" /* Go on to next test array */
149 "stop();"
150 );
151 }
152 //Output movie
153 puts("Saving " OUTPUT_FILENAME );
154 SWFMovie_save(mo, OUTPUT_FILENAME);
155
156 return 0;
157 }
158