Adding some tests + make sure that we can ask any element about the f…

…ile it was placed on
pillar-markup · May 21, 2024 · cc8fc77 · cc8fc77
1 parent e8098c3
commit cc8fc77
Show file tree

Hide file tree

Showing 3 changed files with 57 additions and 0 deletions.
diff --git a/src/Microdown-Tests/MicrodownTest.class.st b/src/Microdown-Tests/MicrodownTest.class.st
@@ -4,11 +4,29 @@ A MicrodownTest is a test class for testing the behavior of Microdown
 Class {
 	#name : 'MicrodownTest',
 	#superclass : 'TestCase',
+	#instVars : [
+		'file',
+		'filesystem'
+	],
 	#category : 'Microdown-Tests-Core',
 	#package : 'Microdown-Tests',
 	#tag : 'Core'
 }
 
+{ #category : 'running' }
+MicrodownTest >> setUp [
+	super setUp.
+	filesystem := FileSystem memory.
+	file := filesystem workingDirectory / 'anExample1.md'.
+	file writeStreamDo: [ :stream | stream nextPutAll: '# Foo
+Pharo is cool
+
+```
+	this is a code snippet
+```
+' ].
+]
+
 { #category : 'tests - parent/children' }
 MicrodownTest >> testAddedAsChildWhenUsingParent [
 
@@ -45,6 +63,34 @@ MicrodownTest >> testFigureLabelAreNotReified [
 
 ]
 
+{ #category : 'tests' }
+MicrodownTest >> testFromFileIfAbsent [
+
+	| root |
+	root := Microdown parse: (filesystem workingDirectory / 'anExample1.md') contents.
+	self deny: root hasFile
+]
+
+{ #category : 'tests' }
+MicrodownTest >> testFromFileInAnyElement [
+
+	| root |
+	root := Microdown parseFile: filesystem workingDirectory / 'anExample1.md'.
+	self assert: root children first children first fromFile equals: (filesystem workingDirectory / 'anExample1.md') fullName
+
+
+]
+
+{ #category : 'tests' }
+MicrodownTest >> testFromFileInRootDocument [
+
+	| root |
+	root := Microdown parseFile: filesystem workingDirectory / 'anExample1.md'.
+	self assert: root fromFile equals: (filesystem workingDirectory / 'anExample1.md') fullName
+
+
+]
+
 { #category : 'tests - parent/children' }
 MicrodownTest >> testMathCaptionIsReified [
 	"And as such their parent is the math block"

diff --git a/src/Microdown/MicElement.class.st b/src/Microdown/MicElement.class.st
@@ -47,6 +47,12 @@ MicElement >> basicParent: aMicBlock [
 	parent := aMicBlock
 ]
 
+{ #category : 'accessing' }
+MicElement >> fromFile [
+	"Let us bubble up to the root to get the file"
+	^ self parent fromFile
+]
+
 { #category : 'properties' }
 MicElement >> hasProperty: aKey [
 	"Answer whether there is a property named aKey."

diff --git a/src/Microdown/MicRootBlock.class.st b/src/Microdown/MicRootBlock.class.st
@@ -44,6 +44,11 @@ MicRootBlock >> fromFile: aFile [
 	self propertyAt: #file put: aFile
 ]
 
+{ #category : 'testing' }
+MicRootBlock >> hasFile [
+	^ self hasProperty: #file
+]
+
 { #category : 'accessing' }
 MicRootBlock >> indent [
 	^0