Esempi in C# (CSharp) per ModuleProcessing.FixCase

Esempio n. 1

File: FixCaseTests.cs Progetto: yrenlai/VBASync

        public void FixCaseWasDuplicatingLines()
        {
            const string oldFile = @"Attribute VB_Name = ""Module1""
Option Explicit


Sub StubbedOuttes()
    MsgBox ""Hello, world!""
End Sub

Sub StubbedOuttes2()

    MsgBox ""Hello, world!""
End Sub
";

            const string newFile = @"Attribute VB_Name = ""Module1""
Option Explicit

Sub tes()
    MsgBox ""Hello, world!""
End Sub

Sub tes2()
    MsgBox ""Hello, world!""
End Sub
";

            Assert.AreEqual(newFile, ModuleProcessing.FixCase(oldFile, newFile));
        }

Esempio n. 2

File: FixCaseTests.cs Progetto: yrenlai/VBASync

        public void FixCaseBasic()
        {
            const string oldFile    = @"VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = ""ThisWorkbook""
Attribute VB_Base = ""0{00020819-0000-0000-C000-000000000046}""
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Option Explicit

' hello world!
Sub tes()
    Dim HelloWorld$
    HelloWorld = ""Hello, world!""
    MsgBox HelloWorld
End Sub
Sub tes2()
    MsgBox 2 + 2
End Sub
Sub tes3()
    MsgBox ""Hello, world!""
End Sub
";
            const string newFileRaw = @"VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = ""ThisWorkbook""
Attribute VB_Base = ""0{00020819-0000-0000-C000-000000000046}""
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Option Explicit

' Hello world!
Sub Tes()
    Dim helloworld$
    helloworld = ""Hello, World!""
    MsgBox helloworld
End Sub

Sub Tes2()
    MsgBox 2 + 3
End Sub

Sub Tes3()
    MsgBox ""Hello, world!""
End Sub
";
            const string newFileFix = @"VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = ""ThisWorkbook""
Attribute VB_Base = ""0{00020819-0000-0000-C000-000000000046}""
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Option Explicit

' Hello world!
Sub tes()
    Dim HelloWorld$
    helloworld = ""Hello, World!""
    MsgBox HelloWorld
End Sub

Sub tes2()
    MsgBox 2 + 3
End Sub

Sub tes3()
    MsgBox ""Hello, world!""
End Sub
";

            Assert.AreEqual(newFileFix, ModuleProcessing.FixCase(oldFile, newFileRaw));
        }