diff --git a/ExtensionTest.st b/ExtensionTest.st index 82e5315..1b3f845 100644 --- a/ExtensionTest.st +++ b/ExtensionTest.st @@ -23,6 +23,15 @@ TestCase subclass: StringFormatTest [ self assert: str = 'Bla Bla 10'. ] + testExpandMacrosTrue [ + | str | + str := 'Should be true=<1?true:false>' expandMacrosWith: true. + self assert: str = 'Should be true=true'. + + str := 'Should be false=<1?tue:false>' expandMacrosWith: false. + self assert: str = 'Should be false=false'. + ] + testExpandMacros2 [ | str | str := 'Bla Bla <1p> <2s>' expandMacrosWith: 10 with: '20'.