dlls/jscript/tests/cc.js

   1 /*
   2  * Copyright 2010 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 eval("@_jscript_version");
  20
  21 var tmp;
  22
  23 /*@ */
  24 //@cc_on @*/
  25
  26 @_jscript_version;
  27
  28 @cc_on
  29 @*/
  30
  31 // Standard predefined variabled
  32 if(isWin64) {
  33     ok(@_win64 === true, "@_win64 = " + @_win64);
  34     ok(@_amd64 === true, "@_amd64 = " + @_amd64);
  35     ok(isNaN(@_win32), "@_win32 = " + @_win32);
  36     ok(isNaN(@_x86), "@_x86 = " + @_x86);
  37 }else {
  38     ok(@_win32 === true, "@_win32 = " + @_win32);
  39     ok(@_x86 === true, "@_x86 = " + @_x86);
  40     ok(isNaN(@_win64), "@_win64 = " + @_win64);
  41     ok(isNaN(@_amd64), "@_amd64 = " + @_amd64);
  42 }
  43
  44 ok(@_jscript === true, "@_jscript = " + @_jscript);
  45 ok(@_jscript_build === ScriptEngineBuildVersion(),
  46    "@_jscript_build = " + @_jscript_build + " expected " + ScriptEngineBuildVersion());
  47 tmp = ScriptEngineMajorVersion() + ScriptEngineMinorVersion()/10;
  48 ok(@_jscript_version === tmp, "@_jscript_version = " + @_jscript_version + " expected " + tmp);
  49 ok(isNaN(@_win16), "@_win16 = " + @_win16);
  50 ok(isNaN(@_mac), "@_mac = " + @_mac);
  51 ok(isNaN(@_alpha), "@_alpha = " + @_alpha);
  52 ok(isNaN(@_mc680x0), "@_mc680x0 = " + @_mc680x0);
  53 ok(isNaN(@_PowerPC), "@_PowerPC = " + @_PowerPC);
  54
  55 // Undefined variable
  56 ok(isNaN(@xxx), "@xxx = " + @xxx);
  57 ok(isNaN(@x$_xx), "@x$_xx = " + @x$_xx);
  58
  59 tmp = false;
  60 try {
  61     eval("/*@cc_on */");
  62 }catch(e) {
  63     tmp = true;
  64 }
  65 ok(tmp, "expected syntax exception");
  66
  67 tmp = false;
  68 try {
  69     eval("/*@_jscript_version */");
  70 }catch(e) {
  71     tmp = true;
  72 }
  73 ok(tmp, "expected syntax exception");
  74
  75 ok(isNaN(@test), "@test = " + @test);
  76
  77 @set @test = 1
  78 ok(@test === 1, "@test = " + @test);
  79
  80 @set @test = 0
  81 ok(@test === 0, "@test = " + @test);
  82
  83 tmp = false
  84 @set @test = @test tmp=true
  85 ok(@test === 0, "@test = " + @test);
  86 ok(tmp, "expr after @set not evaluated");
  87
  88 @set @test = !@test
  89 ok(@test === true, "@test = " + @test);
  90
  91 @set @test = (@test+1+true)
  92 ok(@test === 3, "@test = " + @test);
  93
  94 @set
  95  @test
  96  =
  97  2
  98 ok(@test === 2, "@test = " + @test);
  99
 100 @set
 101  @test
 102  =
 103  (
 104  2
 105  +
 106  2
 107  )
 108 ok(@test === 4, "@test = " + @test);
 109
 110 @set @test = 2.5
 111 ok(@test === 2.5, "@test = " + @test);
 112
 113 @set @test = 0x4
 114 ok(@test === 4, "@test = " + @test);
 115
 116 @set @test = (2 + 2/2)
 117 ok(@test === 3, "@test = " + @test);
 118
 119 @set @test = (false+false)
 120 ok(@test === 0, "@test = " + @test);
 121
 122 @set @test = ((1+1)*((3)+1))
 123 ok(@test === 8, "@test = " + @test);
 124
 125 @set @_test = true
 126 ok(@_test === true, "@_test = " + @_test);
 127
 128 @set @$test = true
 129 ok(@$test === true, "@$test = " + @$test);
 130
 131 @set @newtest = (@newtest != @newtest)
 132 ok(@newtest === true, "@newtest = " + @newtest);
 133
 134 @set @test = (false != 0)
 135 ok(@test === false, "@test = " + @test);
 136
 137 @set @test = (1 != true)
 138 ok(@test === false, "@test = " + @test);
 139
 140 @set @test = (0 != true)
 141 ok(@test === true, "@test = " + @test);
 142
 143 @set @test = (true-2)
 144 ok(@test === -1, "@test = " + @test);
 145
 146 @set @test = (true-@_jscript)
 147 ok(@test === 0, "@test = " + @test);
 148
 149 @set @test = (true==1)
 150 ok(@test === true, "@test = " + @test);
 151
 152 @set @test = (1==false+1)
 153 ok(@test === true, "@test = " + @test);
 154
 155 function expect(val, exval) {
 156     ok(val === exval, "got " + val + " expected " + exval);
 157 }
 158
 159 @set @test = (false < 0.5)
 160 expect(@test, true);
 161
 162 @set @test = (true == 0 < 0.5)
 163 expect(@test, true);
 164
 165 @set @test = (false < 0)
 166 expect(@test, false);
 167
 168 @set @test = (false > 0.5)
 169 expect(@test, false);
 170
 171 @set @test = (1 < true)
 172 expect(@test, false);
 173
 174 @set @test = (1 <= true)
 175 expect(@test, true);
 176
 177 @set @test = (1 >= true)
 178 expect(@test, true);
 179
 180 @set @test = (1 >= true-1)
 181 expect(@test, true);
 182
 183 @set @test = (true && true)
 184 expect(@test, true);
 185
 186 @set @test = (false && true)
 187 expect(@test, false);
 188
 189 @set @test = (true && false)
 190 expect(@test, false);
 191
 192 @set @test = (false && false)
 193 expect(@test, false);
 194
 195 if(!isWin64) {
 196 @set @test = (@_win32&&@_jscript_version>=5)
 197 expect(@test, true);
 198 }
 199
 200 @if (false)
 201     this wouldn not parse
 202 "@end
 203
 204 @if (false) "@end
 205
 206 tmp = "@if (false) @end";
 207 ok(tmp.length === 16, "tmp.length = " + tmp.length);
 208
 209 @if(true)
 210 tmp = true
 211 @end
 212 ok(tmp === true, "tmp = " + tmp);
 213
 214 @if(false)
 215 @if this would not CC parse
 216 this will not parse
 217 @elif(true)
 218 this will also not parse
 219 @else
 220 this also will not parse
 221 @if let me complicate things a bit
 222 @end enough
 223 @end
 224 @end
 225
 226 @if(false)
 227 this will not parse
 228 @else
 229 tmp = 2
 230 @else
 231 this will not be parsed
 232 @else
 233 also this
 234 @end
 235 ok(tmp === 2, "tmp = " + tmp);
 236
 237 @if(true)
 238 tmp = 3;
 239 @else
 240 just skip this
 241 @end
 242 ok(tmp === 3, "tmp = " + tmp);
 243
 244 @if(true)
 245 tmp = 4;
 246 @elif(true)
 247 this will not parse
 248 @elif nor this
 249 @else
 250 just skip this
 251 @end
 252 ok(tmp === 4, "tmp = " + tmp);
 253
 254 @if(false)
 255 this will not parse
 256 @elif(false)
 257 nor this would
 258 @elif(true)
 259 tmp = 5;
 260 @elif nor this
 261 @else
 262 just skip this
 263 @end
 264 ok(tmp === 5, "tmp = " + tmp);
 265
 266 @if (!@_jscript)
 267 this would not parse
 268 @if(true)
 269 @else
 270 @if(false)
 271 @end
 272 @end
 273 @elif (@_jscript)
 274 tmp = 6;
 275 @elif (true)
 276 @if xxx
 277 @else
 278 @if @elif @elif @else @end
 279 @end
 280 @else
 281 this would not parse
 282 @end
 283 ok(tmp === 6, "tmp = " + tmp);
 284
 285 @if(true)
 286 @if(false)
 287 @else
 288 tmp = 7;
 289 @end
 290 @else
 291 this would not parse
 292 @end
 293 ok(tmp === 7, "tmp = " + tmp);
 294
 295 var exception_map = {
 296     JS_E_SYNTAX:               {type: "SyntaxError", number: -2146827286},
 297     JS_E_MISSING_LBRACKET:     {type: "SyntaxError", number: -2146827283},
 298     JS_E_EXPECTED_IDENTIFIER:  {type: "SyntaxError", number: -2146827278},
 299     JS_E_EXPECTED_ASSIGN:      {type: "SyntaxError", number: -2146827277},
 300     JS_E_EXPECTED_CCEND:       {type: "SyntaxError", number: -2146827259},
 301     JS_E_EXPECTED_AT:          {type: "SyntaxError", number: -2146827256}
 302 };
 303
 304 function testException(src, id) {
 305     var ex = exception_map[id];
 306     var ret = "", num = "";
 307
 308     try {
 309         eval(src);
 310     } catch(e) {
 311         ret = e.name;
 312         num = e.number;
 313     }
 314
 315     ok(ret === ex.type, "Exception test, ret = " + ret + ", expected " + ex.type +". Executed code: " + src);
 316     ok(num === ex.number, "Exception test, num = " + num + ", expected " + ex.number + ". Executed function: " + src);
 317 }
 318
 319 testException("@set test=true", "JS_E_EXPECTED_AT");
 320 testException("@set @1=true", "JS_E_EXPECTED_IDENTIFIER");
 321 testException("@set @test x=true", "JS_E_EXPECTED_ASSIGN");
 322 testException("@if false\n@end", "JS_E_MISSING_LBRACKET");
 323 testException("@if (false)\n", "JS_E_EXPECTED_CCEND");
 324 testException("@end\n", "JS_E_SYNTAX");
 325 testException("@elif\n", "JS_E_SYNTAX");
 326 testException("@else\n", "JS_E_SYNTAX");
 327 testException("@if false\n@elif true\n@end", "JS_E_MISSING_LBRACKET");
 328
 329 reportSuccess();