Enable establishing exclusive oci8 connections

Author: morozov

docs/en/reference/configuration.rst

@@ -319,6 +319,9 @@ pdo_oci / oci8
    parameters will no longer be used. Note that when using this parameter, the ``getHost``
    and ``getPort`` methods from ``Doctrine\DBAL\Connection`` will no longer function as expected.
 -  ``persistent`` (boolean): Whether to establish a persistent connection.
+-  ``driverOptions`` (array):
+    -  ``exclusive`` (boolean): Once specified for an ``oci8`` connection, forces the driver to always establish
+       a new connection instead of reusing an existing one from the connection pool.
 
 pdo_sqlsrv / sqlsrv
 ^^^^^^^^^^^^^^^^^^^

src/Driver/OCI8/Driver.php

@@ -4,6 +4,7 @@
 
 use Doctrine\DBAL\Driver\AbstractOracleDriver;
 use Doctrine\DBAL\Driver\OCI8\Exception\ConnectionFailed;
+use Doctrine\DBAL\Driver\OCI8\Exception\InvalidConfiguration;
 use SensitiveParameter;
 
 use function oci_connect;
@@ -32,8 +33,17 @@ public function connect(
 
         $connectionString = $this->getEasyConnectString($params);
 
-        if (! empty($params['persistent'])) {
+        $persistent = ! empty($params['persistent']);
+        $exclusive  = ! empty($params['driverOptions']['exclusive']);
+
+        if ($persistent && $exclusive) {
+            throw InvalidConfiguration::forPersistentAndExclusive();
+        }
+
+        if ($persistent) {
             $connection = @oci_pconnect($username, $password, $connectionString, $charset, $sessionMode);
+        } elseif ($exclusive) {
+            $connection = @oci_new_connect($username, $password, $connectionString, $charset, $sessionMode);
         } else {
             $connection = @oci_connect($username, $password, $connectionString, $charset, $sessionMode);
         }

src/Driver/OCI8/Exception/InvalidConfiguration.php

@@ -0,0 +1,20 @@
+<?php
+
+declare(strict_types=1);
+
+namespace Doctrine\DBAL\Driver\OCI8\Exception;
+
+use Doctrine\DBAL\Driver\AbstractException;
+
+/**
+ * @internal
+ *
+ * @psalm-immutable
+ */
+final class InvalidConfiguration extends AbstractException
+{
+    public static function forPersistentAndExclusive(): self
+    {
+        return new self('The "persistent" parameter and the "exclusive" driver option are mutually exclusive');
+    }
+}

tests/Driver/OCI8/DriverTest.php

@@ -4,10 +4,22 @@
 
 use Doctrine\DBAL\Driver as DriverInterface;
 use Doctrine\DBAL\Driver\OCI8\Driver;
+use Doctrine\DBAL\Driver\OCI8\Exception\InvalidConfiguration;
 use Doctrine\DBAL\Tests\Driver\AbstractOracleDriverTestCase;
 
+/** @requires extension oci8 */
 class DriverTest extends AbstractOracleDriverTestCase
 {
+    public function testPersistentAndExclusiveAreMutuallyExclusive(): void
+    {
+        $this->expectException(InvalidConfiguration::class);
+
+        (new Driver())->connect([
+            'persistent' => true,
+            'driverOptions' => ['exclusive' => true],
+        ]);
+    }
+
     protected function createDriver(): DriverInterface
     {
         return new Driver();

tests/Functional/LockMode/NoneTest.php

@@ -5,6 +5,7 @@
 namespace Doctrine\DBAL\Tests\Functional\LockMode;
 
 use Doctrine\DBAL\Connection;
+use Doctrine\DBAL\DriverManager;
 use Doctrine\DBAL\Exception;
 use Doctrine\DBAL\LockMode;
 use Doctrine\DBAL\Platforms\SqlitePlatform;
@@ -21,11 +22,6 @@ class NoneTest extends FunctionalTestCase
 
     public function setUp(): void
     {
-        if (TestUtil::isDriverOneOf('oci8')) {
-            // https://github.com/doctrine/dbal/issues/4417
-            self::markTestSkipped('This test fails on OCI8 for a currently unknown reason');
-        }
-
         if ($this->connection->getDatabasePlatform() instanceof SQLServerPlatform) {
             // Use row versioning instead of locking on SQL Server (if we don't, the second connection will block when
             // attempting to read the row created by the first connection, instead of reading the previous version);
@@ -43,7 +39,13 @@ public function setUp(): void
 
         $this->dropAndCreateTable($table);
 
-        $this->connection2 = TestUtil::getConnection();
+        $params = TestUtil::getConnectionParams();
+
+        if (TestUtil::isDriverOneOf('oci8')) {
+            $params['driverOptions']['exclusive'] = true;
+        }
+
+        $this->connection2 = DriverManager::getConnection($params);
 
         if ($this->connection2->getSchemaManager()->tablesExist('users')) {
             return;