// =============================================================================
// 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