Starting Baselines.

src/BaselineOfLepiterPlugins/BaselineOfLepiterPlugins.class.st

@@ -0,0 +1,5 @@
+Class {
+	#name : #BaselineOfLepiterPlugins,
+	#superclass : #BaselineOf,
+	#category : #BaselineOfLepiterPlugins
+}

src/BaselineOfLepiterPlugins/package.st

@@ -0,0 +1 @@
+Package { #name : #BaselineOfLepiterPlugins }

src/LepiterPlugins/LeDatabase.extension.st

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

src/LepiterPlugins/LeSnippetTest.class.st

@@ -3,3 +3,20 @@ Class {
 	#superclass : #TestCase,
 	#category : #LepiterPlugins
 }
+
+{ #category : #tests }
+LeSnippetTest >> testSnippetMovementBetweenPages [
+				
+	| db origin testSnippet testUUID   destination  |
+	
+	db := LeDatabase new.
+	origin := db addTestPage.
+	destination := db addTestPage.
+	testSnippet := LeSnippet new.
+	origin children addSnippet: testSnippet after: (origin children last).
+	testUUID := testSnippet uid.
+	testSnippet moveFrom: origin title to: destination title.
+	self assert: ( destination includesSnippetUid: testUUID ).
+	self assert: ( origin includesSnippetUid: testUUID ) not.
+	db removeSelf.
+]

src/LepiterPlugins/ManifestLepiterPlugins.class.st

@@ -0,0 +1,13 @@
+"
+I store metadata for this package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser
+"
+Class {
+	#name : #ManifestLepiterPlugins,
+	#superclass : #PackageManifest,
+	#category : #'LepiterPlugins-Manifest'
+}
+
+{ #category : #'code-critics' }
+ManifestLepiterPlugins class >> ruleRBCollectionMessagesToExternalObjectRuleV1FalsePositive [
+	^ #(#(#(#RGMethodDefinition #(#LeSnippetTest #testSnippetMovementBetweenPages #false)) #'2021-07-19T09:29:44.803286-05:00') )
+]