Merge pull request #707 from jecisc/693-Add-the-method-clearContent-i…

…n-the-class-SpAbstractTextPresenter 693-Add-the-method-clearContent-in-the-class-SpAbstractTextPresenter
pharo-spec · Aug 12, 2019 · 16a842d · 16a842d
2 parents b28bde5 + 0504e7a
commit 16a842d
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/src/Spec2-Core/SpAbstractTextPresenter.class.st b/src/Spec2-Core/SpAbstractTextPresenter.class.st
@@ -95,6 +95,11 @@ SpAbstractTextPresenter >> autoAccept: aBoolean [
 	autoAccept := aBoolean
 ]
 
+{ #category : #api }
+SpAbstractTextPresenter >> clearContent [
+	self text: ''
+]
+
 { #category : #api }
 SpAbstractTextPresenter >> clearSelection [
 "	<api: #do>"

diff --git a/src/Spec2-Tests/SpTextPresenterTest.class.st b/src/Spec2-Tests/SpTextPresenterTest.class.st
@@ -14,6 +14,14 @@ SpTextPresenterTest >> initializationText [
 	presenter text: 'Text for tests.'
 ]
 
+{ #category : #tests }
+SpTextPresenterTest >> testClearContent [
+	self initializationText.
+	self denyEmpty: presenter text.
+	presenter clearContent.
+	self assertEmpty: presenter text
+]
+
 { #category : #tests }
 SpTextPresenterTest >> testClearSelection [
 	self initializationText.