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
|
<?
// **********************************************************************
//
// Copyright (c) 2003-2006 ZeroC, Inc. All rights reserved.
//
// This copy of Ice is licensed to you under the terms described in the
// ICE_LICENSE file included in this distribution.
//
// **********************************************************************
error_reporting(E_ALL | E_STRICT);
Ice_loadProfileWithArgs($argv);
function test($b)
{
if(!$b)
{
$bt = debug_backtrace();
die("\ntest failed in ".$bt[0]["file"]." line ".$bt[0]["line"]."\n");
}
}
function allTests()
{
global $ICE;
echo "testing stringToProxy... ";
flush();
$ref = "d:default -p 12010 -t 2000";
$db = $ICE->stringToProxy($ref);
test($db != null);
echo "ok\n";
echo "testing checked cast... ";
flush();
$d = $db->ice_checkedCast("::Test::D");
test($d != null);
test($d == $db);
echo "ok\n";
echo "testing non-facets A, B, C, and D... ";
flush();
test($d->callA() == "A");
test($d->callB() == "B");
test($d->callC() == "C");
test($d->callD() == "D");
echo "ok\n";
echo "testing facets A, B, C, and D... ";
flush();
$df = $d->ice_checkedCast("::Test::D", "facetABCD");
test($df != null);
test($df->callA() == "A");
test($df->callB() == "B");
test($df->callC() == "C");
test($df->callD() == "D");
echo "ok\n";
echo "testing facets E and F... ";
flush();
$ff = $d->ice_checkedCast("::Test::F", "facetEF");
test($ff != null);
test($ff->callE() == "E");
test($ff->callF() == "F");
echo "ok\n";
echo "testing facet G... ";
flush();
$gf = $ff->ice_checkedCast("::Test::G", "facetGH");
test($gf != null);
test($gf->callG() == "G");
echo "ok\n";
echo "testing whether casting preserves the facet... ";
flush();
$hf = $gf->ice_checkedCast("::Test::H");
test($hf != null);
test($hf->callG() == "G");
test($hf->callH() == "H");
echo "ok\n";
return $gf;
}
$g = allTests();
$g->shutdown();
exit();
?>
|
