1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
<?php
error_reporting(E_ALL|E_STRICT);
include('../adodb.inc.php');
// -------- Internal Trace functions
function Trace($Msg){
echo "<br>\n".$Msg;
}
function DieTrace($Msg){
die("<br>\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 <br>\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("<b>-------- Launch Test : $f ------------------</b>");
$f();
}
}
Trace("<b>=========== End of tests Without Error. ===================</b>");
|
