Use cTestFixture.pkg Use cTest.pkg Use cRegex.pkg Use cRefactorDbView.pkg Object cRefactorDbView_Spec is a cTestFixture Procedure Setup Object oRefactorDbView is a cRefactorDbView End_Object End_Procedure Procedure TearDown Send Destroy to oRefactorDbView End_Procedure Object ChangeUClassToRefClass_Fixture is a cTestFixture {Published=True} Procedure SimpleTest String sLine sExpected Boolean bChanged Move " Get Create U_Array to hArray" to sLine Move " Get Create (RefClass(Array)) to hArray" to sExpected Get ChangeUClassToRefClass of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure ManySpaces String sLine sExpected Boolean bChanged Move " Get Create U_Array to hArray" to sLine Move " Get Create (RefClass(Array)) to hArray" to sExpected Get ChangeUClassToRefClass of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure // ToDo: Line break, is that taken care off? {Published=True} Procedure CreateNamedSingleQuotes // **WvA: We don't fix CreateNamed because it is expected that users who use CreateNamed will // not use the U_ notation, but use RefClass instead //String sLine sExpected //Boolean bChanged //Move " Get CreateNamed (Refclass(U_Array)) 'hArray' to hArray" to sLine //Move " Get CreateNamed (Refclass(Array)) 'hArray' to hArray" to sExpected //Get ChangeUClassToRefClass of oRefactorDbView (&sLine) to bChanged // //Send Assert bChanged //Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure CreateNamedDoubleQuotes // **WvA: We don't fix CreateNamed because it is expected that users who use CreateNamed will // not use the U_ notation, but use RefClass instead //String sLine sExpected //Boolean bChanged //Move ' Get CreateNamed (Refclass(U_Array)) "hArray" to hArray' to sLine //Move ' Get CreateNamed (Refclass(Array)) "hArray" to hArray' to sExpected //Get ChangeUClassToRefClass of oRefactorDbView (&sLine) to bChanged // //Send Assert bChanged //Send AssertSAreEqual sExpected sLine End_Procedure End_Object Object ChangeInToContains_Fixture is a cTestFixture {Published=True} Procedure IndicateIn_Test String sLine sExpected Boolean bChanged Move ' indicate indicator as sSubString in sHostString' to sLine Move ' indicate indicator as (sHostString contains sSubString)' to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure IfIn_Test String sLine sExpected Boolean bChanged Move ' if sSubString in sHostString command' to sLine Move ' if (sHostString contains sSubString) command' to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure UntilIn_Test String sLine sExpected Boolean bChanged Move 'Until sSubString in sHostString' to sLine Move 'Until (sHostString contains sSubString)' to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure WhileIn_Test String sLine sExpected Boolean bChanged Move 'While sSubString in sHostString' to sLine Move 'While (sHostString contains sSubString)' to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure SpacesAroundIn_Test String sLine sExpected Boolean bChanged Move ' sSubString in sHostString ' to sLine Move ' (sHostString contains sSubString) ' to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure ConstantStringIn_Test String sLine sExpected Boolean bChanged Move 'if "." in a_number' to sLine Move 'if (a_number contains ".")' to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure ConstantStringIn2_Test String sLine sExpected Boolean bChanged Move 'if "." in "12.12"' to sLine Move 'if ("12.12" contains ".")' to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure SingleQuoteInConstantString_Test String sLine sExpected Boolean bChanged Move (Replaces('`', 'if "`" in "I`m okay"', "'")) to sLine Move (Replaces('`', 'if ("I`m okay" contains "`")', "'")) to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure DoubleQuoteInConstantString_Test String sLine sExpected Boolean bChanged Move (Replaces('`', 'if "`" in "I`m okay"', "'")) to sLine Move (Replaces('`', 'if ("I`m okay" contains "`")', "'")) to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure {Published=True} Procedure CrLfInConstantString_Test String sLine sExpected Boolean bChanged // If (Character(10)) in sValue Command Move "If (Character(10)) in sValue Command" to sLine Move "If (sValue contains (Character(10))) Command" to sExpected Get ChangeInToContains of oRefactorDbView (&sLine) to bChanged Send Assert bChanged Send AssertSAreEqual sExpected sLine End_Procedure End_Object End_Object