Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
LibTest.php	3.37 KB	-rw-r--r--	2023-01-22 09:53
benchmark.php	2.41 KB	-rw-r--r--	2023-01-22 09:53
pdo.php	2.4 KB	-rw-r--r--	2023-01-22 09:53
test-active-record.php	5.23 KB	-rw-r--r--	2023-01-22 09:53
test-active-recs2.php	2.12 KB	-rw-r--r--	2023-01-22 09:53
test-active-relations.php	3.67 KB	-rw-r--r--	2023-01-22 09:53
test-active-relationsx.php	25.16 KB	-rw-r--r--	2023-01-22 09:53
test-datadict.php	7.84 KB	-rw-r--r--	2023-01-22 09:53
test-perf.php	1.58 KB	-rw-r--r--	2023-01-22 09:53
test-pgblob.php	2.69 KB	-rw-r--r--	2023-01-22 09:53
test-php5.php	2.91 KB	-rw-r--r--	2023-01-22 09:53
test-xmlschema.php	1.96 KB	-rw-r--r--	2023-01-22 09:53
test.php	54.87 KB	-rw-r--r--	2023-01-22 09:53
test2.php	1.26 KB	-rw-r--r--	2023-01-22 09:53
test3.php	1.3 KB	-rw-r--r--	2023-01-22 09:53
test4.php	4.84 KB	-rw-r--r--	2023-01-22 09:53
test5.php	1.7 KB	-rw-r--r--	2023-01-22 09:53
test_mssqlnative.php	5.33 KB	-rw-r--r--	2023-01-22 09:53
test_rs_array.php	1.37 KB	-rw-r--r--	2023-01-22 09:53
testcache.php	1.14 KB	-rw-r--r--	2023-01-22 09:53
testdatabases.inc.php	17.55 KB	-rw-r--r--	2023-01-22 09:53
testgenid.php	1.41 KB	-rw-r--r--	2023-01-22 09:53
testmssql.php	2.3 KB	-rw-r--r--	2023-01-22 09:53
testoci8.php	2.67 KB	-rw-r--r--	2023-01-22 09:53
testoci8cursor.php	3.21 KB	-rw-r--r--	2023-01-22 09:53
testpaging.php	2.62 KB	-rw-r--r--	2023-01-22 09:53
testpear.php	1.21 KB	-rw-r--r--	2023-01-22 09:53
testsessions.php	2.83 KB	-rw-r--r--	2023-01-22 09:53
time.php	1.21 KB	-rw-r--r--	2023-01-22 09:53
tmssql.php	2.54 KB	-rw-r--r--	2023-01-22 09:53
xmlschema-mssql.xml	832 B	-rw-r--r--	2023-01-22 09:53
xmlschema.xml	961 B	-rw-r--r--	2023-01-22 09:53

Rename

<?php
/**
 * ADOdb tests.
 *
 * This file is part of ADOdb, a Database Abstraction Layer library for PHP.
 *
 * @package ADOdb
 * @link https://adodb.org Project's web site and documentation
 * @link https://github.com/ADOdb/ADOdb Source code and issue tracker
 *
 * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause
 * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option,
 * any later version. This means you can use it in proprietary products.
 * See the LICENSE.md file distributed with this source code for details.
 * @license BSD-3-Clause
 * @license LGPL-2.1-or-later
 *
 * @copyright 2000-2013 John Lim
 * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community
 */

error_reporting(E_ALL|E_STRICT);

include('../adodb.inc.php');
// -------- Internal Trace functions
function Trace($Msg){
 echo " \n".$Msg;
}
function DieTrace($Msg){
 die(" \n".$Msg);
}

define('ADODB_ASSOC_CASE',0);
$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
$db = ADONewConnection("mssqlnative");  // create a connection
$db->Connect('127.0.0.1','adodb','natsoft','northwind') or die('Fail');

//==========================
// This code tests GenId
//==========================
function TestGenID() {
  global $db;
  $PrevDebug=$db->debug;  $db->debug=false; // Hide debug if present as Drop can cause errors
  $db->Execute("drop sequence MySequence1;
drop sequence MySequence2;
drop sequence MySequence3;
drop table MySequence1Emul;
drop table MySequence2Emul;
drop table MySequence3Emul;
");
  $db->debug=$PrevDebug; // Restore debug Initial State

$ID1a=$db->GenID("MySequence1");
  $ID2a=$db->GenID("MySequence2");
  $ID1b=$db->GenID("MySequence1");
  $ID2b=$db->GenID("MySequence2");
  Trace("ID1a=$ID1a,ID1b=$ID1b, ID2a=$ID2a,ID2b=$ID2b");
  if(intval($ID1a)+1!==intval($ID1b)) DieTrace(sprintf("ERROR : Second value obtains by MySequence1 should be %d but is %d",$ID1a+1,$ID1b));

$db->CreateSequence("MySequence3",100);
  $ID2b=$db->GenID("MySequence3");
  if(intval($ID2b)!==100) DieTrace(sprintf("ERROR : Value from MySequence3 should be 100 but is %d",$ID2b));

$db->mssql_version=10; // Force to simulate Pre 2012 (without sequence) behavior
 $ID1a=$db->GenID("MySequence1Emul");
 $ID2a=$db->GenID("MySequence2Emul");
 $ID1b=$db->GenID("MySequence1Emul");
 $ID2b=$db->GenID("MySequence2Emul");
 echo "ID1a=$ID1a,ID1b=$ID1b, ID2a=$ID2a,ID2b=$ID2b \n";
 if(intval($ID1a+1)!==intval($ID1b)) DieTrace(sprintf("ERROR : Second value obtains by MySequence1Emul should be %d but is %d",$ID1a+1,$ID1b));

$db->CreateSequence("MySequence3Emul",100);
  $ID2b=$db->GenID("MySequence3Emul");
  if(intval($ID2b)!==100) DieTrace(sprintf("ERROR : Value from MySequence3Emul should be 100 but is %d",$ID2b));
  } //TestGenID()

//==========================
// This code tests SQLDate
//==========================
function TestSQLDate()
{
  global $db;
  $res = $db->GetRow("select testdate,"
    . $db->SQLDate("d/m/Y", "testdate") . " FR4,"
    . $db->SQLDate("d/m/y", "testdate") . " FR4b,"
    . $db->SQLDate("d/m/Y", "NULL") . " nullFR4,"
    . $db->SQLDate("m/d/Y", "testdate") . " US4,"
    . $db->SQLDate("m/d/y", "testdate") . " US4b,"
    . $db->SQLDate("m-d-Y", "testdate") . " USD4,"
    . $db->SQLDate("m-d-y", "testdate") . " USD4b,"
    . $db->SQLDate("Y.m.d", "testdate") . " ANSI4,"
    . $db->SQLDate("d.m.Y", "testdate") . " GE4,"
    . $db->SQLDate("d.m.y", "testdate") . " GE4b,"
    . $db->SQLDate("d-m-Y", "testdate") . " IT4,"
    . $db->SQLDate("d-m-y", "testdate") . " IT4b,"
    . $db->SQLDate("Y/m/d", "testdate") . " Japan4,"
    . $db->SQLDate("y/m/d", "testdate") . " Japan4b,"
    . $db->SQLDate("H:i:s", "testdate") . " timeonly,"
    . $db->SQLDate("d m Y", "testdate") . " Space4,"  // Is done by former method
    . $db->SQLDate("d m Y", "NULL") . " nullSpace4,"
    . $db->SQLDate("m-d-Y", "testdatesmall") . " nowUSdash4,"
    . "null from (select convert(datetime,'2016-12-17 18:55:30.590' ,121) testdate,
        convert(datetime,'2016-01-01 18:55:30.590' ,121) testdatesmall,null nulldate) q "
  );
  $TestRes=array(
    "fr4"=>"17/12/2016",
    "fr4b"=>"17/12/2016",
    "nullfr4"=>null,
    "us4"=>"12/17/2016",
    "us4b"=>"12/17/2016",
    "ansi4"=>"2016.12.17",
    "ge4"=>"17.12.2016",
    "ge4b"=>"17.12.2016",
    "it4"=>"17-12-2016",
    "it4b"=>"17-12-2016",
    "japan4"=>"2016/12/17",
    "japan4b"=>"2016/12/17",
    "space4"=>"17 12 2016",
    "nullspace4"=>null,
    "timeonly"=>"18:55:30",
  );
  var_dump($res);
  foreach($TestRes as $k=>$v)
    if($v!==$res[$k])
      DieTrace(sprintf("ERROR : Expected for '%s' is '%s', but got '%s'",$k,$v,$res[$k]));
} //TestSQLDate()

//==========================
// This code is the tests RUNNER
//==========================
$db->debug=true;
// $ToTest Contains * or the name of the test function to RUN
$ToTest="*";
//$ToTest="TestSQLDate";

// Here the generic test runner, will launch all functions of the current file beginning by "test", should not be changed use $ToTest
$functions = get_defined_functions();
$functions = $functions['user'];
foreach( $functions as $f) {
 $refFunc = new ReflectionFunction($f);
 if(($refFunc->getFileName()==__FILE__)&&(substr($f,0,4)=='test'))
 if(($ToTest=='*')||(strtolower($ToTest)==$f))
 {
 Trace("-------- Launch Test : $f ------------------");
 $f();
 }
}

Trace("=========== End of tests Without Error. ===================");