Implementing tests.

src/MiniDocs/PubPubGrammar.class.st

@@ -24,6 +24,11 @@ PubPubGrammar >> document [
 	^ link islandInSea star
 ]
 
+{ #category : #accessing }
+PubPubGrammar >> element [
+	^ (link / imageLink) star
+]
+
 { #category : #links }
 PubPubGrammar >> imageLink [
 	^ imageLinkLabel, imageLinkContent, alternativeImages

src/MiniDocs/PubPubGrammarTest.class.st

@@ -0,0 +1,24 @@
+Class {
+	#name : #PubPubGrammarTest,
+	#superclass : #PP2CompositeNodeTest,
+	#category : #'MiniDocs-Model'
+}
+
+{ #category : #accessing }
+PubPubGrammarTest >> parserClass [
+	^ PubPubGrammar
+]
+
+{ #category : #accessing }
+PubPubGrammarTest >> testImageLink [
+	self
+		parse: '![This is an image label](this/is/an/image/link){this are alternate image sizes}'
+		rule: #imageLink
+]
+
+{ #category : #accessing }
+PubPubGrammarTest >> testLink [
+	self
+		parse: '[This is a label]{this/is/a/link}'
+		rule: #link
+]