Mark abstract classes in Microdown package

Fix #9175
pharo-project · Apr 26, 2021 · 9f133d1 · 9f133d1
1 parent beb9796
commit 9f133d1
Show file tree

Hide file tree

Showing 4 changed files with 24 additions and 0 deletions.
diff --git a/src/Microdown/MicAbstractAnnotatedBlock.class.st b/src/Microdown/MicAbstractAnnotatedBlock.class.st
@@ -9,6 +9,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicAbstractAnnotatedBlock class >> isAbstract [
+
+	^ self == MicAbstractAnnotatedBlock
+]
+
 { #category : #testing }
 MicAbstractAnnotatedBlock >> addLineAndReturnNextNode: line [
 	"line is assumed to be of the form '@@label some text

diff --git a/src/Microdown/MicAbstractBlock.class.st b/src/Microdown/MicAbstractBlock.class.st
@@ -17,6 +17,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicAbstractBlock class >> isAbstract [
+
+	^ self == MicAbstractBlock
+]
+
 { #category : #adding }
 MicAbstractBlock >> addChild: childBlock [
 	children add: childBlock

diff --git a/src/Microdown/MicContinuousMarkedBlock.class.st b/src/Microdown/MicContinuousMarkedBlock.class.st
@@ -25,6 +25,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicContinuousMarkedBlock class >> isAbstract [
+
+	^ self == MicContinuousMarkedBlock
+]
+
 { #category : #actions }
 MicContinuousMarkedBlock >> addLineAndReturnNextNode: line [
 	"line is assumed to be of the form 'chararacters some text' e.g., '> some text'

diff --git a/src/Microdown/MicListBlock.class.st b/src/Microdown/MicListBlock.class.st
@@ -50,6 +50,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicListBlock class >> isAbstract [
+
+	^ self == MicListBlock
+]
+
 { #category : #testing }
 MicListBlock >> addLineAndReturnNextNode: inLine [
 	"Create a new item, and insert it into me.