From 64eba5a69f783de8808b0342f9d553221b14f336 Mon Sep 17 00:00:00 2001
From: Diego Ruidajo <diegoruidajo@users.noreply.github.com>
Date: Fri, 21 Jan 2022 20:37:56 -0500
Subject: [PATCH] Debugging initialize for seeds.

---
 repository/TiddlyWiki/TWSeed.class.st     | 50 +++++++++++------------
 repository/TiddlyWiki/TWSeedTest.class.st |  4 +-
 2 files changed, 28 insertions(+), 26 deletions(-)

diff --git a/repository/TiddlyWiki/TWSeed.class.st b/repository/TiddlyWiki/TWSeed.class.st
index e32e196..35a35ea 100644
--- a/repository/TiddlyWiki/TWSeed.class.st
+++ b/repository/TiddlyWiki/TWSeed.class.st
@@ -26,31 +26,6 @@ TWSeed class >> deleteWikiFileFromFolder: folder andSubfolder: shortName [
 	^ file ensureDelete.
 ]
 
-{ #category : #accessing }
-TWSeed class >> initialize [
-
-	super initialize.
-	list := OrderedCollection new.
-	list 
-		add: (self new 
-			name: 'ProjectifyMod';
-			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/projectify/projectify-mod.html');
-		add: (self new
-			name: 'Wikilexias';
-			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/wikilexias/wikilexias.html');
-		add: (self new
-			name: 'NotebookMod';
-			demo: '');
-		add: (self new
-			name: 'Grafoscopedia';
-			demo: '');
-		add: (self new
-			name: 'Holonica';
-			demo: '').
-	^ self
-	
-]
-
 { #category : #accessing }
 TWSeed class >> install: seedName into: folder as: shortName [
 
@@ -106,6 +81,31 @@ TWSeed >> demo: anUrl [
 	demo := anUrl asZnUrl
 ]
 
+{ #category : #accessing }
+TWSeed >> initialize [
+
+	super initialize.
+	list := OrderedCollection new.
+	list 
+		add: (self class new 
+			name: 'ProjectifyMod';
+			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/projectify/projectify-mod.html');
+		add: (self class new
+			name: 'Wikilexias';
+			demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/wikilexias/wikilexias.html');
+		add: (self class new
+			name: 'NotebookMod';
+			demo: '');
+		add: (self class new
+			name: 'Grafoscopedia';
+			demo: '');
+		add: (self class new
+			name: 'Holonica';
+			demo: '').
+	^ self
+	
+]
+
 { #category : #accessing }
 TWSeed >> name [
  ^ name
diff --git a/repository/TiddlyWiki/TWSeedTest.class.st b/repository/TiddlyWiki/TWSeedTest.class.st
index 9d93f86..1a2d018 100644
--- a/repository/TiddlyWiki/TWSeedTest.class.st
+++ b/repository/TiddlyWiki/TWSeedTest.class.st
@@ -7,7 +7,9 @@ Class {
 { #category : #accessing }
 TWSeedTest >> testCreateAlternativeSeed [
 
-	| seed |
+	| seed folder |
+	folder := FileLocator temp / 'Wikilexias'.
+	folder ensureDeleteAll.
 	seed := TWSeed install: 'Wikilexias' into: FileLocator temp as: 'Wikilexias'.
 	self assert: seed file equals: (FileLocator temp / 'Wikilexias' / 'index.html')
 ]