tests/011.phpt

   1 --TEST--
   2 Array handling tests PHP=>LUA=>PHP
   3 --SKIPIF--
   4 <?php if (!extension_loaded("lua")) print "skip"; ?>
   5 --FILE--
   6 <?php
   7 $pautz=array("hund"=>"ja","ne",array("test"),array("mann",array("ja","aber ne")),"rumms");
   8 var_dump($pautz);
   9 $lua=new lua;
  10 $lua->pautz=$pautz;
  11
  12 $lua->katze="hundemann";
  13 $lua->evaluate("
  14 function dump_table(t,lvl)
  15   print('==============\\n')
  16   for i,v in ipairs(t)
  17   do
  18     print(string.rep('  ',lvl),i,'=>')
  19     if type(v)=='table' then
  20       print('isse table :S\\n')
  21       dump_table(v,lvl+1)
  22     else
  23       print(v,'\\n')
  24     end
  25
  26   end
  27   print('==============\\n')
  28 end
  29
  30 hund={}
  31 def={1,2,3,5,{4.3,5},hass={peter=1,3,\"hund\"},20,30}
  32 hass=2
  33
  34 print(\"Pautz\",pautz,\"\\n\")
  35 print(\"Hund\",hund,\"\\n\")
  36 print(\"Def\",def,\"\\n\")
  37
  38 pautz[100]='asdf'
  39 dump_table(def,0)
  40 dump_table(pautz,0)
  41 print('HUNDEMANN IST => ',katze,'\\n')
  42 ");
  43 var_dump($lua->def);
  44 var_dump($lua->hund);
  45 var_dump($lua->hass);
  46 var_dump($lua->pautz);
  47 ?>
  48 --EXPECTF--
  49 array(5) {
  50   ["hund"]=>
  51   string(2) "ja"
  52   [0]=>
  53   string(2) "ne"
  54   [1]=>
  55   array(1) {
  56     [0]=>
  57     string(4) "test"
  58   }
  59   [2]=>
  60   array(2) {
  61     [0]=>
  62     string(4) "mann"
  63     [1]=>
  64     array(2) {
  65       [0]=>
  66       string(2) "ja"
  67       [1]=>
  68       string(7) "aber ne"
  69     }
  70   }
  71   [3]=>
  72   string(5) "rumms"
  73 }
  74
  75 Warning: main(): Trying to push array index 0 to lua which is unsupported in lua. Element has been discarded in /home/mop/projekte/phplua/tests/011.php on line 5
  76
  77 Warning: main(): Trying to push array index 0 to lua which is unsupported in lua. Element has been discarded in /home/mop/projekte/phplua/tests/011.php on line 5
  78
  79 Warning: main(): Trying to push array index 0 to lua which is unsupported in lua. Element has been discarded in /home/mop/projekte/phplua/tests/011.php on line 5
  80
  81 Warning: main(): Trying to push array index 0 to lua which is unsupported in lua. Element has been discarded in /home/mop/projekte/phplua/tests/011.php on line 5
  82 Pautz(null)
  83 Hund(null)
  84 Def(null)
  85 ==============
  86 1=>1
  87 2=>2
  88 3=>3
  89 4=>5
  90 5=>isse table :S
  91 ==============
  92   1=>4.3
  93   2=>5
  94 ==============
  95 6=>20
  96 7=>30
  97 ==============
  98 ==============
  99 1=>isse table :S
 100 ==============
 101 ==============
 102 2=>isse table :S
 103 ==============
 104   1=>isse table :S
 105 ==============
 106     1=>aber ne
 107 ==============
 108 ==============
 109 3=>rumms
 110 ==============
 111 HUNDEMANN IST => hundemann
 112 array(8) {
 113   [1]=>
 114   float(1)
 115   [2]=>
 116   float(2)
 117   [3]=>
 118   float(3)
 119   [4]=>
 120   float(5)
 121   [5]=>
 122   array(2) {
 123     [1]=>
 124     float(4.3)
 125     [2]=>
 126     float(5)
 127   }
 128   [6]=>
 129   float(20)
 130   [7]=>
 131   float(30)
 132   ["hass"]=>
 133   array(3) {
 134     [1]=>
 135     float(3)
 136     [2]=>
 137     string(4) "hund"
 138     ["peter"]=>
 139     float(1)
 140   }
 141 }
 142 array(0) {
 143 }
 144 float(2)
 145 array(5) {
 146   [1]=>
 147   array(0) {
 148   }
 149   [2]=>
 150   array(1) {
 151     [1]=>
 152     array(1) {
 153       [1]=>
 154       string(7) "aber ne"
 155     }
 156   }
 157   [3]=>
 158   string(5) "rumms"
 159   [100]=>
 160   string(4) "asdf"
 161   ["hund"]=>
 162   string(2) "ja"
 163 }