tests/007.phpt

   1 --TEST--
   2 Array handling test php->lua
   3 --SKIPIF--
   4 <?php if (!extension_loaded("lua")) print "skip"; ?>
   5 --FILE--
   6 <?php
   7 $arr = array(3,4,5,array("test1","test2","test3",array(1=>1,2=>2.5,3=>false,4=>NULL)));
   8 $l   = new lua();
   9 $l->arr=$arr;
  10 $l->evaluate(<<<CODE
  11 function dump_table(t,lvl)
  12   print('==============\\n')
  13   for i,v in ipairs(t)
  14   do
  15     print(string.rep('  ',lvl),i,'=>')
  16     if type(v)=='table' then
  17       print('SUBTABLE\\n')
  18       dump_table(v,lvl+1)
  19     else
  20       print(v,'(',type(v),')\\n')
  21     end
  22   end
  23   print('==============\\n')
  24 end
  25
  26 dump_table(arr,0)
  27 CODE
  28 );
  29 ?>
  30 --EXPECTF--
  31 Warning: main(): Trying to push array index 0 to lua which is unsupported in lua. Element has been discarded in %s
  32
  33 Warning: main(): Trying to push array index 0 to lua which is unsupported in lua. Element has been discarded in %s
  34 ==============
  35 1=>4(number)
  36 2=>5(number)
  37 3=>SUBTABLE
  38 ==============
  39   1=>test2(string)
  40   2=>test3(string)
  41   3=>SUBTABLE
  42 ==============
  43     1=>1(number)
  44     2=>2.5(number)
  45     3=>(null)(boolean)
  46 ==============
  47 ==============
  48 ==============