Changeset 8222 for sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/tests/test.php

Timestamp:

09/26/13 15:41:49 (11 years ago)

Author:

angelo

Message:

Ticket #3491 - Compatibilizar Expresso com novas versoes do PHP

File:

• sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/tests/test.php (modified) (19 diffs)

sandbox/2.5.1-evolucao/phpgwapi/inc/adodb/tests/test.php

@@ -1 +1 @@
 <?php
 /* 
-V4.80 8 Mar 2006  (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.
+V4.80 8 Mar 2006  (c) 2000-2012 John Lim (jlim#natsoft.com). All rights reserved.
   Released under both BSD license and Lesser GPL library license. 
   Whenever there is any discrepancy between the two licenses, 
@@ -11 +11 @@
 
 
-if (!defined('E_STRICT')) define('E_STRICT',E_NOTICE);
+//if (!defined('E_STRICT')) define('E_STRICT',0);
 error_reporting(E_ALL|E_STRICT);
 
@@ -147 +147 @@
         print "<i>date1</i> (1969-02-20) = ".$db->DBDate('1969-2-20');
         print "<br><i>date1</i> (1999-02-20) = ".$db->DBDate('1999-2-20');
-        print "<br><i>date1.1</i> 1999 = ".$db->DBDate("'1999'");
+        print "<br><i>date1.1</i> 1999 injection attack= ".$db->DBDate("'1999', ' injection attack '");
         print "<br><i>date2</i> (1970-1-2) = ".$db->DBDate(24*3600)."<p>";
         print "<i>ts1</i> (1999-02-20 13:40:50) = ".$db->DBTimeStamp('1999-2-20 1:40:50 pm');
         print "<br><i>ts1.1</i> (1999-02-20 13:40:00) = ".$db->DBTimeStamp('1999-2-20 13:40');
         print "<br><i>ts2</i> (1999-02-20) = ".$db->DBTimeStamp('1999-2-20');
+        print "<br><i>ts2</i> (1999-02-20) = ".$db->DBTimeStamp("'1999-2-20', 'injection attack'");
         print "<br><i>ts3</i> (1970-1-2 +/- timezone) = ".$db->DBTimeStamp(24*3600);
         print "<br> Fractional TS (1999-2-20 13:40:50.91): ".$db->DBTimeStamp($db->UnixTimeStamp('1999-2-20 13:40:50.91+1'));
@@ -484 +485 @@
                 CREATE TABLE PHOTOS
                 (
-                  ID           NUMBER(16),
+                  ID           NUMBER(16) primary key,
                   PHOTO        BLOB,
                   DESCRIPTION  VARCHAR2(4000 BYTE),
@@ -597 +598 @@
                         print "<b>Error in using Cursor Variables 1</b><p>";
                 }
-                $rs->Close();
+                if ($rs) $rs->Close();
                 
                 print "<h4>Testing Stored Procedures for oci8</h4>";
@@ -638 +639 @@
         //$db->debug=1;
         print "<p>Testing Bulk Insert of 3 rows</p>";
+        
+//      $db->debug=1;
+//      $db->Execute('select * from table where val=? AND value=?', array('val'=>'http ://www.whatever.com/test?=21', 'value'=>'blabl'));
+
 
         $sql = "insert into ADOXYZ (id,firstname,lastname) values (".$db->Param('0').",".$db->Param('1').",".$db->Param('2').")";
+        $db->bulkBind = true;
         $db->StartTrans();
+        $db->debug=99;
         $db->Execute($sql,$arr);
         $db->CompleteTrans();
+        $db->bulkBind = false;
         $rs = $db->Execute('select * from ADOXYZ order by id');
         if (!$rs || $rs->RecordCount() != 3) Err("Bad bulk insert");
@@ -842 +850 @@
         
         print "<p>CacheSelectLimit  Test...</p>";
-        $db->debug=1;
         $rs = $db->CacheSelectLimit('select  id, firstname from  ADOXYZ order by id',2);
+        
+        if (ADODB_ASSOC_CASE == 2 || $db->dataProvider == 'oci8') {
+                $id = 'ID';
+                $fname = 'FIRSTNAME';
+        }else {
+                $id = 'id';
+                $fname = 'firstname';
+        }
+        
         
         if ($rs && !$rs->EOF) {
@@ -850 +866 @@
                         print_r($rs->fields);
                 }
-                if ($rs->fields['id'] != 1)  {Err("Error"); print_r($rs->fields);};
-                if (trim($rs->fields['firstname']) != 'Caroline')  {print Err("Error 2"); print_r($rs->fields);};
+                if ($rs->fields[$id] != 1)  {Err("Error"); print_r($rs->fields);};
+                if (trim($rs->fields[$fname]) != 'Caroline')  {print Err("Error 2"); print_r($rs->fields);};
                 
                 $rs->MoveNext();
-                if ($rs->fields['id'] != 2)  {Err("Error 3"); print_r($rs->fields);};
+                if ($rs->fields[$id] != 2)  {Err("Error 3"); print_r($rs->fields);};
                 $rs->MoveNext();
                 if (!$rs->EOF) {
@@ -862 +878 @@
         }
         
-        print "<p>FETCH_MODE = ASSOC: Should get 1, Caroline</p>";
+        print "<p>FETCH_MODE = ASSOC: Should get 1, Caroline ASSOC_CASE=".ADODB_ASSOC_CASE."</p>";
         $rs = $db->SelectLimit('select id,firstname from ADOXYZ order by id',2);
         if ($rs && !$rs->EOF) {
-                if (ADODB_ASSOC_CASE == 2) {
-                        $id = 'ID';
-                        $fname = 'FIRSTNAME';
-                }else {
-                        $id = 'id';
-                        $fname = 'firstname';
-                }
+
                 if ($rs->fields[$id] != 1)  {Err("Error 1"); print_r($rs->fields);};
                 if (trim($rs->fields[$fname]) != 'Caroline')  {Err("Error 2"); print_r($rs->fields);};
@@ -888 +898 @@
         $rs = $db->SelectLimit('select id,firstname from ADOXYZ order by id',1);
         if ($rs && !$rs->EOF) {
-                if (isset($rs->fields['id'])) Err("FETCH_NUM has ASSOC fields");
+                if (isset($rs->fields[$id])) Err("FETCH_NUM has ASSOC fields");
                 if ($rs->fields[0] != 1)  {Err("Error 1"); print_r($rs->fields);};
                 if (trim($rs->fields[1]) != 'Caroline')  {Err("Error 2");print_r($rs->fields);};
@@ -902 +912 @@
         if ($rs && !$rs->EOF) {
                 $arr = $rs->GetRowAssoc();
-                if ($arr['ID'] != 1) {Err("Error 1");print_r($arr);};
-                if (trim($arr['FIRSTNAME']) != 'Caroline') {Err("Error 2"); print_r($arr);};
+                
+                if ($arr[strtoupper($id)] != 1) {Err("Error 1");print_r($arr);};
+                if (trim($arr[strtoupper($fname)]) != 'Caroline') {Err("Error 2"); print_r($arr);};
                 $rs->MoveNext();
                 if (!$rs->EOF) Err("Error EOF");
@@ -919 +930 @@
         print "<p>GetCol Test</p>";
         $col = $db->GetCol('select distinct firstname from ADOXYZ order by 1');
+        if (!is_array($col)) Err("Col size is wrong");
+        if (trim($col[0]) != 'Alan' or trim($col[9]) != 'Yat Sun') Err("Col elements wrong");
+        
+        
+        $col = $db->CacheGetCol('select distinct firstname from ADOXYZ order by 1');
         if (!is_array($col)) Err("Col size is wrong");
         if (trim($col[0]) != 'Alan' or trim($col[9]) != 'Yat Sun') Err("Col elements wrong");
@@ -1087 +1103 @@
         }
         print "Testing GetAssoc() ";
+        
+        
+        if ($db->dataProvider == 'mysql') {
+                $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
+                $arr = $db->GetAssoc("SELECT 'adodb', '0'");
+                var_dump($arr);
+                die();
+        }
+        
         $savecrecs = $ADODB_COUNTRECS;
         $ADODB_COUNTRECS = false;
@@ -1167 +1192 @@
         $rs = $db->CacheExecute(6,"select distinct firstname,lastname from ADOXYZ");
         print_r($rs->fields); echo $rs->fetchMode;echo "<br>";
-        echo $rs->Fields('firstname');
+        echo $rs->Fields($fname);
         
         $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
         $rs = $db->CacheExecute(6,"select distinct firstname,lastname from ADOXYZ");
         print_r($rs->fields);echo "<br>";
-        echo $rs->Fields('firstname');
+        echo $rs->Fields($fname);
         $db->debug = false;
         
@@ -1214 +1239 @@
         echo "<p> GenID test: ";
         for ($i=1; $i <= 10; $i++) 
-                echo  "($i: ",$val = $db->GenID($db->databaseType.'abcseq6' ,5), ") ";
+                echo  "($i: ",$val = $db->GenID($db->databaseType.'abcseq7' ,5), ") ";
         if ($val == 0) Err("GenID not supported");
         
@@ -1328 +1353 @@
                 print "</pre>";
         }
-        print " CacheFlush ";
-        $db->CacheFlush();
+        #print " CacheFlush ";
+        #$db->CacheFlush();
         
         $date = $db->SQLDate('d-m-M-Y-\QQ h:i:s A');
@@ -1436 +1461 @@
         else Err("Pivot sql error");
         
-        $pear = true; //true;
+        $pear = false; //true;
         $db->debug=false;
         
@@ -1710 +1735 @@
         $$k = $v;
 }       
-if (strpos(PHP_VERSION,'5') === 0) {
-        //$testaccess=1;
-        //$testmssql = 1;
-        //$testsqlite=1;
-}
+
 ?>
 <html>
@@ -1730 +1751 @@
         <a href=test-perf.php>Perf Monitor</a><p>
 <?php
-include('./testdatabases.inc.php');
-
-echo "<br>vers=",ADOConnection::Version();
 
 
 include_once('../adodb-time.inc.php');
 if (isset($_GET['time'])) adodb_date_test();
+flush();
+
+include_once('./testdatabases.inc.php');
+
+echo "<br>vers=",ADOConnection::Version();
+
+
 
 ?>
-<p><i>ADODB Database Library  (c) 2000-2007 John Lim. All rights reserved. Released under BSD and LGPL, PHP <?php echo PHP_VERSION ?>.</i></p>
+<p><i>ADODB Database Library  (c) 2000-2012 John Lim. All rights reserved. Released under BSD and LGPL, PHP <?php echo PHP_VERSION ?>.</i></p>
 </body>
 </html>