blob: 29dc180236a185fe771074c4bad435d8f8b665da (
plain)
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2007-2008 - INRIA
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- CLI SHELL MODE -->
//===============================
// unit tests isdigit
//===============================
TXT = 'A1,B2,C3';
//===============================
if isdigit(TXT) <> [%F %T %F %F %T %F %F %T] then bugmes();quit;end
//===============================
if isdigit('') <> [] then bugmes();quit;end
//===============================
if isdigit('a') then bugmes();quit;end
if isdigit('b') then bugmes();quit;end
if isdigit('c') then bugmes();quit;end
if isdigit('d') then bugmes();quit;end
if isdigit('e') then bugmes();quit;end
if isdigit('f') then bugmes();quit;end
if isdigit('g') then bugmes();quit;end
if isdigit('h') then bugmes();quit;end
if isdigit('i') then bugmes();quit;end
if isdigit('j') then bugmes();quit;end
if isdigit('k') then bugmes();quit;end
if isdigit('l') then bugmes();quit;end
if isdigit('m') then bugmes();quit;end
if isdigit('n') then bugmes();quit;end
if isdigit('o') then bugmes();quit;end
if isdigit('p') then bugmes();quit;end
if isdigit('q') then bugmes();quit;end
if isdigit('r') then bugmes();quit;end
if isdigit('s') then bugmes();quit;end
if isdigit('t') then bugmes();quit;end
if isdigit('u') then bugmes();quit;end
if isdigit('v') then bugmes();quit;end
if isdigit('x') then bugmes();quit;end
if isdigit('y') then bugmes();quit;end
if isdigit('z') then bugmes();quit;end
if isdigit('A') then bugmes();quit;end
if isdigit('B') then bugmes();quit;end
if isdigit('C') then bugmes();quit;end
if isdigit('D') then bugmes();quit;end
if isdigit('E') then bugmes();quit;end
if isdigit('F') then bugmes();quit;end
if isdigit('G') then bugmes();quit;end
if isdigit('H') then bugmes();quit;end
if isdigit('I') then bugmes();quit;end
if isdigit('J') then bugmes();quit;end
if isdigit('K') then bugmes();quit;end
if isdigit('L') then bugmes();quit;end
if isdigit('M') then bugmes();quit;end
if isdigit('O') then bugmes();quit;end
if isdigit('P') then bugmes();quit;end
if isdigit('Q') then bugmes();quit;end
if isdigit('R') then bugmes();quit;end
if isdigit('S') then bugmes();quit;end
if isdigit('T') then bugmes();quit;end
if isdigit('U') then bugmes();quit;end
if isdigit('V') then bugmes();quit;end
if isdigit('X') then bugmes();quit;end
if isdigit('Y') then bugmes();quit;end
if isdigit('Z') then bugmes();quit;end
if isdigit('!') then bugmes();quit;end
if isdigit('#') then bugmes();quit;end
if isdigit('$') then bugmes();quit;end
if isdigit('%') then bugmes();quit;end
if isdigit('&') then bugmes();quit;end
if isdigit('(') then bugmes();quit;end
if isdigit(')') then bugmes();quit;end
if isdigit('*') then bugmes();quit;end
if isdigit('+') then bugmes();quit;end
if isdigit(',') then bugmes();quit;end
if isdigit('-') then bugmes();quit;end
if isdigit('.') then bugmes();quit;end
if isdigit('/') then bugmes();quit;end
if isdigit(':') then bugmes();quit;end
if isdigit(';') then bugmes();quit;end
if isdigit('<') then bugmes();quit;end
if isdigit('=') then bugmes();quit;end
if isdigit('>') then bugmes();quit;end
if isdigit('@') then bugmes();quit;end
if isdigit('[') then bugmes();quit;end
if isdigit('\') then bugmes();quit;end
if isdigit(']') then bugmes();quit;end
if isdigit('^') then bugmes();quit;end
if isdigit('_') then bugmes();quit;end
if isdigit('`') then bugmes();quit;end
if isdigit('{') then bugmes();quit;end
if isdigit('|') then bugmes();quit;end
if isdigit('}') then bugmes();quit;end
if isdigit('~') then bugmes();quit;end
if isdigit('""') then bugmes();quit;end
if isdigit('''') then bugmes();quit;end
if ~isdigit('1') then bugmes();quit;end
if ~isdigit('2') then bugmes();quit;end
if ~isdigit('3') then bugmes();quit;end
if ~isdigit('4') then bugmes();quit;end
if ~isdigit('5') then bugmes();quit;end
if ~isdigit('6') then bugmes();quit;end
if ~isdigit('7') then bugmes();quit;end
if ~isdigit('8') then bugmes();quit;end
if ~isdigit('9') then bugmes();quit;end
|
