Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports DevExpress.Xpf.DemoBase.DemoTesting
Imports DevExpress.XtraRichEdit
Imports DevExpress.Xpf.RichEdit

Namespace RichEditDemo.Tests
	Public Class RichEditDemoModuleAccessor
		Inherits DemoModulesAccessor(Of RichEditDemoModule)
		Public Sub New(ByVal fixture As BaseDemoTestingFixture)
			MyBase.New(fixture)
		End Sub
		Public ReadOnly Property RichEditControl() As RichEditControl
			Get
				Return DemoModule.RichEditControl
			End Get
		End Property
	End Class
	Public MustInherit Class BaseRichEditTestingFixture
		Inherits BaseDemoTestingFixture
		Private ReadOnly modulesAccessor As RichEditDemoModuleAccessor
		Public Sub New()
			Me.modulesAccessor = New RichEditDemoModuleAccessor(Me)
		End Sub
		Public ReadOnly Property RichEditControl() As RichEditControl
			Get
				Return Me.modulesAccessor.RichEditControl
			End Get
		End Property
	End Class
	Public Class FakeModuleFixture
		Inherits BaseRichEditTestingFixture
		Protected Overrides Sub CreateActions()
			MyBase.CreateActions()
			AddSimpleAction(AddressOf CreateCheckDemosActions)
		End Sub
		Private Sub CreateCheckDemosActions()
			AddLoadModuleActions(GetType(CharacterFormatting))
			AddSimpleAction(AddressOf CheckDemo)
		End Sub
		Private Sub CheckDemo()
			Dim dayViewModule As CharacterFormatting = CType(DemoBaseTesting.CurrentDemoModule, CharacterFormatting)
			Assert.AreEqual(RichEditViewType.PrintLayout, dayViewModule.richEdit.ActiveViewType)
		End Sub
	End Class
	Public Class RichEditCheckAllDemosFixture
		Inherits CheckAllDemosFixture
		Private skipMemoryLeaksCheckModules() As Type = { GetType(LoadSaveHtml), GetType(RibbonUI), GetType(MergeDatabaseRecords), GetType(LineNumbering), GetType(DocumentRestrictions), GetType(OperationRestrictions), GetType(SimpleDataMerge), GetType(MasterDetailMailMerge), GetType(TableOfContents) }
		Protected Overrides Function CheckMemoryLeaks(ByVal moduleTyle As Type) As Boolean
			For Each item As Type In skipMemoryLeaksCheckModules
				If moduleTyle Is item Then
					Return False
				End If
			Next item
			Return True
		End Function
		Protected Overrides Function CanRunModule(ByVal moduleType As Type) As Boolean
			Return moduleType IsNot GetType(MasterDetailMailMerge)
		End Function
	End Class
End Namespace