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
|
// =============================================================================
// 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.
// =============================================================================
// <-- JVM NOT MANDATORY -->
//===============================
// unit tests string
//===============================
if string(1)<>'1' then bugmes();quit;end
//===============================
if string(1.5)<>'1.5' then bugmes();quit;end
//===============================
if string([])<>[] then bugmes();quit;end
//===============================
if string('')<>'' then bugmes();quit;end
//===============================
if or(string(1:3)<>['1','2','3']) then bugmes();quit;end
//===============================
if or(string([1;2;3])<>['1';'2';'3']) then bugmes();quit;end
//===============================
if string('foo')<>'foo' then bugmes();quit;end
//===============================
deff('y=mymacro(x)','y=x+1');
[out,in,text]=string(mymacro);
if out<>'y'|in<>'x'|text<>[] then bugmes();quit;end
//===============================
mymacro=null();deff('y=mymacro(x)','y=x+1','n');
[out,in,text]=string(mymacro);
if out<>'y'|in<>'x'|text<>'y=x+1' then bugmes();quit;end
//===============================
R = string(corelib);
if strsubst(R(1),'\','/') <> 'SCI/modules/core/macros/' then bugmes();quit;end
//===============================
A = floor(abs(2^8 * rand(10,10)));
B = floor(abs(2^16 * rand(10,10)));
C = floor(abs(2^32 * rand(10,10)));
D = floor(abs(2^7 * rand(10,10)));
E = floor(abs(2^15 * rand(10,10)));
F = floor(abs(2^31 * rand(10,10)));
if or(string(A) <> string(uint8(A))) then bugmes();quit;end
if or(string(B) <> string(uint16(B))) then bugmes();quit;end
if or(string(C) <> string(uint32(C))) then bugmes();quit;end
if or(string(D) <> string(int8(D))) then bugmes();quit;end
if or(string(E) <> string(int16(E))) then bugmes();quit;end
if or(string(F) <> string(int32(F))) then bugmes();quit;end
|
