--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/gui/tests/PPGrammarRefactoringTest.st Tue Mar 04 22:16:20 2014 +0100
@@ -0,0 +1,132 @@
+"{ Package: 'stx:goodies/petitparser/gui/tests' }"
+
+TestCase subclass:#PPGrammarRefactoringTest
+ instanceVariableNames:'refactoring'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'PetitGui-Tests'
+!
+
+
+!PPGrammarRefactoringTest methodsFor:'accessing'!
+
+change
+ ^ self refactoring changes
+!
+
+changes
+ ^ self change changes
+!
+
+refactoring
+ ^ refactoring
+! !
+
+!PPGrammarRefactoringTest methodsFor:'testing-parsers'!
+
+testAddParser
+ self performRefactoring: (PPAddParserRefactoring
+ name: #PPMockParser
+ category: #'PetitGui-Mock').
+ self assert: self changes size = 2.
+ self assert: self changes first class = AddClassChange.
+ self assert: self changes first definitionClass = PPCompositeParser.
+ self assert: self changes first changeClassName = #PPMockParser.
+ self assert: self changes first category = #'PetitGui-Mock'.
+ self assert: self changes last class = AddMethodChange.
+ self assert: self changes last parseTree = (RBParser parseMethod: 'start ^ self shouldBeImplemented')
+!
+
+testAddParserWithSuperclass
+ self performRefactoring: (PPAddParserRefactoring
+ name: #PPMockParser
+ category: #'PetitGui-Mock'
+ superclass: PPArithmeticParser).
+ self assert: self changes size = 2.
+ self assert: self changes first class = AddClassChange.
+ self assert: self changes first definitionClass = PPArithmeticParser.
+ self assert: self changes first changeClassName = #PPMockParser.
+ self assert: self changes first category = #'PetitGui-Mock'.
+ self assert: self changes last class = AddMethodChange.
+ self assert: self changes last parseTree = (RBParser parseMethod: 'start ^ self shouldBeImplemented')
+!
+
+testRemoveParser
+ self performRefactoring: (PPRemoveParserRefactoring onClass: PPArithmeticParser).
+ self assert: self changes size = 1.
+ self assert: self changes first class = RBRemoveClassChange.
+ self assert: self changes first changeClassName = 'PPArithmeticParser'
+! !
+
+!PPGrammarRefactoringTest methodsFor:'testing-productions'!
+
+testDefineProduction
+ self performRefactoring: (PPDefineProdcutionRefactoring
+ onClass: PPArithmeticParser
+ source: 'function ^ #any plus , $( , $) ==> [ :e | 0 ]'
+ protocols: (Array with: #productions)).
+ self assert: self changes size = 2.
+ self assert: self changes first class = RBAddInstanceVariableChange.
+ self assert: self changes first variable = 'function'.
+ self assert: self changes last class = RBAddMethodChange.
+ self assert: self changes last parseTree = (RBParser parseMethod: 'function ^ #any asParser plus , $( asParser , $) asParser ==> [ :e | 0 ]')
+!
+
+testExtractProduction
+ self performRefactoring: (PPExtractProdcutionRefactoring
+ onClass: PPArithmeticParser
+ production: #addition
+ interval: (36 to: 60)
+ to: #plusOrMinus).
+ self assert: self changes size = 3.
+ self assert: self changes first class = RBAddInstanceVariableChange.
+ self assert: self changes first variable = 'plusOrMinus'.
+ self assert: self changes second class = RBAddMethodChange.
+ self assert: self changes second parseTree = (RBParser parseMethod: 'plusOrMinus ^ $+ asParser / $- asParser').
+ self assert: self changes last class = RBAddMethodChange.
+ self assert: self changes last parseTree = (RBParser parseMethod: 'addition ^ (factors separatedBy: plusOrMinus trim) foldLeft: [ :a :op :b | a perform: op asSymbol with: b ]')
+!
+
+testRemoveProduction
+ self performRefactoring: (PPRemoveProdcutionRefactoring
+ onClass: PPArithmeticParser
+ production: #addition).
+ self assert: self changes size = 2.
+ self assert: self changes first class = RBRemoveMethodChange.
+ self assert: self changes first selector = #addition.
+ self assert: self changes last class = RBRemoveInstanceVariableChange.
+ self assert: self changes last variable = 'addition'
+!
+
+testRenameProduction
+ self performRefactoring: (PPRenameProdcutionRefactoring
+ onClass: PPArithmeticParser
+ rename: #addition
+ to: #add).
+ self assert: self changes size = 3.
+ self assert: self changes first class = RBRenameInstanceVariableChange.
+ self assert: self changes first oldName = 'addition'.
+ self assert: self changes first newName = 'add'.
+ self assert: self changes second class = RBAddMethodChange.
+ self assert: self changes second parseTree = (RBParser parseMethod: 'add ^ (factors separatedBy: ($+ asParser / $- asParser) trim) foldLeft: [ :a :op :b | a perform: op asSymbol with: b ]').
+ self assert: self changes last class = RBRemoveMethodChange.
+ self assert: self changes last selector = #addition
+! !
+
+!PPGrammarRefactoringTest methodsFor:'utilities'!
+
+performRefactoring: aRefactoring
+ refactoring := aRefactoring.
+ aRefactoring primitiveExecute
+! !
+
+!PPGrammarRefactoringTest class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/tests/PPGrammarRefactoringTest.st,v 1.1 2014-03-04 21:16:20 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/tests/PPGrammarRefactoringTest.st,v 1.1 2014-03-04 21:16:20 cg Exp $'
+! !
+