Adding table level comments to Oracle

Author: moufmouf

lib/Doctrine/DBAL/Platforms/OraclePlatform.php

@@ -1182,4 +1182,30 @@ public function getBlobTypeDeclarationSQL(array $field)
     {
         return 'BLOB';
     }
+
+    public function getListTableCommentsSQL(string $table, string $database = null) : string
+    {
+        $table = $this->normalizeIdentifier($table);
+        $table = $this->quoteStringLiteral($table->getName());
+
+        $tableCommentsName       = 'user_tab_comments';
+        $ownerCondition  = '';
+
+        if ($database !== null && $database !== '/') {
+            $database                  = $this->normalizeIdentifier($database);
+            $database                  = $this->quoteStringLiteral($database->getName());
+            $tableCommentsName                 = 'all_tab_comments';
+            $ownerCondition  = ' AND owner = ' . $database;
+        }
+
+        return sprintf(
+            <<<'SQL'
+SELECT comments FROM %s WHERE table_name = %s%s
+SQL
+            ,
+            $tableCommentsName,
+            $table,
+            $ownerCondition
+        );
+    }
 }

lib/Doctrine/DBAL/Schema/OracleSchemaManager.php

@@ -5,6 +5,7 @@
 use Doctrine\DBAL\DBALException;
 use Doctrine\DBAL\Driver\DriverException;
 use Doctrine\DBAL\Platforms\OraclePlatform;
+use Doctrine\DBAL\Platforms\PostgreSqlPlatform;
 use Doctrine\DBAL\Types\Type;
 use Throwable;
 use const CASE_LOWER;
@@ -382,4 +383,18 @@ private function killUserSessions($user)
             );
         }
     }
+
+    public function listTableDetails($tableName)
+    {
+        $table = parent::listTableDetails($tableName);
+
+        /** @var OraclePlatform $platform */
+        $platform = $this->_platform;
+        $sql      = $platform->getListTableCommentsSQL($tableName);
+
+        $tableOptions = $this->_conn->fetchAssoc($sql);
+        $table->addOption('comment', $tableOptions['COMMENTS']);
+
+        return $table;
+    }
 }

tests/Doctrine/Tests/DBAL/Functional/Schema/OracleSchemaManagerTest.php

@@ -285,9 +285,4 @@ public function testCreateAndListSequences() : void
     {
         self::markTestSkipped("Skipped for uppercase letters are contained in sequences' names. Fix the schema manager in 3.0.");
     }
-
-    public function testCommentInTable() : void
-    {
-        self::markTestSkipped('Table level comments are not supported on Oracle');
-    }
 }