16 lines
604 B
Smalltalk
16 lines
604 B
Smalltalk
Class {
|
|
#name : #GrafoscopioNodeTest,
|
|
#superclass : #TestCase,
|
|
#category : #'MiniDocs-Legacy'
|
|
}
|
|
|
|
{ #category : #accessing }
|
|
GrafoscopioNodeTest >> testEarliestCreationNode [
|
|
| notebook remoteNotebook offedingNodes |
|
|
remoteNotebook := 'https://mutabit.com/repos.fossil/documentaton/raw/a63598382?at=documentaton.ston'.
|
|
notebook := (STON fromString: remoteNotebook asUrl retrieveContents utf8Decoded) first parent.
|
|
offedingNodes := notebook nodesInPreorder select: [:node |
|
|
node created isNotNil and: [node created < notebook earliestCreationDate] ].
|
|
self assert: offedingNodes size equals: 0
|
|
]
|