Preparing tests previous scaffolding.

src/LepiterPlugins/LeDatabase.extension.st

@@ -0,0 +1,8 @@
+Extension { #name : #LeDatabase }
+
+{ #category : #'*LepiterPlugins' }
+LeDatabase >> addTestPage [
+	| page |
+	page := LePage new title: 'Test Page ',DateAndTime today asString. 
+	^ self addPage: page.
+]

src/LepiterPlugins/LeSnippetTest.class.st

@@ -0,0 +1,5 @@
+Class {
+	#name : #LeSnippetTest,
+	#superclass : #TestCase,
+	#category : #LepiterPlugins
+}