diff --git a/src/BaselineOfLepiterPlugins/BaselineOfLepiterPlugins.class.st b/src/BaselineOfLepiterPlugins/BaselineOfLepiterPlugins.class.st new file mode 100644 index 0000000..7d68440 --- /dev/null +++ b/src/BaselineOfLepiterPlugins/BaselineOfLepiterPlugins.class.st @@ -0,0 +1,5 @@ +Class { + #name : #BaselineOfLepiterPlugins, + #superclass : #BaselineOf, + #category : #BaselineOfLepiterPlugins +} diff --git a/src/BaselineOfLepiterPlugins/package.st b/src/BaselineOfLepiterPlugins/package.st new file mode 100644 index 0000000..3dc30bc --- /dev/null +++ b/src/BaselineOfLepiterPlugins/package.st @@ -0,0 +1 @@ +Package { #name : #BaselineOfLepiterPlugins } diff --git a/src/LepiterPlugins/LeDatabase.extension.st b/src/LepiterPlugins/LeDatabase.extension.st index 604f535..7c66b8c 100644 --- a/src/LepiterPlugins/LeDatabase.extension.st +++ b/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. ] diff --git a/src/LepiterPlugins/LeSnippetTest.class.st b/src/LepiterPlugins/LeSnippetTest.class.st index 197a78d..dacbaad 100644 --- a/src/LepiterPlugins/LeSnippetTest.class.st +++ b/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. +] diff --git a/src/LepiterPlugins/ManifestLepiterPlugins.class.st b/src/LepiterPlugins/ManifestLepiterPlugins.class.st new file mode 100644 index 0000000..74a275f --- /dev/null +++ b/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') ) +]