testsuite/actionscript.all/enumerate.as

   1  //
   2 //   Copyright (C) 2007, 2009, 2010, 2011, 2017 Free Software Foundation, Inc.
   3 //
   4 // This program is free software; you can redistribute it and/or modchecky
   5 // it under the terms of the GNU General Public License as published by
   6 // the Free Software Foundation; either version 3 of the License, or
   7 // (at your option) any later version.
   8 //
   9 // This program 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
  12 // GNU General Public License for more details.
  13 //
  14 // You should have received a copy of the GNU General Public License
  15 // along with this program; check not, write to the Free Software
  16 // Foundation, Inc., 51 Franklin St, Fcheckth Floor, Boston, MA  02110-1301  USA
  17 //
  18
  19 /*
  20  *  Zou Lunkai, zoulunkai@gmail.com
  21  *
  22  *  Test ActionEnumerate/2
  23  */
  24
  25
  26 rcsid="enumerate.as";
  27 #include "check.as"
  28
  29 #if OUTPUT_VERSION > 5
  30
  31 //
  32 // enumerate characters of a sprite
  33 //
  34 {
  35   // Create a recorder and init it.
  36   recorder =  new Array(10);
  37   for(i=0; i<10; i++){
  38     recorder['mc'+i] = 0;
  39   }
  40
  41   // Create six characters
  42   for(i=0; i<6; i++){
  43     _root.createEmptyMovieClip('mc'+i, i+1);
  44   }
  45
  46   // Use the recorder to record the enumerated results in _root
  47   i = 0;
  48   for (var j in _root){
  49     recorder[j.toString()] = _root[j];
  50     i++;
  51   }
  52
  53   // Test what we got in the above step. Tests show that characters were also got enumerated!
  54   check_equals(typeof(recorder['mc0']), 'movieclip');
  55   check_equals(typeof(recorder['mc1']), 'movieclip');
  56   check_equals(typeof(recorder['mc2']), 'movieclip');
  57   check_equals(typeof(recorder['mc3']), 'movieclip');
  58   check_equals(typeof(recorder['mc4']), 'movieclip');
  59   check_equals(typeof(recorder['mc5']), 'movieclip');
  60   check_equals(_root.hasOwnProperty('mc0'), false);
  61   check_equals(_root.hasOwnProperty('mc1'), false);
  62   check_equals(_root.hasOwnProperty('mc2'), false);
  63   check_equals(_root.hasOwnProperty('mc3'), false);
  64   check_equals(_root.hasOwnProperty('mc4'), false);
  65   check_equals(_root.hasOwnProperty('mc5'), false);
  66   delete recorder;
  67 }
  68
  69 //
  70 // enumerate properties of an AS object
  71 //
  72 {
  73   recorder =  new Array(10);
  74
  75   // initialize the recorder
  76   for(i=0; i<10; i++){
  77     recorder['x'+i] = 0;
  78   }
  79
  80   obj = new Object();
  81   obj.x1 = function () {};
  82   obj.x2 = 1;
  83   obj.x3 = Array();
  84
  85   i = 0;
  86   for (var j in obj){
  87     // equivalent to recorder[j.toString()] = obj[j.toString()];
  88     recorder[j.toString()] = obj[j];
  89     i++;
  90   }
  91
  92   check_equals(typeof(recorder['x1']), 'function');
  93   check_equals(typeof(recorder['x2']), 'number');
  94   check_equals(typeof(recorder['x3']), 'object');
  95   check_equals(obj.hasOwnProperty('x1'), true);
  96   check_equals(obj.hasOwnProperty('x2'), true);
  97   check_equals(obj.hasOwnProperty('x3'), true);
  98   delete recorder;
  99 }
 100
 101 enumerateObj = function(object) {
 102    list = "";
 103     for (el in object) {
 104         list += el + ",";
 105     }
 106     return list;
 107 };
 108
 109 /// Try different enumerations.
 110 {
 111     list = "";
 112     o = {};
 113
 114     o.a = 3;
 115     check_equals(enumerateObj(o), "a,");
 116
 117     o.b = "string";
 118     check_equals(enumerateObj(o), "b,a,");
 119
 120     o["el"] = 5;
 121     check_equals(enumerateObj(o), "el,b,a,");
 122
 123     o[8] = new Date();
 124     check_equals(enumerateObj(o), "8,el,b,a,");
 125
 126     o.b = 8;
 127     check_equals(enumerateObj(o), "8,el,b,a,");
 128
 129     delete o.b;
 130     check_equals(enumerateObj(o), "8,el,a,");
 131
 132     o.b = "string again";
 133     check_equals(enumerateObj(o), "b,8,el,a,");
 134
 135     r = o.u;
 136     check_equals(enumerateObj(o), "b,8,el,a,");
 137
 138     t = {};
 139     o[t] = 9;
 140     check_equals(enumerateObj(o), "[object Object],b,8,el,a,");
 141
 142     delete o["8"];
 143     check_equals(enumerateObj(o), "[object Object],b,el,a,");
 144
 145     o.c = Object.prototype.toString;
 146     check_equals(enumerateObj(o), "c,[object Object],b,el,a,");
 147
 148     o[9] = 7;
 149     check_equals(enumerateObj(o), "9,c,[object Object],b,el,a,");
 150
 151     o["6"] = 8;
 152     check_equals(enumerateObj(o), "6,9,c,[object Object],b,el,a,");
 153
 154 }
 155
 156 extras = 0;
 157
 158 #ifdef MING_SUPPORTS_ASM
 159  extras += 6;
 160
 161 // The first test (enumerate) is possible with any asm-supporting ming,
 162 // the second only with version from 2009-05-20 or later.
 163  a = new Object();
 164  a.a = 1;
 165  a.b = "string";
 166
 167  var r0, r1, r2, r3, r4;
 168
 169
 170  // We make sure the stack is clear, then push 'stackfirst', then enumerate
 171  // and see what all the stack values are.
 172  asm {
 173     pop
 174     pop
 175     push 'stackfirst'
 176     push 'a'
 177     enumerate
 178     setregister r:0
 179     push 'r0', r:0
 180     setvariable
 181     pop
 182     setregister r:1
 183     push 'r1', r:1
 184     setvariable
 185     pop
 186     setregister r:2
 187     push 'r2', r:2
 188     setvariable
 189     pop
 190     setregister r:3
 191     push 'r3', r:3
 192     setvariable
 193     pop
 194     setregister r:4
 195     push 'r4', r:4
 196     setvariable
 197     pop
 198  };
 199
 200  check_equals(r0, "b");
 201  check_equals(r1, "a");
 202  check_equals(r2, undefined);
 203
 204  // Use strictly equals to check that it isn't "null"
 205  check(r2 === undefined);
 206
 207  check_equals(r3, "stackfirst");
 208  check_equals(r4, undefined);
 209 #endif
 210
 211 #if MING_VERSION_CODE >= 40004
 212  extras += 6;
 213
 214  // Do the same for enum2
 215  asm {
 216     pop
 217     pop
 218     push 'stackfirst'
 219     push 'a'
 220     getvariable
 221     enumerate2
 222     setregister r:0
 223     push 'r0', r:0
 224     setvariable
 225     pop
 226     setregister r:1
 227     push 'r1', r:1
 228     setvariable
 229     pop
 230     setregister r:2
 231     push 'r2', r:2
 232     setvariable
 233     pop
 234     setregister r:3
 235     push 'r3', r:3
 236     setvariable
 237     pop
 238     setregister r:4
 239     push 'r4', r:4
 240     setvariable
 241     pop
 242  };
 243
 244  check_equals(r0, "b");
 245  check_equals(r1, "a");
 246  check_equals(r2, undefined);
 247
 248  // Use strictly equals to check that it isn't "null"
 249  check(r2 === undefined);
 250
 251  check_equals(r3, "stackfirst");
 252  check_equals(r4, undefined);
 253 #endif
 254
 255 totals(31 + extras);
 256
 257 #else
 258 totals(0);
 259 #endif  // OUTPUT_VERSION > 5
 260
 261