Imports Connectors.Common.slt.Entities Imports Microsoft.VisualStudio.TestTools.UnitTesting Namespace Connectors.Test.slt Public Class ExtensionTest Public oDocument1 As New sltDocument With { .ExtDocId = "DOCID", .DocOriginalFilename = "Rindenmoos Am Mittelfeld 15 msh alb 2022-05-20.dwg", .Name = "Rindenmoos Am Mittelfeld 15 msh alb 2022-05-20" } Public oDocument2 As New sltDocument With { .ExtDocId = "DOCID", .DocOriginalFilename = "Anhörung städt. Tiefbauamt", .Name = "Anhörung städt" } Public oDocument3 As New sltDocument With { .ExtDocId = "DOCID", .DocOriginalFilename = Nothing, .Name = "Gutschrift-[TITEL].pdf" } Public oDocument4 As New sltDocument With { .ExtDocId = "DOCID", .DocOriginalFilename = "TWZ Einbau - Pilgerweg 8 vom 20.07.2022.jpg", .Name = "TWZ Einbau - Pilgerweg 8 vom 20.07.2022" } Sub GetExtensionTest1() Assert.AreEqual("DOCID.dwg", oDocument1.GetUniqueFilename()) End Sub Sub GetExtensionTest2() Assert.AreEqual(Nothing, oDocument2.GetUniqueFilename()) End Sub Sub GetExtensionTest3() Assert.AreEqual("DOCID.pdf", oDocument3.GetUniqueFilename()) End Sub Sub GetExtensionTest4() Assert.AreEqual("DOCID.jpg", oDocument4.GetUniqueFilename()) End Sub End Class End Namespace