string tests: use "" strings to ease parsing 47/18047/3
Clément DAVID [Wed, 6 Apr 2016 09:36:24 +0000 (11:36 +0200)]
Change-Id: I21ecd98676d7997c881928f0775a7c9e74329407

scilab/modules/string/tests/unit_tests/ascii.dia.ref
scilab/modules/string/tests/unit_tests/ascii.tst
scilab/modules/string/tests/unit_tests/blanks.dia.ref
scilab/modules/string/tests/unit_tests/blanks.tst

index f8d27be..5cacbb7 100644 (file)
 // unit tests ascii
 // =============================================================================
 // == TEST 1 ===================================================================
-if or(ascii('abcdefghijklmnopqrstuvwxyz')<>(97:122)) then bugmes();quit;end
-if or(ascii(97:122)<>'abcdefghijklmnopqrstuvwxyz') then bugmes();quit;end
-if ascii('')<>[] then bugmes();quit;end
-if ascii([])<>'' then bugmes();quit;end
+if or(ascii("abcdefghijklmnopqrstuvwxyz")<>(97:122)) then bugmes();quit;end
+if or(ascii(97:122)<>"abcdefghijklmnopqrstuvwxyz") then bugmes();quit;end
+if ascii("")<>[] then bugmes();quit;end
+if ascii([])<>"" then bugmes();quit;end
 // == TEST 2 ===================================================================
 CODE_ASCII_SCILAB   = [115 99 105 108 97 98];
-str_scilab          = 'scilab';
+str_scilab          = "scilab";
 if ascii(str_scilab) <> CODE_ASCII_SCILAB   then bugmes();quit;end
 if (ascii(CODE_ASCII_SCILAB) <> str_scilab) then bugmes();quit;end
 // == TEST 3 ===================================================================
-if ascii([str_scilab 'a';'b' 'c']) <> [115 99 105 108 97 98 98 97 99] then bugmes();quit;end
+if ascii([str_scilab "a";"b" "c"]) <> [115 99 105 108 97 98 98 97 99] then bugmes();quit;end
 // == TEST 4 ===================================================================
-fd  = mopen(SCI+'/modules/string/tests/unit_tests/text.txt','r');
+fd  = mopen(SCI+"/modules/string/tests/unit_tests/text.txt","r");
 txt = mgetl( fd );
 mclose( fd );
 ASCII_TXT           = ascii(txt);
 TXT_FROM_ASCII_CODE = ascii(ASCII_TXT);
 if (length(TXT_FROM_ASCII_CODE) <> 27455) then bugmes();quit;end
 // == TEST 5 ===================================================================
- if ascii("!") <> 33 then bugmes();quit;end
- if ascii("""")<> 34 then bugmes();quit;end
- if ascii("#") <> 35 then bugmes();quit;end
- if ascii("$") <> 36 then bugmes();quit;end
- if ascii("%") <> 37 then bugmes();quit;end
- if ascii("&") <> 38 then bugmes();quit;end
- if ascii("''")<> 39 then bugmes();quit;end
- if ascii("(") <> 40 then bugmes();quit;end
- if ascii(")") <> 41 then bugmes();quit;end
- if ascii("*") <> 42 then bugmes();quit;end
- if ascii("+") <> 43 then bugmes();quit;end
- if ascii(",") <> 44 then bugmes();quit;end
- if ascii("-") <> 45 then bugmes();quit;end
- if ascii(".") <> 46 then bugmes();quit;end
- if ascii("/") <> 47 then bugmes();quit;end
- if ascii("0") <> 48 then bugmes();quit;end
- if ascii("1") <> 49 then bugmes();quit;end
- if ascii("2") <> 50 then bugmes();quit;end
- if ascii("3") <> 51 then bugmes();quit;end
- if ascii("4") <> 52 then bugmes();quit;end
- if ascii("5") <> 53 then bugmes();quit;end
- if ascii("6") <> 54 then bugmes();quit;end
- if ascii("7") <> 55 then bugmes();quit;end
- if ascii("8") <> 56 then bugmes();quit;end
- if ascii("9") <> 57 then bugmes();quit;end
- if ascii(":") <> 58 then bugmes();quit;end
- if ascii(";") <> 59 then bugmes();quit;end
- if ascii("<") <> 60 then bugmes();quit;end
- if ascii("=") <> 61 then bugmes();quit;end
- if ascii(">") <> 62 then bugmes();quit;end
- if ascii("?") <> 63 then bugmes();quit;end
- if ascii("@") <> 64 then bugmes();quit;end
- if ascii("A") <> 65 then bugmes();quit;end
- if ascii("B") <> 66 then bugmes();quit;end
- if ascii("C") <> 67 then bugmes();quit;end
- if ascii("D") <> 68 then bugmes();quit;end
- if ascii("E") <> 69 then bugmes();quit;end
- if ascii("F") <> 70 then bugmes();quit;end
- if ascii("G") <> 71 then bugmes();quit;end
- if ascii("H") <> 72 then bugmes();quit;end
- if ascii("I") <> 73 then bugmes();quit;end
- if ascii("J") <> 74 then bugmes();quit;end
- if ascii("K") <> 75 then bugmes();quit;end
- if ascii("L") <> 76 then bugmes();quit;end
- if ascii("M") <> 77 then bugmes();quit;end
- if ascii("N") <> 78 then bugmes();quit;end
- if ascii("O") <> 79 then bugmes();quit;end
- if ascii("P") <> 80 then bugmes();quit;end
- if ascii("Q") <> 81 then bugmes();quit;end
- if ascii("R") <> 82 then bugmes();quit;end
- if ascii("S") <> 83 then bugmes();quit;end
- if ascii("T") <> 84 then bugmes();quit;end
- if ascii("U") <> 85 then bugmes();quit;end
- if ascii("V") <> 86 then bugmes();quit;end
- if ascii("W") <> 87 then bugmes();quit;end
- if ascii("X") <> 88 then bugmes();quit;end
- if ascii("Y") <> 89 then bugmes();quit;end
- if ascii("Z") <> 90 then bugmes();quit;end
- if ascii("[") <> 91 then bugmes();quit;end
- if ascii("\") <> 92 then bugmes();quit;end
- if ascii("]") <> 93 then bugmes();quit;end
- if ascii("^") <> 94 then bugmes();quit;end
- if ascii("_") <> 95 then bugmes();quit;end
- if ascii("`") <> 96 then bugmes();quit;end
- if ascii("a") <> 97 then bugmes();quit;end
- if ascii("b") <> 98 then bugmes();quit;end
- if ascii("c") <> 99 then bugmes();quit;end
- if ascii("d") <> 100 then bugmes();quit;end
- if ascii("e") <> 101 then bugmes();quit;end
- if ascii("f") <> 102 then bugmes();quit;end
- if ascii("g") <> 103 then bugmes();quit;end
- if ascii("h") <> 104 then bugmes();quit;end
- if ascii("i") <> 105 then bugmes();quit;end
- if ascii("j") <> 106 then bugmes();quit;end
- if ascii("k") <> 107 then bugmes();quit;end
- if ascii("l") <> 108 then bugmes();quit;end
- if ascii("m") <> 109 then bugmes();quit;end
- if ascii("n") <> 110 then bugmes();quit;end
- if ascii("o") <> 111 then bugmes();quit;end
- if ascii("p") <> 112 then bugmes();quit;end
- if ascii("q") <> 113 then bugmes();quit;end
- if ascii("r") <> 114 then bugmes();quit;end
- if ascii("s") <> 115 then bugmes();quit;end
- if ascii("t") <> 116 then bugmes();quit;end
- if ascii("u") <> 117 then bugmes();quit;end
- if ascii("v") <> 118 then bugmes();quit;end
- if ascii("w") <> 119 then bugmes();quit;end
- if ascii("x") <> 120 then bugmes();quit;end
- if ascii("y") <> 121 then bugmes();quit;end
- if ascii("z") <> 122 then bugmes();quit;end
- if ascii("{") <> 123 then bugmes();quit;end
- if ascii("|") <> 124 then bugmes();quit;end
- if ascii("}") <> 125 then bugmes();quit;end
- if ascii("~") <> 126 then bugmes();quit;end
- if ascii(33) <> "!" then bugmes();quit;end
- if ascii(34) <> """" then bugmes();quit;end
- if ascii(35) <> "#" then bugmes();quit;end
- if ascii(36) <> "$" then bugmes();quit;end
- if ascii(37) <> "%" then bugmes();quit;end
- if ascii(38) <> "&" then bugmes();quit;end
- if ascii(39) <> "''" then bugmes();quit;end
- if ascii(40) <> "(" then bugmes();quit;end
- if ascii(41) <> ")" then bugmes();quit;end
- if ascii(42) <> "*" then bugmes();quit;end
- if ascii(43) <> "+" then bugmes();quit;end
- if ascii(44) <> "," then bugmes();quit;end
- if ascii(45) <> "-" then bugmes();quit;end
- if ascii(46) <> "." then bugmes();quit;end
- if ascii(47) <> "/" then bugmes();quit;end
- if ascii(48) <> "0" then bugmes();quit;end
- if ascii(49) <> "1" then bugmes();quit;end
- if ascii(50) <> "2" then bugmes();quit;end
- if ascii(51) <> "3" then bugmes();quit;end
- if ascii(52) <> "4" then bugmes();quit;end
- if ascii(53) <> "5" then bugmes();quit;end
- if ascii(54) <> "6" then bugmes();quit;end
- if ascii(55) <> "7" then bugmes();quit;end
- if ascii(56) <> "8" then bugmes();quit;end
- if ascii(57) <> "9" then bugmes();quit;end
- if ascii(58) <> ":" then bugmes();quit;end
- if ascii(59) <> ";" then bugmes();quit;end
- if ascii(60) <> "<" then bugmes();quit;end
- if ascii(61) <> "=" then bugmes();quit;end
- if ascii(62) <> ">" then bugmes();quit;end
- if ascii(63) <> "?" then bugmes();quit;end
- if ascii(64) <> "@" then bugmes();quit;end
- if ascii(65) <> "A" then bugmes();quit;end
- if ascii(66) <> "B" then bugmes();quit;end
- if ascii(67) <> "C" then bugmes();quit;end
- if ascii(68) <> "D" then bugmes();quit;end
- if ascii(69) <> "E" then bugmes();quit;end
- if ascii(70) <> "F" then bugmes();quit;end
- if ascii(71) <> "G" then bugmes();quit;end
- if ascii(72) <> "H" then bugmes();quit;end
- if ascii(73) <> "I" then bugmes();quit;end
- if ascii(74) <> "J" then bugmes();quit;end
- if ascii(75) <> "K" then bugmes();quit;end
- if ascii(76) <> "L" then bugmes();quit;end
- if ascii(77) <> "M" then bugmes();quit;end
- if ascii(78) <> "N" then bugmes();quit;end
- if ascii(79) <> "O" then bugmes();quit;end
- if ascii(80) <> "P" then bugmes();quit;end
- if ascii(81) <> "Q" then bugmes();quit;end
- if ascii(82) <> "R" then bugmes();quit;end
- if ascii(83) <> "S" then bugmes();quit;end
- if ascii(84) <> "T" then bugmes();quit;end
- if ascii(85) <> "U" then bugmes();quit;end
- if ascii(86) <> "V" then bugmes();quit;end
- if ascii(87) <> "W" then bugmes();quit;end
- if ascii(88) <> "X" then bugmes();quit;end
- if ascii(89) <> "Y" then bugmes();quit;end
- if ascii(90) <> "Z" then bugmes();quit;end
- if ascii(91) <> "[" then bugmes();quit;end
- if ascii(92) <> "\" then bugmes();quit;end
- if ascii(93) <> "]" then bugmes();quit;end
- if ascii(94) <> "^" then bugmes();quit;end
- if ascii(95) <> "_" then bugmes();quit;end
- if ascii(96) <> "`" then bugmes();quit;end
- if ascii(97) <> "a" then bugmes();quit;end
- if ascii(98) <> "b" then bugmes();quit;end
- if ascii(99) <> "c" then bugmes();quit;end
- if ascii(100) <> "d" then bugmes();quit;end
- if ascii(101) <> "e" then bugmes();quit;end
- if ascii(102) <> "f" then bugmes();quit;end
- if ascii(103) <> "g" then bugmes();quit;end
- if ascii(104) <> "h" then bugmes();quit;end
- if ascii(105) <> "i" then bugmes();quit;end
- if ascii(106) <> "j" then bugmes();quit;end
- if ascii(107) <> "k" then bugmes();quit;end
- if ascii(108) <> "l" then bugmes();quit;end
- if ascii(109) <> "m" then bugmes();quit;end
- if ascii(110) <> "n" then bugmes();quit;end
- if ascii(111) <> "o" then bugmes();quit;end
- if ascii(112) <> "p" then bugmes();quit;end
- if ascii(113) <> "q" then bugmes();quit;end
- if ascii(114) <> "r" then bugmes();quit;end
- if ascii(115) <> "s" then bugmes();quit;end
- if ascii(116) <> "t" then bugmes();quit;end
- if ascii(117) <> "u" then bugmes();quit;end
- if ascii(118) <> "v" then bugmes();quit;end
- if ascii(119) <> "w" then bugmes();quit;end
- if ascii(120) <> "x" then bugmes();quit;end
- if ascii(121) <> "y" then bugmes();quit;end
- if ascii(122) <> "z" then bugmes();quit;end
- if ascii(123) <> "{" then bugmes();quit;end
- if ascii(124) <> "|" then bugmes();quit;end
- if ascii(125) <> "}" then bugmes();quit;end
- if ascii(126) <> "~" then bugmes();quit;end
+if ascii("!") <> 33 then bugmes();quit;end
+if ascii("""")<> 34 then bugmes();quit;end
+if ascii("#") <> 35 then bugmes();quit;end
+if ascii("$") <> 36 then bugmes();quit;end
+if ascii("%") <> 37 then bugmes();quit;end
+if ascii("&") <> 38 then bugmes();quit;end
+if ascii("''")<> 39 then bugmes();quit;end
+if ascii("(") <> 40 then bugmes();quit;end
+if ascii(")") <> 41 then bugmes();quit;end
+if ascii("*") <> 42 then bugmes();quit;end
+if ascii("+") <> 43 then bugmes();quit;end
+if ascii(",") <> 44 then bugmes();quit;end
+if ascii("-") <> 45 then bugmes();quit;end
+if ascii(".") <> 46 then bugmes();quit;end
+if ascii("/") <> 47 then bugmes();quit;end
+if ascii("0") <> 48 then bugmes();quit;end
+if ascii("1") <> 49 then bugmes();quit;end
+if ascii("2") <> 50 then bugmes();quit;end
+if ascii("3") <> 51 then bugmes();quit;end
+if ascii("4") <> 52 then bugmes();quit;end
+if ascii("5") <> 53 then bugmes();quit;end
+if ascii("6") <> 54 then bugmes();quit;end
+if ascii("7") <> 55 then bugmes();quit;end
+if ascii("8") <> 56 then bugmes();quit;end
+if ascii("9") <> 57 then bugmes();quit;end
+if ascii(":") <> 58 then bugmes();quit;end
+if ascii(";") <> 59 then bugmes();quit;end
+if ascii("<") <> 60 then bugmes();quit;end
+if ascii("=") <> 61 then bugmes();quit;end
+if ascii(">") <> 62 then bugmes();quit;end
+if ascii("?") <> 63 then bugmes();quit;end
+if ascii("@") <> 64 then bugmes();quit;end
+if ascii("A") <> 65 then bugmes();quit;end
+if ascii("B") <> 66 then bugmes();quit;end
+if ascii("C") <> 67 then bugmes();quit;end
+if ascii("D") <> 68 then bugmes();quit;end
+if ascii("E") <> 69 then bugmes();quit;end
+if ascii("F") <> 70 then bugmes();quit;end
+if ascii("G") <> 71 then bugmes();quit;end
+if ascii("H") <> 72 then bugmes();quit;end
+if ascii("I") <> 73 then bugmes();quit;end
+if ascii("J") <> 74 then bugmes();quit;end
+if ascii("K") <> 75 then bugmes();quit;end
+if ascii("L") <> 76 then bugmes();quit;end
+if ascii("M") <> 77 then bugmes();quit;end
+if ascii("N") <> 78 then bugmes();quit;end
+if ascii("O") <> 79 then bugmes();quit;end
+if ascii("P") <> 80 then bugmes();quit;end
+if ascii("Q") <> 81 then bugmes();quit;end
+if ascii("R") <> 82 then bugmes();quit;end
+if ascii("S") <> 83 then bugmes();quit;end
+if ascii("T") <> 84 then bugmes();quit;end
+if ascii("U") <> 85 then bugmes();quit;end
+if ascii("V") <> 86 then bugmes();quit;end
+if ascii("W") <> 87 then bugmes();quit;end
+if ascii("X") <> 88 then bugmes();quit;end
+if ascii("Y") <> 89 then bugmes();quit;end
+if ascii("Z") <> 90 then bugmes();quit;end
+if ascii("[") <> 91 then bugmes();quit;end
+if ascii("\") <> 92 then bugmes();quit;end
+if ascii("]") <> 93 then bugmes();quit;end
+if ascii("^") <> 94 then bugmes();quit;end
+if ascii("_") <> 95 then bugmes();quit;end
+if ascii("`") <> 96 then bugmes();quit;end
+if ascii("a") <> 97 then bugmes();quit;end
+if ascii("b") <> 98 then bugmes();quit;end
+if ascii("c") <> 99 then bugmes();quit;end
+if ascii("d") <> 100 then bugmes();quit;end
+if ascii("e") <> 101 then bugmes();quit;end
+if ascii("f") <> 102 then bugmes();quit;end
+if ascii("g") <> 103 then bugmes();quit;end
+if ascii("h") <> 104 then bugmes();quit;end
+if ascii("i") <> 105 then bugmes();quit;end
+if ascii("j") <> 106 then bugmes();quit;end
+if ascii("k") <> 107 then bugmes();quit;end
+if ascii("l") <> 108 then bugmes();quit;end
+if ascii("m") <> 109 then bugmes();quit;end
+if ascii("n") <> 110 then bugmes();quit;end
+if ascii("o") <> 111 then bugmes();quit;end
+if ascii("p") <> 112 then bugmes();quit;end
+if ascii("q") <> 113 then bugmes();quit;end
+if ascii("r") <> 114 then bugmes();quit;end
+if ascii("s") <> 115 then bugmes();quit;end
+if ascii("t") <> 116 then bugmes();quit;end
+if ascii("u") <> 117 then bugmes();quit;end
+if ascii("v") <> 118 then bugmes();quit;end
+if ascii("w") <> 119 then bugmes();quit;end
+if ascii("x") <> 120 then bugmes();quit;end
+if ascii("y") <> 121 then bugmes();quit;end
+if ascii("z") <> 122 then bugmes();quit;end
+if ascii("{") <> 123 then bugmes();quit;end
+if ascii("|") <> 124 then bugmes();quit;end
+if ascii("}") <> 125 then bugmes();quit;end
+if ascii("~") <> 126 then bugmes();quit;end
+if ascii(33) <> "!" then bugmes();quit;end
+if ascii(34) <> """" then bugmes();quit;end
+if ascii(35) <> "#" then bugmes();quit;end
+if ascii(36) <> "$" then bugmes();quit;end
+if ascii(37) <> "%" then bugmes();quit;end
+if ascii(38) <> "&" then bugmes();quit;end
+if ascii(39) <> "''" then bugmes();quit;end
+if ascii(40) <> "(" then bugmes();quit;end
+if ascii(41) <> ")" then bugmes();quit;end
+if ascii(42) <> "*" then bugmes();quit;end
+if ascii(43) <> "+" then bugmes();quit;end
+if ascii(44) <> "," then bugmes();quit;end
+if ascii(45) <> "-" then bugmes();quit;end
+if ascii(46) <> "." then bugmes();quit;end
+if ascii(47) <> "/" then bugmes();quit;end
+if ascii(48) <> "0" then bugmes();quit;end
+if ascii(49) <> "1" then bugmes();quit;end
+if ascii(50) <> "2" then bugmes();quit;end
+if ascii(51) <> "3" then bugmes();quit;end
+if ascii(52) <> "4" then bugmes();quit;end
+if ascii(53) <> "5" then bugmes();quit;end
+if ascii(54) <> "6" then bugmes();quit;end
+if ascii(55) <> "7" then bugmes();quit;end
+if ascii(56) <> "8" then bugmes();quit;end
+if ascii(57) <> "9" then bugmes();quit;end
+if ascii(58) <> ":" then bugmes();quit;end
+if ascii(59) <> ";" then bugmes();quit;end
+if ascii(60) <> "<" then bugmes();quit;end
+if ascii(61) <> "=" then bugmes();quit;end
+if ascii(62) <> ">" then bugmes();quit;end
+if ascii(63) <> "?" then bugmes();quit;end
+if ascii(64) <> "@" then bugmes();quit;end
+if ascii(65) <> "A" then bugmes();quit;end
+if ascii(66) <> "B" then bugmes();quit;end
+if ascii(67) <> "C" then bugmes();quit;end
+if ascii(68) <> "D" then bugmes();quit;end
+if ascii(69) <> "E" then bugmes();quit;end
+if ascii(70) <> "F" then bugmes();quit;end
+if ascii(71) <> "G" then bugmes();quit;end
+if ascii(72) <> "H" then bugmes();quit;end
+if ascii(73) <> "I" then bugmes();quit;end
+if ascii(74) <> "J" then bugmes();quit;end
+if ascii(75) <> "K" then bugmes();quit;end
+if ascii(76) <> "L" then bugmes();quit;end
+if ascii(77) <> "M" then bugmes();quit;end
+if ascii(78) <> "N" then bugmes();quit;end
+if ascii(79) <> "O" then bugmes();quit;end
+if ascii(80) <> "P" then bugmes();quit;end
+if ascii(81) <> "Q" then bugmes();quit;end
+if ascii(82) <> "R" then bugmes();quit;end
+if ascii(83) <> "S" then bugmes();quit;end
+if ascii(84) <> "T" then bugmes();quit;end
+if ascii(85) <> "U" then bugmes();quit;end
+if ascii(86) <> "V" then bugmes();quit;end
+if ascii(87) <> "W" then bugmes();quit;end
+if ascii(88) <> "X" then bugmes();quit;end
+if ascii(89) <> "Y" then bugmes();quit;end
+if ascii(90) <> "Z" then bugmes();quit;end
+if ascii(91) <> "[" then bugmes();quit;end
+if ascii(92) <> "\" then bugmes();quit;end
+if ascii(93) <> "]" then bugmes();quit;end
+if ascii(94) <> "^" then bugmes();quit;end
+if ascii(95) <> "_" then bugmes();quit;end
+if ascii(96) <> "`" then bugmes();quit;end
+if ascii(97) <> "a" then bugmes();quit;end
+if ascii(98) <> "b" then bugmes();quit;end
+if ascii(99) <> "c" then bugmes();quit;end
+if ascii(100) <> "d" then bugmes();quit;end
+if ascii(101) <> "e" then bugmes();quit;end
+if ascii(102) <> "f" then bugmes();quit;end
+if ascii(103) <> "g" then bugmes();quit;end
+if ascii(104) <> "h" then bugmes();quit;end
+if ascii(105) <> "i" then bugmes();quit;end
+if ascii(106) <> "j" then bugmes();quit;end
+if ascii(107) <> "k" then bugmes();quit;end
+if ascii(108) <> "l" then bugmes();quit;end
+if ascii(109) <> "m" then bugmes();quit;end
+if ascii(110) <> "n" then bugmes();quit;end
+if ascii(111) <> "o" then bugmes();quit;end
+if ascii(112) <> "p" then bugmes();quit;end
+if ascii(113) <> "q" then bugmes();quit;end
+if ascii(114) <> "r" then bugmes();quit;end
+if ascii(115) <> "s" then bugmes();quit;end
+if ascii(116) <> "t" then bugmes();quit;end
+if ascii(117) <> "u" then bugmes();quit;end
+if ascii(118) <> "v" then bugmes();quit;end
+if ascii(119) <> "w" then bugmes();quit;end
+if ascii(120) <> "x" then bugmes();quit;end
+if ascii(121) <> "y" then bugmes();quit;end
+if ascii(122) <> "z" then bugmes();quit;end
+if ascii(123) <> "{" then bugmes();quit;end
+if ascii(124) <> "|" then bugmes();quit;end
+if ascii(125) <> "}" then bugmes();quit;end
+if ascii(126) <> "~" then bugmes();quit;end
 // == TEST 6 ===================================================================
 NB_CHARACTERS = 400000;
 letters_ascii_code = ones(1,NB_CHARACTERS)*78;
index 3a4606a..41c1584 100644 (file)
 
 // == TEST 1 ===================================================================
 
-if or(ascii('abcdefghijklmnopqrstuvwxyz')<>(97:122)) then pause,end
-if or(ascii(97:122)<>'abcdefghijklmnopqrstuvwxyz') then pause,end
-if ascii('')<>[] then pause,end
-if ascii([])<>'' then pause,end
+if or(ascii("abcdefghijklmnopqrstuvwxyz")<>(97:122)) then pause,end
+if or(ascii(97:122)<>"abcdefghijklmnopqrstuvwxyz") then pause,end
+if ascii("")<>[] then pause,end
+if ascii([])<>"" then pause,end
 
 // == TEST 2 ===================================================================
 
 CODE_ASCII_SCILAB   = [115 99 105 108 97 98];
-str_scilab          = 'scilab';
+str_scilab          = "scilab";
 if ascii(str_scilab) <> CODE_ASCII_SCILAB   then pause,end
 if (ascii(CODE_ASCII_SCILAB) <> str_scilab) then pause,end
 
 // == TEST 3 ===================================================================
 
-if ascii([str_scilab 'a';'b' 'c']) <> [115 99 105 108 97 98 98 97 99] then pause,end
+if ascii([str_scilab "a";"b" "c"]) <> [115 99 105 108 97 98 98 97 99] then pause,end
 
 // == TEST 4 ===================================================================
 
-fd  = mopen(SCI+'/modules/string/tests/unit_tests/text.txt','r');
+fd  = mopen(SCI+"/modules/string/tests/unit_tests/text.txt","r");
 txt = mgetl( fd );
 mclose( fd );
 ASCII_TXT           = ascii(txt);
@@ -41,195 +41,195 @@ if (length(TXT_FROM_ASCII_CODE) <> 27455) then pause,end
 
 // == TEST 5 ===================================================================
 
- if ascii("!") <> 33 then pause,end
- if ascii("""")<> 34 then pause,end
- if ascii("#") <> 35 then pause,end
- if ascii("$") <> 36 then pause,end
- if ascii("%") <> 37 then pause,end
- if ascii("&") <> 38 then pause,end
- if ascii("''")<> 39 then pause,end
- if ascii("(") <> 40 then pause,end
- if ascii(")") <> 41 then pause,end
- if ascii("*") <> 42 then pause,end
- if ascii("+") <> 43 then pause,end
- if ascii(",") <> 44 then pause,end
- if ascii("-") <> 45 then pause,end
- if ascii(".") <> 46 then pause,end
- if ascii("/") <> 47 then pause,end
- if ascii("0") <> 48 then pause,end
- if ascii("1") <> 49 then pause,end
- if ascii("2") <> 50 then pause,end
- if ascii("3") <> 51 then pause,end
- if ascii("4") <> 52 then pause,end
- if ascii("5") <> 53 then pause,end
- if ascii("6") <> 54 then pause,end
- if ascii("7") <> 55 then pause,end
- if ascii("8") <> 56 then pause,end
- if ascii("9") <> 57 then pause,end
- if ascii(":") <> 58 then pause,end
- if ascii(";") <> 59 then pause,end
- if ascii("<") <> 60 then pause,end
- if ascii("=") <> 61 then pause,end
- if ascii(">") <> 62 then pause,end
- if ascii("?") <> 63 then pause,end
- if ascii("@") <> 64 then pause,end
- if ascii("A") <> 65 then pause,end
- if ascii("B") <> 66 then pause,end
- if ascii("C") <> 67 then pause,end
- if ascii("D") <> 68 then pause,end
- if ascii("E") <> 69 then pause,end
- if ascii("F") <> 70 then pause,end
- if ascii("G") <> 71 then pause,end
- if ascii("H") <> 72 then pause,end
- if ascii("I") <> 73 then pause,end
- if ascii("J") <> 74 then pause,end
- if ascii("K") <> 75 then pause,end
- if ascii("L") <> 76 then pause,end
- if ascii("M") <> 77 then pause,end
- if ascii("N") <> 78 then pause,end
- if ascii("O") <> 79 then pause,end
- if ascii("P") <> 80 then pause,end
- if ascii("Q") <> 81 then pause,end
- if ascii("R") <> 82 then pause,end
- if ascii("S") <> 83 then pause,end
- if ascii("T") <> 84 then pause,end
- if ascii("U") <> 85 then pause,end
- if ascii("V") <> 86 then pause,end
- if ascii("W") <> 87 then pause,end
- if ascii("X") <> 88 then pause,end
- if ascii("Y") <> 89 then pause,end
- if ascii("Z") <> 90 then pause,end
- if ascii("[") <> 91 then pause,end
- if ascii("\") <> 92 then pause,end
- if ascii("]") <> 93 then pause,end
- if ascii("^") <> 94 then pause,end
- if ascii("_") <> 95 then pause,end
- if ascii("`") <> 96 then pause,end
- if ascii("a") <> 97 then pause,end
- if ascii("b") <> 98 then pause,end
- if ascii("c") <> 99 then pause,end
- if ascii("d") <> 100 then pause,end
- if ascii("e") <> 101 then pause,end
- if ascii("f") <> 102 then pause,end
- if ascii("g") <> 103 then pause,end
- if ascii("h") <> 104 then pause,end
- if ascii("i") <> 105 then pause,end
- if ascii("j") <> 106 then pause,end
- if ascii("k") <> 107 then pause,end
- if ascii("l") <> 108 then pause,end
- if ascii("m") <> 109 then pause,end
- if ascii("n") <> 110 then pause,end
- if ascii("o") <> 111 then pause,end
- if ascii("p") <> 112 then pause,end
- if ascii("q") <> 113 then pause,end
- if ascii("r") <> 114 then pause,end
- if ascii("s") <> 115 then pause,end
- if ascii("t") <> 116 then pause,end
- if ascii("u") <> 117 then pause,end
- if ascii("v") <> 118 then pause,end
- if ascii("w") <> 119 then pause,end
- if ascii("x") <> 120 then pause,end
- if ascii("y") <> 121 then pause,end
- if ascii("z") <> 122 then pause,end
- if ascii("{") <> 123 then pause,end
- if ascii("|") <> 124 then pause,end
- if ascii("}") <> 125 then pause,end
- if ascii("~") <> 126 then pause,end
-
- if ascii(33) <> "!" then pause,end
- if ascii(34) <> """" then pause,end
- if ascii(35) <> "#" then pause,end
- if ascii(36) <> "$" then pause,end
- if ascii(37) <> "%" then pause,end
- if ascii(38) <> "&" then pause,end
- if ascii(39) <> "''" then pause,end
- if ascii(40) <> "(" then pause,end
- if ascii(41) <> ")" then pause,end
- if ascii(42) <> "*" then pause,end
- if ascii(43) <> "+" then pause,end
- if ascii(44) <> "," then pause,end
- if ascii(45) <> "-" then pause,end
- if ascii(46) <> "." then pause,end
- if ascii(47) <> "/" then pause,end
- if ascii(48) <> "0" then pause,end
- if ascii(49) <> "1" then pause,end
- if ascii(50) <> "2" then pause,end
- if ascii(51) <> "3" then pause,end
- if ascii(52) <> "4" then pause,end
- if ascii(53) <> "5" then pause,end
- if ascii(54) <> "6" then pause,end
- if ascii(55) <> "7" then pause,end
- if ascii(56) <> "8" then pause,end
- if ascii(57) <> "9" then pause,end
- if ascii(58) <> ":" then pause,end
- if ascii(59) <> ";" then pause,end
- if ascii(60) <> "<" then pause,end
- if ascii(61) <> "=" then pause,end
- if ascii(62) <> ">" then pause,end
- if ascii(63) <> "?" then pause,end
- if ascii(64) <> "@" then pause,end
- if ascii(65) <> "A" then pause,end
- if ascii(66) <> "B" then pause,end
- if ascii(67) <> "C" then pause,end
- if ascii(68) <> "D" then pause,end
- if ascii(69) <> "E" then pause,end
- if ascii(70) <> "F" then pause,end
- if ascii(71) <> "G" then pause,end
- if ascii(72) <> "H" then pause,end
- if ascii(73) <> "I" then pause,end
- if ascii(74) <> "J" then pause,end
- if ascii(75) <> "K" then pause,end
- if ascii(76) <> "L" then pause,end
- if ascii(77) <> "M" then pause,end
- if ascii(78) <> "N" then pause,end
- if ascii(79) <> "O" then pause,end
- if ascii(80) <> "P" then pause,end
- if ascii(81) <> "Q" then pause,end
- if ascii(82) <> "R" then pause,end
- if ascii(83) <> "S" then pause,end
- if ascii(84) <> "T" then pause,end
- if ascii(85) <> "U" then pause,end
- if ascii(86) <> "V" then pause,end
- if ascii(87) <> "W" then pause,end
- if ascii(88) <> "X" then pause,end
- if ascii(89) <> "Y" then pause,end
- if ascii(90) <> "Z" then pause,end
- if ascii(91) <> "[" then pause,end
- if ascii(92) <> "\" then pause,end
- if ascii(93) <> "]" then pause,end
- if ascii(94) <> "^" then pause,end
- if ascii(95) <> "_" then pause,end
- if ascii(96) <> "`" then pause,end
- if ascii(97) <> "a" then pause,end
- if ascii(98) <> "b" then pause,end
- if ascii(99) <> "c" then pause,end
- if ascii(100) <> "d" then pause,end
- if ascii(101) <> "e" then pause,end
- if ascii(102) <> "f" then pause,end
- if ascii(103) <> "g" then pause,end
- if ascii(104) <> "h" then pause,end
- if ascii(105) <> "i" then pause,end
- if ascii(106) <> "j" then pause,end
- if ascii(107) <> "k" then pause,end
- if ascii(108) <> "l" then pause,end
- if ascii(109) <> "m" then pause,end
- if ascii(110) <> "n" then pause,end
- if ascii(111) <> "o" then pause,end
- if ascii(112) <> "p" then pause,end
- if ascii(113) <> "q" then pause,end
- if ascii(114) <> "r" then pause,end
- if ascii(115) <> "s" then pause,end
- if ascii(116) <> "t" then pause,end
- if ascii(117) <> "u" then pause,end
- if ascii(118) <> "v" then pause,end
- if ascii(119) <> "w" then pause,end
- if ascii(120) <> "x" then pause,end
- if ascii(121) <> "y" then pause,end
- if ascii(122) <> "z" then pause,end
- if ascii(123) <> "{" then pause,end
- if ascii(124) <> "|" then pause,end
- if ascii(125) <> "}" then pause,end
- if ascii(126) <> "~" then pause,end
+if ascii("!") <> 33 then pause,end
+if ascii("""")<> 34 then pause,end
+if ascii("#") <> 35 then pause,end
+if ascii("$") <> 36 then pause,end
+if ascii("%") <> 37 then pause,end
+if ascii("&") <> 38 then pause,end
+if ascii("''")<> 39 then pause,end
+if ascii("(") <> 40 then pause,end
+if ascii(")") <> 41 then pause,end
+if ascii("*") <> 42 then pause,end
+if ascii("+") <> 43 then pause,end
+if ascii(",") <> 44 then pause,end
+if ascii("-") <> 45 then pause,end
+if ascii(".") <> 46 then pause,end
+if ascii("/") <> 47 then pause,end
+if ascii("0") <> 48 then pause,end
+if ascii("1") <> 49 then pause,end
+if ascii("2") <> 50 then pause,end
+if ascii("3") <> 51 then pause,end
+if ascii("4") <> 52 then pause,end
+if ascii("5") <> 53 then pause,end
+if ascii("6") <> 54 then pause,end
+if ascii("7") <> 55 then pause,end
+if ascii("8") <> 56 then pause,end
+if ascii("9") <> 57 then pause,end
+if ascii(":") <> 58 then pause,end
+if ascii(";") <> 59 then pause,end
+if ascii("<") <> 60 then pause,end
+if ascii("=") <> 61 then pause,end
+if ascii(">") <> 62 then pause,end
+if ascii("?") <> 63 then pause,end
+if ascii("@") <> 64 then pause,end
+if ascii("A") <> 65 then pause,end
+if ascii("B") <> 66 then pause,end
+if ascii("C") <> 67 then pause,end
+if ascii("D") <> 68 then pause,end
+if ascii("E") <> 69 then pause,end
+if ascii("F") <> 70 then pause,end
+if ascii("G") <> 71 then pause,end
+if ascii("H") <> 72 then pause,end
+if ascii("I") <> 73 then pause,end
+if ascii("J") <> 74 then pause,end
+if ascii("K") <> 75 then pause,end
+if ascii("L") <> 76 then pause,end
+if ascii("M") <> 77 then pause,end
+if ascii("N") <> 78 then pause,end
+if ascii("O") <> 79 then pause,end
+if ascii("P") <> 80 then pause,end
+if ascii("Q") <> 81 then pause,end
+if ascii("R") <> 82 then pause,end
+if ascii("S") <> 83 then pause,end
+if ascii("T") <> 84 then pause,end
+if ascii("U") <> 85 then pause,end
+if ascii("V") <> 86 then pause,end
+if ascii("W") <> 87 then pause,end
+if ascii("X") <> 88 then pause,end
+if ascii("Y") <> 89 then pause,end
+if ascii("Z") <> 90 then pause,end
+if ascii("[") <> 91 then pause,end
+if ascii("\") <> 92 then pause,end
+if ascii("]") <> 93 then pause,end
+if ascii("^") <> 94 then pause,end
+if ascii("_") <> 95 then pause,end
+if ascii("`") <> 96 then pause,end
+if ascii("a") <> 97 then pause,end
+if ascii("b") <> 98 then pause,end
+if ascii("c") <> 99 then pause,end
+if ascii("d") <> 100 then pause,end
+if ascii("e") <> 101 then pause,end
+if ascii("f") <> 102 then pause,end
+if ascii("g") <> 103 then pause,end
+if ascii("h") <> 104 then pause,end
+if ascii("i") <> 105 then pause,end
+if ascii("j") <> 106 then pause,end
+if ascii("k") <> 107 then pause,end
+if ascii("l") <> 108 then pause,end
+if ascii("m") <> 109 then pause,end
+if ascii("n") <> 110 then pause,end
+if ascii("o") <> 111 then pause,end
+if ascii("p") <> 112 then pause,end
+if ascii("q") <> 113 then pause,end
+if ascii("r") <> 114 then pause,end
+if ascii("s") <> 115 then pause,end
+if ascii("t") <> 116 then pause,end
+if ascii("u") <> 117 then pause,end
+if ascii("v") <> 118 then pause,end
+if ascii("w") <> 119 then pause,end
+if ascii("x") <> 120 then pause,end
+if ascii("y") <> 121 then pause,end
+if ascii("z") <> 122 then pause,end
+if ascii("{") <> 123 then pause,end
+if ascii("|") <> 124 then pause,end
+if ascii("}") <> 125 then pause,end
+if ascii("~") <> 126 then pause,end
+
+if ascii(33) <> "!" then pause,end
+if ascii(34) <> """" then pause,end
+if ascii(35) <> "#" then pause,end
+if ascii(36) <> "$" then pause,end
+if ascii(37) <> "%" then pause,end
+if ascii(38) <> "&" then pause,end
+if ascii(39) <> "''" then pause,end
+if ascii(40) <> "(" then pause,end
+if ascii(41) <> ")" then pause,end
+if ascii(42) <> "*" then pause,end
+if ascii(43) <> "+" then pause,end
+if ascii(44) <> "," then pause,end
+if ascii(45) <> "-" then pause,end
+if ascii(46) <> "." then pause,end
+if ascii(47) <> "/" then pause,end
+if ascii(48) <> "0" then pause,end
+if ascii(49) <> "1" then pause,end
+if ascii(50) <> "2" then pause,end
+if ascii(51) <> "3" then pause,end
+if ascii(52) <> "4" then pause,end
+if ascii(53) <> "5" then pause,end
+if ascii(54) <> "6" then pause,end
+if ascii(55) <> "7" then pause,end
+if ascii(56) <> "8" then pause,end
+if ascii(57) <> "9" then pause,end
+if ascii(58) <> ":" then pause,end
+if ascii(59) <> ";" then pause,end
+if ascii(60) <> "<" then pause,end
+if ascii(61) <> "=" then pause,end
+if ascii(62) <> ">" then pause,end
+if ascii(63) <> "?" then pause,end
+if ascii(64) <> "@" then pause,end
+if ascii(65) <> "A" then pause,end
+if ascii(66) <> "B" then pause,end
+if ascii(67) <> "C" then pause,end
+if ascii(68) <> "D" then pause,end
+if ascii(69) <> "E" then pause,end
+if ascii(70) <> "F" then pause,end
+if ascii(71) <> "G" then pause,end
+if ascii(72) <> "H" then pause,end
+if ascii(73) <> "I" then pause,end
+if ascii(74) <> "J" then pause,end
+if ascii(75) <> "K" then pause,end
+if ascii(76) <> "L" then pause,end
+if ascii(77) <> "M" then pause,end
+if ascii(78) <> "N" then pause,end
+if ascii(79) <> "O" then pause,end
+if ascii(80) <> "P" then pause,end
+if ascii(81) <> "Q" then pause,end
+if ascii(82) <> "R" then pause,end
+if ascii(83) <> "S" then pause,end
+if ascii(84) <> "T" then pause,end
+if ascii(85) <> "U" then pause,end
+if ascii(86) <> "V" then pause,end
+if ascii(87) <> "W" then pause,end
+if ascii(88) <> "X" then pause,end
+if ascii(89) <> "Y" then pause,end
+if ascii(90) <> "Z" then pause,end
+if ascii(91) <> "[" then pause,end
+if ascii(92) <> "\" then pause,end
+if ascii(93) <> "]" then pause,end
+if ascii(94) <> "^" then pause,end
+if ascii(95) <> "_" then pause,end
+if ascii(96) <> "`" then pause,end
+if ascii(97) <> "a" then pause,end
+if ascii(98) <> "b" then pause,end
+if ascii(99) <> "c" then pause,end
+if ascii(100) <> "d" then pause,end
+if ascii(101) <> "e" then pause,end
+if ascii(102) <> "f" then pause,end
+if ascii(103) <> "g" then pause,end
+if ascii(104) <> "h" then pause,end
+if ascii(105) <> "i" then pause,end
+if ascii(106) <> "j" then pause,end
+if ascii(107) <> "k" then pause,end
+if ascii(108) <> "l" then pause,end
+if ascii(109) <> "m" then pause,end
+if ascii(110) <> "n" then pause,end
+if ascii(111) <> "o" then pause,end
+if ascii(112) <> "p" then pause,end
+if ascii(113) <> "q" then pause,end
+if ascii(114) <> "r" then pause,end
+if ascii(115) <> "s" then pause,end
+if ascii(116) <> "t" then pause,end
+if ascii(117) <> "u" then pause,end
+if ascii(118) <> "v" then pause,end
+if ascii(119) <> "w" then pause,end
+if ascii(120) <> "x" then pause,end
+if ascii(121) <> "y" then pause,end
+if ascii(122) <> "z" then pause,end
+if ascii(123) <> "{" then pause,end
+if ascii(124) <> "|" then pause,end
+if ascii(125) <> "}" then pause,end
+if ascii(126) <> "~" then pause,end
 
 // == TEST 6 ===================================================================
 
index 82b5efe..d8096ad 100644 (file)
@@ -8,7 +8,7 @@
 //==============================================================================
 // blank unit tests
 //==============================================================================
-disp(['xxx' blanks(20) 'yyy']);
+disp(["xxx" blanks(20) "yyy"]);
 !xxx                        yyy  !
 // Test 1
 //LEN_MAX = 20000000; too slow
index 07bc38e..bb98813 100644 (file)
@@ -11,7 +11,7 @@
 // blank unit tests
 //==============================================================================
 
-disp(['xxx' blanks(20) 'yyy']);
+disp(["xxx" blanks(20) "yyy"]);
 
 // Test 1
 //LEN_MAX = 20000000; too slow