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
|
// =============================================================================
// 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 isascii
// =============================================================================
chars = ascii(1:127);
if or(isascii(chars)) <> %T then bugmes();quit;end
// =============================================================================
if or(isascii(255:300)) <> %F then bugmes();quit;end
// =============================================================================
if or(isascii('This is a sentence')) <> %T then bugmes();quit;end
// =============================================================================
if isascii(ascii(20)) <> %T then bugmes();quit;end
// =============================================================================
if or(isascii(ascii(20:50))) <> %T then bugmes();quit;end
// =============================================================================
tab_ref = [
"世界A您好",
"азеAазея",
"ハロー・Aワールド",
"เฮลโลเAวิลด์",
"حرياتAوحقوق",
"תוAכנית"];
r_ref = list([%F,%F,%T,%F,%F], ..
[%F,%F,%F,%T,%F,%F,%F,%F], ..
[%F,%F,%F,%F,%T,%F,%F,%F,%F], ..
[%F,%F,%F,%F,%F,%F,%T,%F,%F,%F,%F,%F], ..
[%F,%F,%F,%F,%F,%T,%F,%F,%F,%F,%F], ..
[%F,%F,%T,%F,%F,%F,%F]);
for i = 1 : size(tab_ref,'*')
if and(isascii(tab_ref(i))<> r_ref(i)) then bugmes();quit;end
end
|
