Add new MetaModel::IsLinkClass($sClass) to avoid iterating over MetaModel::GetLinkClasses()

test/core/MetaModelTest.php

@@ -315,6 +315,28 @@ class MetaModelTest extends ItopDataTestCase
 		// Should not get here
 		assertTrue(false);
 	}
+
+	/**
+	 * @covers \MetaModel::IsLinkClass
+	 * @dataProvider GetIsLinkClassProvider
+	 *
+	 * @param string $sClass Class to test
+	 * @param bool   $bExpectedIsLink Expected result
+	 */
+	public function testIsLinkClass(string $sClass, bool $bExpectedIsLink)
+	{
+		$bIsLink = MetaModel::IsLinkClass($sClass);
+
+		$this->assertEquals($bExpectedIsLink, $bIsLink, 'Class "'.$sClass.'" was excepted to be '.($bExpectedIsLink ? '' : 'NOT ').'a link class.');
+	}
+
+	public function GetIsLinkClassProvider(): array
+	{
+		return [
+			['Person', false],
+			['lnkPersonToTeam', true],
+		];
+	}
 }
 
 abstract class Wizzard