From 0d28f0c9f5e1b472e30d1eded20faacb46b7afe0 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 25 Oct 2022 07:36:34 -0500
Subject: [PATCH] Implementing tests.

---
 src/MiniDocs/PubPubGrammar.class.st     |  5 +++++
 src/MiniDocs/PubPubGrammarTest.class.st | 24 ++++++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 src/MiniDocs/PubPubGrammarTest.class.st

diff --git a/src/MiniDocs/PubPubGrammar.class.st b/src/MiniDocs/PubPubGrammar.class.st
index 7700494..e46427f 100644
--- a/src/MiniDocs/PubPubGrammar.class.st
+++ b/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
diff --git a/src/MiniDocs/PubPubGrammarTest.class.st b/src/MiniDocs/PubPubGrammarTest.class.st
new file mode 100644
index 0000000..1f9c3ef
--- /dev/null
+++ b/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
+]