xref: /PHP-8.0/ext/oci8/tests/bind_boolean_1.phpt (revision a555cc0b)
1--TEST--
2Basic PL/SQL "BOOLEAN" (SQLT_BOL) bind test
3--SKIPIF--
4<?php
5if (!extension_loaded('oci8')) die ("skip no oci8 extension");
6require(__DIR__.'/connect.inc');
7preg_match('/.*Release ([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)\.([[:digit:]]+)*/', oci_server_version($c), $matches);
8if (!(isset($matches[0]) && $matches[1] >= 12)) {
9    die("skip expected output only valid when using Oracle Database 12c or greater");
10}
11preg_match('/^[[:digit:]]+/', oci_client_version(), $matches);
12if (!(isset($matches[0]) && $matches[0] >= 12)) {
13    die("skip works only with Oracle 12c or greater version of Oracle client libraries");
14}
15?>
16--FILE--
17<?php
18
19require(__DIR__.'/connect.inc');
20
21// Run Test
22
23echo "Test 1\n";
24
25$sql = "begin
26        :output1 := true;
27        :output2 := false;
28       end;";
29
30$s = oci_parse($c, $sql);
31oci_bind_by_name($s, ':output1', $output1, -1, OCI_B_BOL);
32oci_bind_by_name($s, ':output2', $output2, -1, OCI_B_BOL);
33oci_execute($s);
34var_dump($output1);
35var_dump($output2);
36
37echo "Test 2\n";
38
39$b = "abc";  // bind var type will change
40$sql = "begin :b := true; end;";
41$s = oci_parse($c, $sql);
42oci_bind_by_name($s, ':b', $b, -1, OCI_B_BOL);
43oci_execute($s);
44var_dump($b);
45
46
47echo "Test 3\n";
48
49$sql =
50    "begin
51    if (:input < 10) then
52        :output := true;
53    else
54        :output := false;
55    end if;
56end;";
57$s = oci_parse($c, $sql);
58oci_bind_by_name($s, ':output', $output, -1, OCI_B_BOL);
59for ($input = 5; $input < 15; ++$input) {
60    oci_bind_by_name($s, ':input', $input);
61    oci_execute($s);
62    var_dump($output);
63}
64
65echo "Test 4\n";
66
67$sql =
68"begin
69  if (mod(:userid,2) = 0) then
70    :b := true;
71  else
72    :b := false;
73  end if;
74end;";
75$s = oci_parse($c, $sql);
76oci_bind_by_name($s, ':b', $b, -1, OCI_B_BOL);
77for ($userid = 1; $userid <= 10; ++$userid) {
78    oci_bind_by_name($s, ':userid', $userid, -1, SQLT_INT);
79    oci_execute($s);
80    var_dump($b);
81}
82
83echo "Test 5\n";
84
85$sql =
86"declare
87  l boolean;
88begin
89  l := :b1;
90  :b1 := :b2;
91  :b2 := l;
92end;";
93$s = oci_parse($c, $sql);
94$b1 = true;
95$b2 = false;
96var_dump($b1, $b2);
97oci_bind_by_name($s, ':b1', $b1, -1, OCI_B_BOL);
98oci_bind_by_name($s, ':b2', $b2, -1, OCI_B_BOL);
99oci_execute($s);
100var_dump($b1, $b2);
101
102?>
103--EXPECT--
104Test 1
105bool(true)
106bool(false)
107Test 2
108bool(true)
109Test 3
110bool(true)
111bool(true)
112bool(true)
113bool(true)
114bool(true)
115bool(false)
116bool(false)
117bool(false)
118bool(false)
119bool(false)
120Test 4
121bool(false)
122bool(true)
123bool(false)
124bool(true)
125bool(false)
126bool(true)
127bool(false)
128bool(true)
129bool(false)
130bool(true)
131Test 5
132bool(true)
133bool(false)
134bool(false)
135bool(true)
136