1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2007-2008 - INRIA
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7// <-- CLI SHELL MODE -->
8//===============================
9// unit tests isalphanum
10//===============================
11TXT = 'A1,B2,C3';
12//===============================
13if isalphanum(TXT) <> [ %T %T %F %T %T %F %T %T] then bugmes();quit;end
14//===============================
15if isalphanum('') <> [] then bugmes();quit;end
16//===============================
17if ~isalphanum('a') then bugmes();quit;end
18if ~isalphanum('b') then bugmes();quit;end
19if ~isalphanum('c') then bugmes();quit;end
20if ~isalphanum('d') then bugmes();quit;end
21if ~isalphanum('e') then bugmes();quit;end
22if ~isalphanum('f') then bugmes();quit;end
23if ~isalphanum('g') then bugmes();quit;end
24if ~isalphanum('h') then bugmes();quit;end
25if ~isalphanum('i') then bugmes();quit;end
26if ~isalphanum('j') then bugmes();quit;end
27if ~isalphanum('k') then bugmes();quit;end
28if ~isalphanum('l') then bugmes();quit;end
29if ~isalphanum('m') then bugmes();quit;end
30if ~isalphanum('n') then bugmes();quit;end
31if ~isalphanum('o') then bugmes();quit;end
32if ~isalphanum('p') then bugmes();quit;end
33if ~isalphanum('q') then bugmes();quit;end
34if ~isalphanum('r') then bugmes();quit;end
35if ~isalphanum('s') then bugmes();quit;end
36if ~isalphanum('t') then bugmes();quit;end
37if ~isalphanum('u') then bugmes();quit;end
38if ~isalphanum('v') then bugmes();quit;end
39if ~isalphanum('x') then bugmes();quit;end
40if ~isalphanum('y') then bugmes();quit;end
41if ~isalphanum('z') then bugmes();quit;end
42if ~isalphanum('A') then bugmes();quit;end
43if ~isalphanum('B') then bugmes();quit;end
44if ~isalphanum('C') then bugmes();quit;end
45if ~isalphanum('D') then bugmes();quit;end
46if ~isalphanum('E') then bugmes();quit;end
47if ~isalphanum('F') then bugmes();quit;end
48if ~isalphanum('G') then bugmes();quit;end
49if ~isalphanum('H') then bugmes();quit;end
50if ~isalphanum('I') then bugmes();quit;end
51if ~isalphanum('J') then bugmes();quit;end
52if ~isalphanum('K') then bugmes();quit;end
53if ~isalphanum('L') then bugmes();quit;end
54if ~isalphanum('M') then bugmes();quit;end
55if ~isalphanum('O') then bugmes();quit;end
56if ~isalphanum('P') then bugmes();quit;end
57if ~isalphanum('Q') then bugmes();quit;end
58if ~isalphanum('R') then bugmes();quit;end
59if ~isalphanum('S') then bugmes();quit;end
60if ~isalphanum('T') then bugmes();quit;end
61if ~isalphanum('U') then bugmes();quit;end
62if ~isalphanum('V') then bugmes();quit;end
63if ~isalphanum('X') then bugmes();quit;end
64if ~isalphanum('Y') then bugmes();quit;end
65if ~isalphanum('Z') then bugmes();quit;end
66if ~isalphanum('1') then bugmes();quit;end
67if ~isalphanum('2') then bugmes();quit;end
68if ~isalphanum('3') then bugmes();quit;end
69if ~isalphanum('4') then bugmes();quit;end
70if ~isalphanum('5') then bugmes();quit;end
71if ~isalphanum('6') then bugmes();quit;end
72if ~isalphanum('7') then bugmes();quit;end
73if ~isalphanum('8') then bugmes();quit;end
74if ~isalphanum('9') then bugmes();quit;end
75if isalphanum('!') then bugmes();quit;end
76if isalphanum('#') then bugmes();quit;end
77if isalphanum('$') then bugmes();quit;end
78if isalphanum('%') then bugmes();quit;end
79if isalphanum('&') then bugmes();quit;end
80if isalphanum('(') then bugmes();quit;end
81if isalphanum(')') then bugmes();quit;end
82if isalphanum('*') then bugmes();quit;end
83if isalphanum('+') then bugmes();quit;end
84if isalphanum(',') then bugmes();quit;end
85if isalphanum('-') then bugmes();quit;end
86if isalphanum('.') then bugmes();quit;end
87if isalphanum('/') then bugmes();quit;end
88if isalphanum(':') then bugmes();quit;end
89if isalphanum(';') then bugmes();quit;end
90if isalphanum('<') then bugmes();quit;end
91if isalphanum('=') then bugmes();quit;end
92if isalphanum('>') then bugmes();quit;end
93if isalphanum('@') then bugmes();quit;end
94if isalphanum('[') then bugmes();quit;end
95if isalphanum('\') then bugmes();quit;end
96if isalphanum(']') then bugmes();quit;end
97if isalphanum('^') then bugmes();quit;end
98if isalphanum('_') then bugmes();quit;end
99if isalphanum('`') then bugmes();quit;end
100if isalphanum('{') then bugmes();quit;end
101if isalphanum('|') then bugmes();quit;end
102if isalphanum('}') then bugmes();quit;end
103if isalphanum('~') then bugmes();quit;end
104