diff --git a/.project b/.project new file mode 100644 index 0000000..81083cc --- /dev/null +++ b/.project @@ -0,0 +1,3 @@ +{ + 'srcDirectory' : 'src' +} \ No newline at end of file diff --git a/BaselineOfClassAnnotation.package/.filetree b/BaselineOfClassAnnotation.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/BaselineOfClassAnnotation.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/BaselineOfClassAnnotation.package/BaselineOfClassAnnotation.class/README.md b/BaselineOfClassAnnotation.package/BaselineOfClassAnnotation.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/BaselineOfClassAnnotation.package/BaselineOfClassAnnotation.class/properties.json b/BaselineOfClassAnnotation.package/BaselineOfClassAnnotation.class/properties.json deleted file mode 100644 index 2df4069..0000000 --- a/BaselineOfClassAnnotation.package/BaselineOfClassAnnotation.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "BaselineOf", - "category" : "BaselineOfClassAnnotation", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "BaselineOfClassAnnotation", - "type" : "normal" -} \ No newline at end of file diff --git a/BaselineOfClassAnnotation.package/monticello.meta/categories.st b/BaselineOfClassAnnotation.package/monticello.meta/categories.st deleted file mode 100644 index ac62a5b..0000000 --- a/BaselineOfClassAnnotation.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #BaselineOfClassAnnotation! diff --git a/BaselineOfClassAnnotation.package/monticello.meta/initializers.st b/BaselineOfClassAnnotation.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/BaselineOfClassAnnotation.package/monticello.meta/package b/BaselineOfClassAnnotation.package/monticello.meta/package deleted file mode 100644 index 1aac623..0000000 --- a/BaselineOfClassAnnotation.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'BaselineOfClassAnnotation') \ No newline at end of file diff --git a/BaselineOfClassAnnotation.package/properties.json b/BaselineOfClassAnnotation.package/properties.json deleted file mode 100644 index 6f31cf5..0000000 --- a/BaselineOfClassAnnotation.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/.filetree b/ClassAnnotation-Tests.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/ClassAnnotation-Tests.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/README.md b/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenClassAndUser.st b/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenClassAndUser.st deleted file mode 100644 index 88f338c..0000000 --- a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenClassAndUser.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testCanBeEnumeratedForGivenClassAndUser - - | annotationUser actual expected | - annotationUser := AnnotationUserExample new. - actual := OrderedCollection new. - ContextualClassAnnotationExample1 - activeInstancesFor: ClassWithAnnotationsDefinedForUserClass inContext: annotationUser - do: [:each | actual add: each]. - expected := ContextualClassAnnotationExample1 activeInstancesInContext: annotationUser. - - self assert: actual asSet equals: expected asSet \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenUser.st b/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenUser.st deleted file mode 100644 index edffcea..0000000 --- a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenUser.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testCanBeEnumeratedForGivenUser - - | annotationUser actual expected | - annotationUser := AnnotationUserExample new. - actual := OrderedCollection new. - ContextualClassAnnotationExample1 activeInstancesInContext: annotationUser do: [:each | - actual add: each]. - expected := ContextualClassAnnotationExample1 activeInstancesInContext: annotationUser. - - self assert: actual asSet equals: expected asSet. diff --git a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testIncludeOnlyInstancesWhichAreActiveForGivenUser.st b/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testIncludeOnlyInstancesWhichAreActiveForGivenUser.st deleted file mode 100644 index adfdcd6..0000000 --- a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testIncludeOnlyInstancesWhichAreActiveForGivenUser.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testIncludeOnlyInstancesWhichAreActiveForGivenUser - - | actual annotationUser expected | - annotationUser := AnnotationUserExample new. - annotationUser isSimulatedActiveAnnotation: true. - - actual := ContextualClassAnnotationExample1 activeInstancesInContext: annotationUser. - - expected := ContextualClassAnnotationExample1 visibleInstancesInContext: annotationUser. - self assert: actual asSet equals: expected asSet \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testNotIncludeInstancesWhichAreNotActiveForGivenUser.st b/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testNotIncludeInstancesWhichAreNotActiveForGivenUser.st deleted file mode 100644 index 88b4e0d..0000000 --- a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testNotIncludeInstancesWhichAreNotActiveForGivenUser.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testNotIncludeInstancesWhichAreNotActiveForGivenUser - - | actual annotationUser | - annotationUser := AnnotationUserExample new. - annotationUser isSimulatedActiveAnnotation: false. - - actual := ContextualClassAnnotationExample1 activeInstancesInContext: annotationUser. - - self assert: actual isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testNotIncludeInstancesWithoutContext.st b/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testNotIncludeInstancesWithoutContext.st deleted file mode 100644 index f24d957..0000000 --- a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/instance/testNotIncludeInstancesWithoutContext.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNotIncludeInstancesWithoutContext - - | annotations annotationUser | - annotationUser := AnnotationUserExample new. - annotations := ClassAnnotationExample1 activeInstancesInContext: annotationUser. - - self assert: annotations isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/properties.json b/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/properties.json deleted file mode 100644 index 2e2bb44..0000000 --- a/ClassAnnotation-Tests.package/ActiveClassAnnotationsTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotationTestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ActiveClassAnnotationsTests", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/AnnotationUserExample.class/README.md b/ClassAnnotation-Tests.package/AnnotationUserExample.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/initialize.st b/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/initialize.st deleted file mode 100644 index 7771967..0000000 --- a/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - super initialize. - - isSimulatedActiveAnnotation := true \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/isSimulatedActiveAnnotation..st b/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/isSimulatedActiveAnnotation..st deleted file mode 100644 index f7fab8b..0000000 --- a/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/isSimulatedActiveAnnotation..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isSimulatedActiveAnnotation: anObject - isSimulatedActiveAnnotation := anObject \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/isSimulatedActiveAnnotation.st b/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/isSimulatedActiveAnnotation.st deleted file mode 100644 index 7386f98..0000000 --- a/ClassAnnotation-Tests.package/AnnotationUserExample.class/instance/isSimulatedActiveAnnotation.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -isSimulatedActiveAnnotation - ^ isSimulatedActiveAnnotation \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/AnnotationUserExample.class/properties.json b/ClassAnnotation-Tests.package/AnnotationUserExample.class/properties.json deleted file mode 100644 index 749ca09..0000000 --- a/ClassAnnotation-Tests.package/AnnotationUserExample.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "BaseAnnotationUserExample", - "category" : "ClassAnnotation-Tests-Examples-Annotation contexts", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "isSimulatedActiveAnnotation" - ], - "name" : "AnnotationUserExample", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/BaseAnnotationUserExample.class/README.md b/ClassAnnotation-Tests.package/BaseAnnotationUserExample.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/BaseAnnotationUserExample.class/properties.json b/ClassAnnotation-Tests.package/BaseAnnotationUserExample.class/properties.json deleted file mode 100644 index 0ab7808..0000000 --- a/ClassAnnotation-Tests.package/BaseAnnotationUserExample.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotation contexts", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "BaseAnnotationUserExample", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExample1.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationExample1.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExample1.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationExample1.class/properties.json deleted file mode 100644 index d91d469..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationExample1.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotations", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationExample1", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExample2.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationExample2.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExample2.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationExample2.class/properties.json deleted file mode 100644 index 7cd2a8a..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationExample2.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotations", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationExample2", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExample3.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationExample3.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExample3.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationExample3.class/properties.json deleted file mode 100644 index 37ed282..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationExample3.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotations", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationExample3", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/instance/isForbidden.st b/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/instance/isForbidden.st deleted file mode 100644 index 1bb6b7c..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/instance/isForbidden.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isForbidden - self error: 'Failed forbidden check should lead to the BrokenClassAnnotation instance' \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/properties.json deleted file mode 100644 index c77b57e..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithFailedForbiddenCheck.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotations", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationExampleWithFailedForbiddenCheck", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithPriority.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationExampleWithPriority.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithPriority.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationExampleWithPriority.class/properties.json deleted file mode 100644 index 8e041e1..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationExampleWithPriority.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotations", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationExampleWithPriority", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/class/isAbstract.st b/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/class/isAbstract.st deleted file mode 100644 index 7918d64..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/class/isAbstract.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isAbstract - ^self == ClassAnnotationTestCase \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/properties.json deleted file mode 100644 index ed1de20..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTestCase.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationTestCase", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/tearDown.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/tearDown.st deleted file mode 100644 index 4dfff84..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/tearDown.st +++ /dev/null @@ -1,8 +0,0 @@ -running -tearDown - "Some tests redefine following annotation. - Here we clear redefining state which forces cache reset" - ClassAnnotationExample3 revertRedefinedInstances. - "ClassAnnotationExample3 = ClassWithSingleAnnotation classAnnotations anyOne class" - - super tearDown. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testCheckIfAnnotatesGivenClass.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testCheckIfAnnotatesGivenClass.st deleted file mode 100644 index 86565b2..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testCheckIfAnnotatesGivenClass.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testCheckIfAnnotatesGivenClass - | ann| - ann := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - - self assert: (ann annotates: ClassWithSingleAnnotation). - self deny: (ann annotates: ClassWithThreeAnnotations) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithDifferentClass.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithDifferentClass.st deleted file mode 100644 index f9375d5..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithDifferentClass.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testComparisonOfTwoAnnotationsWithDifferentClass - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - ann1 declarationSelector: #selector1. - - ann2 := ClassAnnotationExample1 withAnnotatedClass: SubclassWithOnlyInheritedAnnotation. - ann2 declarationSelector: #selector1. - - self deny: ann1 = ann2 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithDifferentSelector.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithDifferentSelector.st deleted file mode 100644 index f4dc4f3..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithDifferentSelector.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testComparisonOfTwoAnnotationsWithDifferentSelector - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithThreeAnnotations. - ann1 declarationSelector: #selector1. - - ann2 := ClassAnnotationExample1 withAnnotatedClass: ClassWithThreeAnnotations. - ann2 declarationSelector: #selector2. - - self deny: ann1 = ann2 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithSameSelectorAndClass.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithSameSelectorAndClass.st deleted file mode 100644 index cddfa9d..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoAnnotationsWithSameSelectorAndClass.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testComparisonOfTwoAnnotationsWithSameSelectorAndClass - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithThreeAnnotations. - ann1 declarationSelector: #selector1. - - ann2 := ClassAnnotationExample1 withAnnotatedClass: ClassWithThreeAnnotations. - ann2 declarationSelector: #selector1. - - self assert: ann1 equals: ann2. - self assert: ann1 hash equals: ann2 hash \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoDifferentAnnotations.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoDifferentAnnotations.st deleted file mode 100644 index ec37edf..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testComparisonOfTwoDifferentAnnotations.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testComparisonOfTwoDifferentAnnotations - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - ann1 declarationSelector: #selector1. - - ann2 := ClassAnnotationExample2 withAnnotatedClass: ClassWithSingleAnnotation. - ann2 declarationSelector: #selector1. - - self deny: ann1 = ann2 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testCreationForExplicitAnnotationContext.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testCreationForExplicitAnnotationContext.st deleted file mode 100644 index 34dcbe2..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testCreationForExplicitAnnotationContext.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testCreationForExplicitAnnotationContext - | ann context | - context := SimpleAnnotationContext of: AnnotationUserExample. - ann := ClassAnnotationExample1 for: context. - - self assert: ann class equals: ClassAnnotationExample1. - self assert: ann activeContext equals: context. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testForgettingAnnotation.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testForgettingAnnotation.st deleted file mode 100644 index 1a35ce3..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testForgettingAnnotation.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testForgettingAnnotation - | annotation | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - - ClassAnnotation registry forgetAnnotation: annotation. - - self assert: ClassWithSingleAnnotation classAnnotations isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefinedInstances.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefinedInstances.st deleted file mode 100644 index 922f564..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefinedInstances.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testGettingAllRedefinedInstances - | annotation allRedefined | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation redefineBy: [ annotation priority: -1000 ]. - - allRedefined := annotation class redefinedInstances. - self assert: allRedefined size equals: 1. - self assert: allRedefined anyOne priority equals: 0 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefinedInstancesShouldCleanGarbage.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefinedInstancesShouldCleanGarbage.st deleted file mode 100644 index e6308f5..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefinedInstancesShouldCleanGarbage.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testGettingAllRedefinedInstancesShouldCleanGarbage - | annotation allRedefined | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation redefineBy: [ annotation priority: -1000 ]. - - ClassAnnotation registry forgetAnnotation: annotation. - - allRedefined := annotation class redefinedInstances. - self assert: allRedefined isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefiningInstances.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefiningInstances.st deleted file mode 100644 index 86e1752..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefiningInstances.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testGettingAllRedefiningInstances - | annotation allRedefining | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation redefineBy: [ annotation priority: -1000 ]. - - allRedefining := annotation class redefiningInstances. - self assert: allRedefining size equals: 1. - self assert: allRedefining anyOne priority equals: -1000. - self assert: allRedefining anyOne == annotation \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefiningInstancesShouldCleanGarbage.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefiningInstancesShouldCleanGarbage.st deleted file mode 100644 index 3c52939..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingAllRedefiningInstancesShouldCleanGarbage.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testGettingAllRedefiningInstancesShouldCleanGarbage - | annotation allRedefined | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation redefineBy: [ annotation priority: -1000 ]. - - ClassAnnotation registry forgetAnnotation: annotation. - - allRedefined := annotation class redefiningInstances. - self assert: allRedefined isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingFreshInstance.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingFreshInstance.st deleted file mode 100644 index 208a363..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingFreshInstance.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testGettingFreshInstance - | ann actual | - ann := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - ann declarationSelector: #annotationExample. - - actual := ann freshInstance. - - self assert: actual equals: ClassWithSingleAnnotation annotationExample \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingRedefinedInstance.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingRedefinedInstance.st deleted file mode 100644 index 5a8a611..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingRedefinedInstance.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testGettingRedefinedInstance - | annotation redefinedInstance | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation redefineBy: [ annotation priority: -1000 ]. - - redefinedInstance := annotation redefinedInstance. - self deny: redefinedInstance == annotation. - self assert: redefinedInstance priority equals: 0. - self assert: redefinedInstance isRedefined \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingRedefiningInstance.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingRedefiningInstance.st deleted file mode 100644 index 82d078a..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingRedefiningInstance.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testGettingRedefiningInstance - | annotation actual | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation redefineBy: [ annotation priority: -1000 ]. - - actual := annotation copy redefiningInstance. - - self assert: actual == annotation \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingSingleAnnotationUsingSelector.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingSingleAnnotationUsingSelector.st deleted file mode 100644 index 5f5a143..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testGettingSingleAnnotationUsingSelector.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testGettingSingleAnnotationUsingSelector - | expected actual | - - expected := ClassWithThreeAnnotations classAnnotations - detect: [ :each | each declarationSelector = #annotationExample2 ]. - actual := ClassWithThreeAnnotations classAnnotationAt: #annotationExample2. - - self assert: actual == expected \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testHasNullContextByDefault.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testHasNullContextByDefault.st deleted file mode 100644 index 85458bb..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testHasNullContextByDefault.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testHasNullContextByDefault - - | ann | - ann := ClassAnnotationExample1 new. - - self assert: ann activeContext equals: NullAnnotationContext instance \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testHasZeroPriorityByDefault.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testHasZeroPriorityByDefault.st deleted file mode 100644 index d7a85b7..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testHasZeroPriorityByDefault.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testHasZeroPriorityByDefault - - | ann | - ann := ClassAnnotationExample1 new. - - self assert: ann priority equals: 0 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToAnnotationOfDifferentClass.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToAnnotationOfDifferentClass.st deleted file mode 100644 index 2c47859..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToAnnotationOfDifferentClass.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNotSimilarToAnnotationOfDifferentClass - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - - ann2 := ClassAnnotationExample1 withAnnotatedClass: SubclassWithOnlyInheritedAnnotation. - - self deny: (ann1 isSimilarTo: ann2) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToAnnotationOfSameClassButForDifferentContext.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToAnnotationOfSameClassButForDifferentContext.st deleted file mode 100644 index 36ae659..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToAnnotationOfSameClassButForDifferentContext.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNotSimilarToAnnotationOfSameClassButForDifferentContext - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - - ann2 := ClassAnnotationExample1 for: AnnotationUserExample withAnnotatedClass: ClassWithSingleAnnotation. - - self deny: (ann1 isSimilarTo: ann2) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToDifferentKindAnnotation.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToDifferentKindAnnotation.st deleted file mode 100644 index a535b6e..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testNotSimilarToDifferentKindAnnotation.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNotSimilarToDifferentKindAnnotation - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - - ann2 := ClassAnnotationExample2 withAnnotatedClass: ClassWithSingleAnnotation. - - self deny: (ann1 isSimilarTo: ann2) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testObsolete.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testObsolete.st deleted file mode 100644 index d1b6e24..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testObsolete.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testObsolete - | annotation | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - self deny: annotation isObsolete. - - ClassAnnotation registry forgetAnnotation: annotation. - - self assert: annotation isObsolete \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstance.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstance.st deleted file mode 100644 index a3070c5..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstance.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testRedefiningInstance - | annotation newAnnotation | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - - annotation redefineBy: [ annotation priority: -1000 ]. - self assert: annotation priority equals: -1000. - self assert: annotation isRedefined. - - ClassAnnotation resetCache. - newAnnotation := ClassWithSingleAnnotation classAnnotations anyOne. - self assert: newAnnotation priority equals: -1000. - self assert: newAnnotation isRedefined \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstanceTwice.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstanceTwice.st deleted file mode 100644 index 84129dc..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstanceTwice.st +++ /dev/null @@ -1,16 +0,0 @@ -tests -testRedefiningInstanceTwice - | annotation newAnnotation reverted | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - - annotation redefineBy: [ annotation priority: -1000 ]. - self assert: annotation redefinedInstance priority equals: 0. - annotation redefineBy: [ annotation priority: -2000 ]. - self assert: annotation redefinedInstance priority equals: 0. - - ClassAnnotation resetCache. - newAnnotation := ClassWithSingleAnnotation classAnnotations anyOne. - self assert: newAnnotation priority equals: -2000. - newAnnotation revertRedefinedInstance. - reverted := ClassWithSingleAnnotation classAnnotations anyOne. - self assert: reverted priority equals: 0. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstanceUsingBlockWithArgument.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstanceUsingBlockWithArgument.st deleted file mode 100644 index cbb615c..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRedefiningInstanceUsingBlockWithArgument.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testRedefiningInstanceUsingBlockWithArgument - | newAnnotation | - - ClassWithSingleAnnotation classAnnotations anyOne - redefineBy: [:annotation | annotation priority: -1000 ]. - - newAnnotation := ClassWithSingleAnnotation classAnnotations anyOne. - self assert: newAnnotation priority equals: -1000. - self assert: newAnnotation isRedefined \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRevertingAllRedefinedInstances.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRevertingAllRedefinedInstances.st deleted file mode 100644 index 52edbf2..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRevertingAllRedefinedInstances.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testRevertingAllRedefinedInstances - | annotation | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation class revertRedefinedInstances. - - self assert: annotation class redefinedInstances isEmpty. - self assert: annotation class redefiningInstances isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRevertingRedefinedInstance.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRevertingRedefinedInstance.st deleted file mode 100644 index 74587a0..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testRevertingRedefinedInstance.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testRevertingRedefinedInstance - | annotation revertedAnnotation | - annotation := ClassWithSingleAnnotation classAnnotations anyOne. - annotation redefineBy: [ annotation priority: -1000 ]. - revertedAnnotation := annotation revertRedefinedInstance. - - self deny: revertedAnnotation == annotation. - self assert: revertedAnnotation == ClassWithSingleAnnotation classAnnotations anyOne. - self assert: revertedAnnotation priority equals: 0. - self deny: revertedAnnotation isRedefined \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testSimilarToAnnotationOfSameClassForSameContext.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testSimilarToAnnotationOfSameClassForSameContext.st deleted file mode 100644 index dd6ed98..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testSimilarToAnnotationOfSameClassForSameContext.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testSimilarToAnnotationOfSameClassForSameContext - | ann1 ann2 | - ann1 := ClassAnnotationExample1 for: AnnotationUserExample withAnnotatedClass: ClassWithSingleAnnotation. - - ann2 := ClassAnnotationExample1 for: AnnotationUserExample withAnnotatedClass: ClassWithSingleAnnotation. - - self assert: (ann1 isSimilarTo: ann2) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testSimilarToAnnotationOfSameClassWhenBothDoNotDefinedWithContext.st b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testSimilarToAnnotationOfSameClassWhenBothDoNotDefinedWithContext.st deleted file mode 100644 index 42e3481..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/instance/testSimilarToAnnotationOfSameClassWhenBothDoNotDefinedWithContext.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testSimilarToAnnotationOfSameClassWhenBothDoNotDefinedWithContext - | ann1 ann2 | - ann1 := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - - ann2 := ClassAnnotationExample1 withAnnotatedClass: ClassWithSingleAnnotation. - - self assert: (ann1 isSimilarTo: ann2) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationTests.class/properties.json deleted file mode 100644 index 015afbe..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotationTestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationTests", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassAnnotationUnusedExample.class/README.md b/ClassAnnotation-Tests.package/ClassAnnotationUnusedExample.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassAnnotationUnusedExample.class/properties.json b/ClassAnnotation-Tests.package/ClassAnnotationUnusedExample.class/properties.json deleted file mode 100644 index e461e41..0000000 --- a/ClassAnnotation-Tests.package/ClassAnnotationUnusedExample.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassAnnotationUnusedExample", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/README.md b/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/class/annotationExample.st b/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/class/annotationExample.st deleted file mode 100644 index e8369e8..0000000 --- a/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/class/annotationExample.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample - - - ^ContextualClassAnnotationExample2 for: BaseAnnotationUserExample \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/properties.json b/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/properties.json deleted file mode 100644 index 0a11ce7..0000000 --- a/ClassAnnotation-Tests.package/ClassWithAnnotationDefinedForUserSuperclass.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithAnnotationDefinedForUserSuperclass", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/README.md b/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/class/annotationExample1.st b/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/class/annotationExample1.st deleted file mode 100644 index f897e53..0000000 --- a/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/class/annotationExample1.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample1 - - - ^ContextualClassAnnotationExample1 for: AnnotationUserExample \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/class/annotationExample2.st b/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/class/annotationExample2.st deleted file mode 100644 index ddc89f2..0000000 --- a/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/class/annotationExample2.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample2 - - - ^ContextualClassAnnotationExample1 for: AnnotationUserExample \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/properties.json b/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/properties.json deleted file mode 100644 index 119b8d8..0000000 --- a/ClassAnnotation-Tests.package/ClassWithAnnotationsDefinedForUserClass.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithAnnotationsDefinedForUserClass", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/README.md b/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/class/badAnnotation.st b/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/class/badAnnotation.st deleted file mode 100644 index f0ef6da..0000000 --- a/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/class/badAnnotation.st +++ /dev/null @@ -1,6 +0,0 @@ -annotations -badAnnotation - - - "bad annotation do not return an annotation instance. - In that case user forgot to return anything. And the result will be class itself" \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/properties.json b/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/properties.json deleted file mode 100644 index 63db46d..0000000 --- a/ClassAnnotation-Tests.package/ClassWithBadAnnotatingMethod.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithBadAnnotatingMethod", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/README.md b/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/class/brokenAnnotation.st b/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/class/brokenAnnotation.st deleted file mode 100644 index a15f1fd..0000000 --- a/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/class/brokenAnnotation.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -brokenAnnotation - - - self error: self brokenAnnotationMessage \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/class/brokenAnnotationMessage.st b/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/class/brokenAnnotationMessage.st deleted file mode 100644 index 5890187..0000000 --- a/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/class/brokenAnnotationMessage.st +++ /dev/null @@ -1,3 +0,0 @@ -annotations -brokenAnnotationMessage - ^'This is example of failed class annotation method' \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/properties.json b/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/properties.json deleted file mode 100644 index 712a5c0..0000000 --- a/ClassAnnotation-Tests.package/ClassWithBrokenAnnotatingMethod.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithBrokenAnnotatingMethod", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/README.md b/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/class/failedForbiddenAnnotation.st b/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/class/failedForbiddenAnnotation.st deleted file mode 100644 index 3f9c34b..0000000 --- a/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/class/failedForbiddenAnnotation.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -failedForbiddenAnnotation - - - ^ClassAnnotationExampleWithFailedForbiddenCheck new \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/class/forbiddenAnnotation.st b/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/class/forbiddenAnnotation.st deleted file mode 100644 index 2a9cf8c..0000000 --- a/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/class/forbiddenAnnotation.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -forbiddenAnnotation - - - ^ForbiddenClassAnnotationExample new \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/properties.json b/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/properties.json deleted file mode 100644 index 48d8ad6..0000000 --- a/ClassAnnotation-Tests.package/ClassWithForbiddenAnnotationExample.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithForbiddenAnnotationExample", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/README.md b/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority1.st b/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority1.st deleted file mode 100644 index c27db58..0000000 --- a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority1.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationWithPriority1 - - - ^ClassAnnotationExampleWithPriority new priority: 10 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority2.st b/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority2.st deleted file mode 100644 index 1f18979..0000000 --- a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority2.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationWithPriority2 - - - ^ClassAnnotationExampleWithPriority new priority: 20 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority3.st b/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority3.st deleted file mode 100644 index 681395d..0000000 --- a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/class/annotationWithPriority3.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationWithPriority3 - - - ^ClassAnnotationExampleWithPriority new priority: 15 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/properties.json b/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/properties.json deleted file mode 100644 index 9160589..0000000 --- a/ClassAnnotation-Tests.package/ClassWithPrioritizedAnnotations.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithPrioritizedAnnotations", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/README.md b/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/class/annotationExample.st b/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/class/annotationExample.st deleted file mode 100644 index 4c52f67..0000000 --- a/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/class/annotationExample.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample - - - ^ClassAnnotationExample3 new \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/properties.json b/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/properties.json deleted file mode 100644 index 7547c98..0000000 --- a/ClassAnnotation-Tests.package/ClassWithSingleAnnotation.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithSingleAnnotation", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/README.md b/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample1.st b/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample1.st deleted file mode 100644 index a68e930..0000000 --- a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample1.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample1 - - - ^ClassAnnotationExample1 new \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample2.st b/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample2.st deleted file mode 100644 index 3cf5508..0000000 --- a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample2.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample2 - - - ^ClassAnnotationExample1 new \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample3.st b/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample3.st deleted file mode 100644 index 03ec47d..0000000 --- a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/class/annotationExample3.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample3 - - - ^ClassAnnotationExample2 new \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/properties.json b/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/properties.json deleted file mode 100644 index 36a4197..0000000 --- a/ClassAnnotation-Tests.package/ClassWithThreeAnnotations.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithThreeAnnotations", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ClassWithoutAnnotations.class/README.md b/ClassAnnotation-Tests.package/ClassWithoutAnnotations.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ClassWithoutAnnotations.class/properties.json b/ClassAnnotation-Tests.package/ClassWithoutAnnotations.class/properties.json deleted file mode 100644 index b776066..0000000 --- a/ClassAnnotation-Tests.package/ClassWithoutAnnotations.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ClassWithoutAnnotations", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/README.md b/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testComparison.st b/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testComparison.st deleted file mode 100644 index 64b5780..0000000 --- a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testComparison.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testComparison - - self - assert: Object asAnnotationContext, Array asAnnotationContext - equals: Object asAnnotationContext, Array asAnnotationContext. - self - assert: (Object asAnnotationContext, Array asAnnotationContext) hash - equals: (Object asAnnotationContext, Array asAnnotationContext) hash. - - self deny: (Object asAnnotationContext, Array asAnnotationContext) - = (Object asAnnotationContext, String asAnnotationContext) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByComma.st b/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByComma.st deleted file mode 100644 index ff69492..0000000 --- a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByComma.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testCreationByComma - - | context1 context2 context | - context1 := Object asAnnotationContext. - context2 := Array asAnnotationContext. - - context := context1 , context2. - - self assert: context class equals: CompositeAnnotationContext. - self assert: context parts equals: {context1. context2}. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithCompatibleArgument.st b/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithCompatibleArgument.st deleted file mode 100644 index 5b7b463..0000000 --- a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithCompatibleArgument.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testCreationByCommaWithCompatibleArgument - - | context1 context | - context1 := Object asAnnotationContext. - - context := context1 , Array. - - self assert: context class equals: CompositeAnnotationContext. - self assert: context parts equals: {context1. Array asAnnotationContext}. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithMultipleCompatipleContexts.st b/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithMultipleCompatipleContexts.st deleted file mode 100644 index 01f15f8..0000000 --- a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithMultipleCompatipleContexts.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testCreationByCommaWithMultipleCompatipleContexts - - | context1 context | - context1 := Object asAnnotationContext. - - context := context1 , Array, String. - - self assert: context class equals: CompositeAnnotationContext. - self - assert: context parts - equals: {context1. Array asAnnotationContext. String asAnnotationContext} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithMultipleContexts.st b/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithMultipleContexts.st deleted file mode 100644 index 7766e90..0000000 --- a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/instance/testCreationByCommaWithMultipleContexts.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testCreationByCommaWithMultipleContexts - - | context1 context2 context context3 | - context1 := Object asAnnotationContext. - context2 := Array asAnnotationContext. - context3 := String asAnnotationContext. - - context := context1 , context2, context3. - - self assert: context class equals: CompositeAnnotationContext. - self assert: context parts equals: {context1. context2. context3}. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/properties.json b/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/properties.json deleted file mode 100644 index 9cdd2d5..0000000 --- a/ClassAnnotation-Tests.package/CompositeAnnotationContextTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "CompositeAnnotationContextTests", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/README.md b/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/instance/isActiveInContext..st b/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/instance/isActiveInContext..st deleted file mode 100644 index 667913d..0000000 --- a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/instance/isActiveInContext..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isActiveInContext: anAnnotationUser - ^(super isActiveInContext: anAnnotationUser) - and: [ anAnnotationUser isSimulatedActiveAnnotation ] \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/properties.json b/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/properties.json deleted file mode 100644 index 90884d5..0000000 --- a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample1.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ContextualClassAnnotationExample1", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample2.class/README.md b/ClassAnnotation-Tests.package/ContextualClassAnnotationExample2.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample2.class/properties.json b/ClassAnnotation-Tests.package/ContextualClassAnnotationExample2.class/properties.json deleted file mode 100644 index dc73d21..0000000 --- a/ClassAnnotation-Tests.package/ContextualClassAnnotationExample2.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ContextualClassAnnotationExample2", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/README.md b/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/instance/isForbidden.st b/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/instance/isForbidden.st deleted file mode 100644 index 14a400f..0000000 --- a/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/instance/isForbidden.st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isForbidden - self assert: annotatedClass notNil. - ^true \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/properties.json b/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/properties.json deleted file mode 100644 index 560e947..0000000 --- a/ClassAnnotation-Tests.package/ForbiddenClassAnnotationExample.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ForbiddenClassAnnotationExample", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/README.md b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testAllowDebugBrokenAnnotations.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testAllowDebugBrokenAnnotations.st deleted file mode 100644 index 7523860..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testAllowDebugBrokenAnnotations.st +++ /dev/null @@ -1,14 +0,0 @@ -tests -testAllowDebugBrokenAnnotations - - | annotations ann | - annotations := ClassWithBrokenAnnotatingMethod classAnnotations. - self assert: annotations size equals: 1. - - ann := annotations anyOne. - self assert: ann class equals: BrokenClassAnnotation. - - [ann debug. - self assert: false description: 'should fail'] - on: Error do: [ :err | - self assert: err messageText equals: ClassWithBrokenAnnotatingMethod brokenAnnotationMessage ] \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testAllowDebugForbiddenBrokenAnnotations.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testAllowDebugForbiddenBrokenAnnotations.st deleted file mode 100644 index 13ec718..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testAllowDebugForbiddenBrokenAnnotations.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testAllowDebugForbiddenBrokenAnnotations - - | annotations ann | - annotations := ClassWithForbiddenAnnotationExample classAnnotations. - self assert: annotations size equals: 2. "onw forbidden and one broken" - - ann := (annotations reject: #isForbidden) anyOne. - self assert: ann class equals: BrokenClassAnnotation. - - [ann debug. - self assert: false description: 'should fail'] - on: Error do: [ :err | ] \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testCanBeEnumerated.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testCanBeEnumerated.st deleted file mode 100644 index 8fd8e86..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testCanBeEnumerated.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testCanBeEnumerated - - | enumerated | - enumerated := OrderedCollection new. - ClassWithThreeAnnotations classAnnotationsDo: [:each | enumerated add: each]. - - self assert: enumerated asArray equals: ClassWithThreeAnnotations classAnnotations asArray \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testReturnsInstancesFromAllAnnotatingMethods.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testReturnsInstancesFromAllAnnotatingMethods.st deleted file mode 100644 index 25649b9..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testReturnsInstancesFromAllAnnotatingMethods.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testReturnsInstancesFromAllAnnotatingMethods - - | annotations | - annotations := ClassWithThreeAnnotations classAnnotations. - - self assert: annotations size equals: 3. - annotations do: [ :each | - self assert: each annotatedClass equals: ClassWithThreeAnnotations] \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenAnnotationFailsCheckForForbiddenProperty.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenAnnotationFailsCheckForForbiddenProperty.st deleted file mode 100644 index baf1005..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenAnnotationFailsCheckForForbiddenProperty.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testWhenAnnotationFailsCheckForForbiddenProperty - - | annotations ann | - [ ClassAnnotationExampleWithFailedForbiddenCheck new isForbidden. - self assert: false description: 'should fail' ] ifError: [ ]. - - annotations := ClassWithForbiddenAnnotationExample classAnnotations. - self assert: annotations size equals: 2. "one forbidden and one broken" - - ann := (annotations reject: #isForbidden) anyOne. - - self assert: ann class equals: BrokenClassAnnotation. - self assert: ann annotatedClass equals: ClassWithForbiddenAnnotationExample. - self assert: ann declarationSelector equals: #failedForbiddenAnnotation diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenClassHasNoAnnotations.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenClassHasNoAnnotations.st deleted file mode 100644 index 5e9443e..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenClassHasNoAnnotations.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testWhenClassHasNoAnnotations - - | annotations | - annotations := ClassWithoutAnnotations classAnnotations. - - self assert: annotations isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenDeclaringMethodIsBroken.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenDeclaringMethodIsBroken.st deleted file mode 100644 index 163b3b9..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenDeclaringMethodIsBroken.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testWhenDeclaringMethodIsBroken - - | annotations ann | - annotations := ClassWithBrokenAnnotatingMethod classAnnotations. - self assert: annotations size equals: 1. - - ann := annotations anyOne. - - self assert: ann class equals: BrokenClassAnnotation. - self assert: ann annotatedClass equals: ClassWithBrokenAnnotatingMethod. - self assert: ann declarationSelector equals: #brokenAnnotation. - self assert: (ann errorString endsWith: ClassWithBrokenAnnotatingMethod brokenAnnotationMessage). \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenDeclaringMethodNotReturnAnnotation.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenDeclaringMethodNotReturnAnnotation.st deleted file mode 100644 index 0b722bf..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenDeclaringMethodNotReturnAnnotation.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testWhenDeclaringMethodNotReturnAnnotation - - | annotations ann | - annotations := ClassWithBadAnnotatingMethod classAnnotations. - self assert: annotations size equals: 1. - - ann := annotations anyOne. - - self assert: ann class equals: BrokenClassAnnotation. - self assert: ann annotatedClass equals: ClassWithBadAnnotatingMethod. - self assert: ann declarationSelector equals: #badAnnotation \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenItOverridesSuperclassAnnotations.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenItOverridesSuperclassAnnotations.st deleted file mode 100644 index a9a39d8..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenItOverridesSuperclassAnnotations.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testWhenItOverridesSuperclassAnnotations - - | annotations | - annotations := SubclassWithOverridenAnnotation classAnnotations. - - self assert: annotations size equals: 1. - self assert: annotations anyOne annotatedClass equals: SubclassWithOverridenAnnotation. - self assert: annotations anyOne class equals: ClassAnnotationExample2. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenSuperclassIsAnnotatedToo.st b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenSuperclassIsAnnotatedToo.st deleted file mode 100644 index 6c4ecdc..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/instance/testWhenSuperclassIsAnnotatedToo.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testWhenSuperclassIsAnnotatedToo - - | annotations | - annotations := SubclassWithOnlyInheritedAnnotation classAnnotations. - - self assert: annotations size equals: 1. - self assert: annotations anyOne annotatedClass equals: SubclassWithOnlyInheritedAnnotation \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/properties.json b/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/properties.json deleted file mode 100644 index d2f5143..0000000 --- a/ClassAnnotation-Tests.package/QueryAnnotationsFromClassTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotationTestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "QueryAnnotationsFromClassTests", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/README.md b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/setUp.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/setUp.st deleted file mode 100644 index 3cba39a..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/setUp.st +++ /dev/null @@ -1,5 +0,0 @@ -running -setUp - super setUp. - - ClassAnnotation resetCache \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/tearDown.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/tearDown.st deleted file mode 100644 index 147c422..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/tearDown.st +++ /dev/null @@ -1,6 +0,0 @@ -running -tearDown - - ClassAnnotation resetCache. - - super tearDown. \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreCached.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreCached.st deleted file mode 100644 index 2ff895f..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreCached.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testAreCached - - | annotations | - annotations := ClassAnnotationExample1 registeredInstances. - - self assert: ClassAnnotationExample1 registeredInstances == annotations \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreDifferentForDifferentAnnotationClasses.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreDifferentForDifferentAnnotationClasses.st deleted file mode 100644 index e7114c5..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreDifferentForDifferentAnnotationClasses.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testAreDifferentForDifferentAnnotationClasses - - | annotations1 annotations2 | - annotations1 := ClassAnnotationExample1 registeredInstances. - annotations2 := ClassAnnotationExample2 registeredInstances. - - self deny: annotations1 = annotations2 \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreEmptyForUnusedAnnotation.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreEmptyForUnusedAnnotation.st deleted file mode 100644 index c62153a..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreEmptyForUnusedAnnotation.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testAreEmptyForUnusedAnnotation - - | actual | - actual := ClassAnnotationUnusedExample registeredInstances. - - self assert: actual isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreSortedByPriority.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreSortedByPriority.st deleted file mode 100644 index 649bed6..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testAreSortedByPriority.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testAreSortedByPriority - - | annotations expected | - annotations := ClassAnnotationExampleWithPriority registeredInstances. - - self assert: annotations size equals: 3. - - expected := annotations sorted: #priority descending. - self assert: annotations asArray equals: expected asArray \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testCanBeEnumerated.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testCanBeEnumerated.st deleted file mode 100644 index 2dba4fb..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testCanBeEnumerated.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testCanBeEnumerated - - | enumerated | - enumerated := OrderedCollection new. - ClassAnnotationExample1 registeredInstancesDo: [:each | enumerated add: each]. - - self assert: enumerated asArray equals: ClassAnnotationExample1 registeredInstances asArray \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testCanBeQueriedForConcreteClass.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testCanBeQueriedForConcreteClass.st deleted file mode 100644 index c430cab..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testCanBeQueriedForConcreteClass.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testCanBeQueriedForConcreteClass - - | annotations | - annotations := ClassAnnotationExample1 registeredInstancesFor: ClassWithThreeAnnotations. - - self assert: annotations size equals: 2. - self assert: (annotations collect: #annotatedClass as: Set) equals: {ClassWithThreeAnnotations} asSet \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeCopiesForEachSubclassOfOriginDeclaration.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeCopiesForEachSubclassOfOriginDeclaration.st deleted file mode 100644 index bbe5302..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeCopiesForEachSubclassOfOriginDeclaration.st +++ /dev/null @@ -1,7 +0,0 @@ -tests -testIncludeCopiesForEachSubclassOfOriginDeclaration - - | annotations | - annotations := ClassAnnotationExample3 registeredInstances. - - self assert: (annotations anySatisfy: [ :each | each annotatedClass = SubclassWithOnlyInheritedAnnotation ]) \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeForbiddenClassesAsSpecialForbiddenAnnotations.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeForbiddenClassesAsSpecialForbiddenAnnotations.st deleted file mode 100644 index 65ce865..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeForbiddenClassesAsSpecialForbiddenAnnotations.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testIncludeForbiddenClassesAsSpecialForbiddenAnnotations - | allForbidden forbidden actualAnnotation | - - allForbidden := ForbiddenClassAnnotation registeredInstancesFor: ClassWithForbiddenAnnotationExample. - forbidden := allForbidden detect: [:each | each declarationSelector = #forbiddenAnnotation]. - actualAnnotation := forbidden actualAnnotation. - self assert: actualAnnotation class equals: ForbiddenClassAnnotationExample \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeInstancesFromAllAnnotatingMethodsOfAnyClassInSystem.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeInstancesFromAllAnnotatingMethodsOfAnyClassInSystem.st deleted file mode 100644 index 9cb2c3b..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testIncludeInstancesFromAllAnnotatingMethodsOfAnyClassInSystem.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testIncludeInstancesFromAllAnnotatingMethodsOfAnyClassInSystem - - | annotations | - annotations := ClassAnnotationExample1 registeredInstances. - - self assert: annotations size equals: 2. - self assert: (annotations collect: #class as: Set) equals: {ClassAnnotationExample1} asSet \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testNotIncludeForbiddenClassesAsBrokenAnnotations.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testNotIncludeForbiddenClassesAsBrokenAnnotations.st deleted file mode 100644 index da37e1a..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testNotIncludeForbiddenClassesAsBrokenAnnotations.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNotIncludeForbiddenClassesAsBrokenAnnotations - | broken | - - broken := BrokenClassAnnotation registeredInstancesFor: ClassWithForbiddenAnnotationExample. - broken - detect: [:each | each declarationSelector = #forbiddenAnnotation] - ifFound: [ :ann | self assert: false description: 'forbidden annotation should not be broken' ] \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testNotIncludeInstancesAnnotatingForbiddenClasses.st b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testNotIncludeInstancesAnnotatingForbiddenClasses.st deleted file mode 100644 index 10ddeab..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/instance/testNotIncludeInstancesAnnotatingForbiddenClasses.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNotIncludeInstancesAnnotatingForbiddenClasses - "In that test the annotation define canAnnotateClass: with constant false answer. - So any annotating methods which define it should never register their instances" - | annotations | - annotations := ForbiddenClassAnnotationExample registeredInstances. - - self assert: annotations isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/properties.json b/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/properties.json deleted file mode 100644 index c5b4fbe..0000000 --- a/ClassAnnotation-Tests.package/RegisteredClassAnnotationsTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotationTestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "RegisteredClassAnnotationsTests", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/SimpleAnnotationContextTests.class/README.md b/ClassAnnotation-Tests.package/SimpleAnnotationContextTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/SimpleAnnotationContextTests.class/properties.json b/ClassAnnotation-Tests.package/SimpleAnnotationContextTests.class/properties.json deleted file mode 100644 index 937ed0a..0000000 --- a/ClassAnnotation-Tests.package/SimpleAnnotationContextTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "SimpleAnnotationContextTests", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/SubclassWithOnlyInheritedAnnotation.class/README.md b/ClassAnnotation-Tests.package/SubclassWithOnlyInheritedAnnotation.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/SubclassWithOnlyInheritedAnnotation.class/properties.json b/ClassAnnotation-Tests.package/SubclassWithOnlyInheritedAnnotation.class/properties.json deleted file mode 100644 index f6ca419..0000000 --- a/ClassAnnotation-Tests.package/SubclassWithOnlyInheritedAnnotation.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassWithSingleAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "SubclassWithOnlyInheritedAnnotation", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/README.md b/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/class/annotationExample.st b/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/class/annotationExample.st deleted file mode 100644 index 83df9e7..0000000 --- a/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/class/annotationExample.st +++ /dev/null @@ -1,5 +0,0 @@ -annotations -annotationExample - - - ^ClassAnnotationExample2 new \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/properties.json b/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/properties.json deleted file mode 100644 index 30719f8..0000000 --- a/ClassAnnotation-Tests.package/SubclassWithOverridenAnnotation.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassWithSingleAnnotation", - "category" : "ClassAnnotation-Tests-Examples-Annotated classes", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "SubclassWithOverridenAnnotation", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/README.md b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/README.md deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenClassAndUser.st b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenClassAndUser.st deleted file mode 100644 index dacfdf4..0000000 --- a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenClassAndUser.st +++ /dev/null @@ -1,12 +0,0 @@ -tests -testCanBeEnumeratedForGivenClassAndUser - - | annotationUser actual expected | - annotationUser := AnnotationUserExample new. - actual := OrderedCollection new. - ContextualClassAnnotationExample1 - visibleInstancesFor: ClassWithAnnotationsDefinedForUserClass inContext: annotationUser - do: [:each | actual add: each]. - expected := ContextualClassAnnotationExample1 visibleInstancesInContext: annotationUser. - - self assert: actual asSet equals: expected asSet \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenUser.st b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenUser.st deleted file mode 100644 index eca29c0..0000000 --- a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testCanBeEnumeratedForGivenUser.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testCanBeEnumeratedForGivenUser - - | annotationUser actual expected | - annotationUser := AnnotationUserExample new. - actual := OrderedCollection new. - ContextualClassAnnotationExample1 visibleInstancesInContext: annotationUser do: [:each | - actual add: each]. - expected := ContextualClassAnnotationExample1 visibleInstancesInContext: annotationUser. - - self assert: actual asSet equals: expected asSet. diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testIncludeInstancesDeclaredForSuperclassOfGivenUser.st b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testIncludeInstancesDeclaredForSuperclassOfGivenUser.st deleted file mode 100644 index f10db96..0000000 --- a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testIncludeInstancesDeclaredForSuperclassOfGivenUser.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testIncludeInstancesDeclaredForSuperclassOfGivenUser - - | annotations annotationUser declaredContext | - annotationUser := AnnotationUserExample new. - annotations := ContextualClassAnnotationExample2 visibleInstancesInContext: annotationUser. - - self assert: annotations size equals: 1. - declaredContext := annotations anyOne activeContext annotationUserClass. - self assert: declaredContext equals: BaseAnnotationUserExample \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testIncludeOnlyInstancesCreatedForGivenUser.st b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testIncludeOnlyInstancesCreatedForGivenUser.st deleted file mode 100644 index c5296e2..0000000 --- a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testIncludeOnlyInstancesCreatedForGivenUser.st +++ /dev/null @@ -1,10 +0,0 @@ -tests -testIncludeOnlyInstancesCreatedForGivenUser - - | annotations annotationUser declaredContexts | - annotationUser := AnnotationUserExample new. - annotations := ContextualClassAnnotationExample1 visibleInstancesInContext: annotationUser. - - self assert: annotations size equals: 2. - declaredContexts := annotations collect: [:each | each activeContext annotationUserClass]. - self assert: declaredContexts asSet equals: {AnnotationUserExample} asSet \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testNotIncludeInstancesWithoutContext.st b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testNotIncludeInstancesWithoutContext.st deleted file mode 100644 index 76f7e98..0000000 --- a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testNotIncludeInstancesWithoutContext.st +++ /dev/null @@ -1,8 +0,0 @@ -tests -testNotIncludeInstancesWithoutContext - - | annotations annotationUser | - annotationUser := AnnotationUserExample new. - annotations := ClassAnnotationExample1 visibleInstancesInContext: annotationUser. - - self assert: annotations isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testWhenThereIsNoOne.st b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testWhenThereIsNoOne.st deleted file mode 100644 index 215ff8f..0000000 --- a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/instance/testWhenThereIsNoOne.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testWhenThereIsNoOne - - | annotations annotationUser | - annotationUser := Object new. "context can be anything" - - annotations := ContextualClassAnnotationExample1 visibleInstancesInContext: annotationUser. - - self assert: annotations isEmpty \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/properties.json b/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/properties.json deleted file mode 100644 index cb9d52f..0000000 --- a/ClassAnnotation-Tests.package/VisibleClassAnnotationsTests.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ClassAnnotationTestCase", - "category" : "ClassAnnotation-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "VisibleClassAnnotationsTests", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/monticello.meta/categories.st b/ClassAnnotation-Tests.package/monticello.meta/categories.st deleted file mode 100644 index b4beb71..0000000 --- a/ClassAnnotation-Tests.package/monticello.meta/categories.st +++ /dev/null @@ -1,4 +0,0 @@ -SystemOrganization addCategory: #'ClassAnnotation-Tests'! -SystemOrganization addCategory: #'ClassAnnotation-Tests-Examples-Annotated classes'! -SystemOrganization addCategory: #'ClassAnnotation-Tests-Examples-Annotation contexts'! -SystemOrganization addCategory: #'ClassAnnotation-Tests-Examples-Annotations'! diff --git a/ClassAnnotation-Tests.package/monticello.meta/initializers.st b/ClassAnnotation-Tests.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29..0000000 diff --git a/ClassAnnotation-Tests.package/monticello.meta/package b/ClassAnnotation-Tests.package/monticello.meta/package deleted file mode 100644 index e1dc7a1..0000000 --- a/ClassAnnotation-Tests.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'ClassAnnotation-Tests') \ No newline at end of file diff --git a/ClassAnnotation-Tests.package/properties.json b/ClassAnnotation-Tests.package/properties.json deleted file mode 100644 index 6f31cf5..0000000 --- a/ClassAnnotation-Tests.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/ClassAnnotation.package/.filetree b/ClassAnnotation.package/.filetree deleted file mode 100644 index 57a6797..0000000 --- a/ClassAnnotation.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/ClassAnnotation.package/AnnotationContext.class/README.md b/ClassAnnotation.package/AnnotationContext.class/README.md deleted file mode 100644 index 520cd92..0000000 --- a/ClassAnnotation.package/AnnotationContext.class/README.md +++ /dev/null @@ -1,8 +0,0 @@ -My subclasses describe users of annotations. -They should implement single method #describes: with user as argument. User can be any object. It is provided applications during annotation lookup. - -By default annotations has NullAnnotationContext which do not describe any possible user. So when you query annotations for given user annotations without specified contexts will be skipped. - -For simplicity there is one simple context implementation the SimpleAnnotationContext which represents the hierarchy of user classes. It is hidden from users and created when class is specified for annotation context: - MyClassAnnotation for: MyUser -Look at subclasses comments for details. \ No newline at end of file diff --git a/ClassAnnotation.package/AnnotationContext.class/instance/^comma.st b/ClassAnnotation.package/AnnotationContext.class/instance/^comma.st deleted file mode 100644 index 9bcac3d..0000000 --- a/ClassAnnotation.package/AnnotationContext.class/instance/^comma.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -, anAnnotationContext - ^ CompositeAnnotationContext with: { self. anAnnotationContext asAnnotationContext} \ No newline at end of file diff --git a/ClassAnnotation.package/AnnotationContext.class/instance/asAnnotationContext.st b/ClassAnnotation.package/AnnotationContext.class/instance/asAnnotationContext.st deleted file mode 100644 index b26e406..0000000 --- a/ClassAnnotation.package/AnnotationContext.class/instance/asAnnotationContext.st +++ /dev/null @@ -1,3 +0,0 @@ -converting -asAnnotationContext - ^self \ No newline at end of file diff --git a/ClassAnnotation.package/AnnotationContext.class/instance/describes..st b/ClassAnnotation.package/AnnotationContext.class/instance/describes..st deleted file mode 100644 index 709b58d..0000000 --- a/ClassAnnotation.package/AnnotationContext.class/instance/describes..st +++ /dev/null @@ -1,6 +0,0 @@ -testing -describes: anAnnotationUser - "The annotation context describes users of annotation. - Subclasses should decide if given anAnnotationUser is appropriate annotation user. - anAnnotationUser can be any object" - self subclassResponsibility \ No newline at end of file diff --git a/ClassAnnotation.package/AnnotationContext.class/properties.json b/ClassAnnotation.package/AnnotationContext.class/properties.json deleted file mode 100644 index 2488e4d..0000000 --- a/ClassAnnotation.package/AnnotationContext.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "DenisKudryashov 12/21/2017 16:51", - "super" : "Object", - "category" : "ClassAnnotation", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "AnnotationContext", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/README.md b/ClassAnnotation.package/BrokenClassAnnotation.class/README.md deleted file mode 100644 index e7e4e12..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/README.md +++ /dev/null @@ -1,18 +0,0 @@ -I represent broken class annotation when declaration method raises error during registry building. - -I include description of raisen error in my variable errorString. - -To debug broken annotation you can inspect all of them using: - BrokenClassMetaAnnotation registeredInstances -Then ask #debug to choosen annotation: - brokenAnnotation debug. -It perform declaration method which will open debugger. - -My instances are created using mesage #withError: - BrokenClassAnnotation withError: anError -I only collect description of given error to not keep garbage of failed process. - -Internal Representation and Key Implementation Points. - - Instance Variables - errorString: diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/class/forBadMethodReturn.st b/ClassAnnotation.package/BrokenClassAnnotation.class/class/forBadMethodReturn.st deleted file mode 100644 index a7c6118..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/class/forBadMethodReturn.st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -forBadMethodReturn - ^self new - errorString: 'Annotating method do not return an annotation instance' \ No newline at end of file diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/class/withError..st b/ClassAnnotation.package/BrokenClassAnnotation.class/class/withError..st deleted file mode 100644 index 74b6db5..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/class/withError..st +++ /dev/null @@ -1,4 +0,0 @@ -instance creation -withError: anError - ^self new - errorString: anError description \ No newline at end of file diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/debug.st b/ClassAnnotation.package/BrokenClassAnnotation.class/instance/debug.st deleted file mode 100644 index 27e8a9b..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/debug.st +++ /dev/null @@ -1,7 +0,0 @@ -operations -debug - "here we just reevaluate messages which could fail" - | ann | - ann := self freshInstance. - ann isForbidden. - ^ann \ No newline at end of file diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/errorString..st b/ClassAnnotation.package/BrokenClassAnnotation.class/instance/errorString..st deleted file mode 100644 index f2ab1e6..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/errorString..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -errorString: anObject - errorString := anObject \ No newline at end of file diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/errorString.st b/ClassAnnotation.package/BrokenClassAnnotation.class/instance/errorString.st deleted file mode 100644 index 09e0c68..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/errorString.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -errorString - ^ errorString \ No newline at end of file diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/printOn..st b/ClassAnnotation.package/BrokenClassAnnotation.class/instance/printOn..st deleted file mode 100644 index 8385ac2..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/instance/printOn..st +++ /dev/null @@ -1,5 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - - self printDeclarationOn: aStream \ No newline at end of file diff --git a/ClassAnnotation.package/BrokenClassAnnotation.class/properties.json b/ClassAnnotation.package/BrokenClassAnnotation.class/properties.json deleted file mode 100644 index 5a57101..0000000 --- a/ClassAnnotation.package/BrokenClassAnnotation.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "DenisKudryashov 9/28/2017 18:34", - "super" : "ClassAnnotation", - "category" : "ClassAnnotation", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "errorString" - ], - "name" : "BrokenClassAnnotation", - "type" : "normal" -} \ No newline at end of file diff --git a/ClassAnnotation.package/Class.extension/instance/asAnnotationContext.st b/ClassAnnotation.package/Class.extension/instance/asAnnotationContext.st deleted file mode 100644 index 0f73869..0000000 --- a/ClassAnnotation.package/Class.extension/instance/asAnnotationContext.st +++ /dev/null @@ -1,3 +0,0 @@ -*ClassAnnotation -asAnnotationContext - ^SimpleAnnotationContext of: self \ No newline at end of file diff --git a/ClassAnnotation.package/Class.extension/instance/classAnnotationAt..st b/ClassAnnotation.package/Class.extension/instance/classAnnotationAt..st deleted file mode 100644 index a129e25..0000000 --- a/ClassAnnotation.package/Class.extension/instance/classAnnotationAt..st +++ /dev/null @@ -1,4 +0,0 @@ -*ClassAnnotation -classAnnotationAt: selector - ^self classAnnotations - detect: [ :each | each declarationSelector = selector ] \ No newline at end of file diff --git a/ClassAnnotation.package/Class.extension/instance/classAnnotations.st b/ClassAnnotation.package/Class.extension/instance/classAnnotations.st deleted file mode 100644 index 1c42b91..0000000 --- a/ClassAnnotation.package/Class.extension/instance/classAnnotations.st +++ /dev/null @@ -1,3 +0,0 @@ -*ClassAnnotation -classAnnotations - ^ClassAnnotation findAllAnnotationsFor: self \ No newline at end of file diff --git a/ClassAnnotation.package/Class.extension/instance/classAnnotationsDo..st b/ClassAnnotation.package/Class.extension/instance/classAnnotationsDo..st deleted file mode 100644 index 11557fc..0000000 --- a/ClassAnnotation.package/Class.extension/instance/classAnnotationsDo..st +++ /dev/null @@ -1,3 +0,0 @@ -*ClassAnnotation -classAnnotationsDo: aBlock - ^(ClassAnnotation findAllAnnotationsFor: self) do: aBlock \ No newline at end of file diff --git a/ClassAnnotation.package/Class.extension/properties.json b/ClassAnnotation.package/Class.extension/properties.json deleted file mode 100644 index 9a2bf4a..0000000 --- a/ClassAnnotation.package/Class.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "Class" -} \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/README.md b/ClassAnnotation.package/ClassAnnotation.class/README.md deleted file mode 100644 index 5390e00..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/README.md +++ /dev/null @@ -1,183 +0,0 @@ -I am the root of class annotation hierarchy. -My subclasses should annotate classes using class side methods with the pragma #classAnnotation. -For example: - - MyClass class>>specialAnnotationExample - - ^MySpecialAnnotation new - -The annotating method should return an instance of the annotation. - -I provide a query API to retrieve all registered instances of a concrete annotation class: - - MySpecialAnnotation registeredInstances. - MySpecialAnnotation registeredInstancesFor: MyClass. - MySpecialAnnotation registeredInstancesDo: [:each | each logCr]. - -Each annotation includes the annotated class and the selector of declaration method. -All annotations are cached in default ClassAnnotationRegistry instance. It is cheap to query them. - -Classes itself can be queried for all attached annotations: - - MyClass classAnnotations. - MyClass classAnnotationsDo: [:each | each logCr]. - -I provide extra hook to forbid annotating of particular classes. For example my subclasses can define that abstract classses should not be annotated by them. -The rule should be implemented in the method: - - MySpecialAnnotation >>isForbidden - ^annotatedClass isAbstract - -By default method returns true which means that annotation can annotate any class. - -Because annotations are declared in the methods it provides interesting feature to extend meta information from external packages. -Just define declaration method as class extension. And when your package will be loaded the new annotation will be added into existing class. - -There is no special way how instantiate annotation instances. It is up to your domain. -The internal state is initialized during Registry creation. Users should not think about it. -You can add any domain specific variables to your annotations and add constructors to initialize them in declaration methods. -Annotations are just normal objects without any restrictions. You can also attatch annotations to annotations like in other languages. - ------------Advanced features. Priority------------ - -Annotations in the registry are sorted by priority. It provides out of the box mechanizm for ordering annotated classes for the user domain purposes. -Just pass priority number into the annotation when you create it in declaration method. And define suitable constructor for this. - ------------Advanced features. Context------------ - -Any annotation can be contextual. You can specify instance of context where annotation can be used: - MySpecialAnnotation for: anAnotationContext -Context describes annotation users where they should be active. - -For simplicity you can specify any class instead of context instance. It will represent all users of annotation of particular class hierarchy: - - MySpecialAnnotation for: MyUserClass. - -Internallly argument is always converted to the context: - - MyUserClass asAnnotationContext. - -I provide query interface to retriev registered annotations which are active in given context: - - MySpecialAnnotation activeInstancesInContext: anAnnotationUser. - MySpecialAnnotation activeInstancesInContext: anAnnotationUser do: [:ann | ]. - MySpecialAnnotation activeInstancesFor: MyClass inContext: anAnnotationUser do: [:ann | ]. - -By default the annotation is active if given user is described by declared context: - - ClassAnnotation>>isActiveInContext: anAnnotationUser - ^activeContext describes: anAnnotationUser - -Subclasses can provide extra conditions for active annotations. In that case they override this method: - - MySpecialAnnotation>>isActiveInContext: anAnnotationUser - ^(super isActiveInContext: anAnnotationUser) - and: [annotatingClass canBeUsedInContext: anAnnotationUser] - -So the logic can depends on annotating class itself and actual annotation user. - -For some scenarios you may need to query annotations according to original "active" definition despite of extra conditions. -For such cases I introduced the "visibility" of annotations: the annotation is visible if it is declared for given user: - - ClassAnnotation>>isVisibleInContext: anAnnotationUser - ^activeContext describes: anAnnotationUser - -So the visible annotation is not necessary active. But active annotation is always visible for given user: - - ClassAnnotation>>isActiveInContext: anAnnotationUser - ^self isVisibleInContext: anAnnotationUser - -(I showed another version above to simplify description). -There are extra query methods to retrieve visible annotations: - - MySpecialAnnotation visibleInstancesInContext: anAnnotationUser. - MySpecialAnnotation visibleInstancesInContext: anAnnotationUser do: [:ann | ]. - MySpecialAnnotation visibleInstancesFor: MyClass inContext: anAnnotationUser do: [:ann | ]. - ------------Advanced features. Annotation dependency methods------------ - -It is possible to call other methods inside annotation declaring methods (with pragma ). -Such methods are dependency methods and their modification requires updating annotation cache (registry). -You can do it manually using - - ClassAnnotation resetAll - -Or you can mark such methods with special pragma and systen will track these methods for automatically. -For example in Commander package there is CmdShortcutCommandActivation annotation. It provides reusable methods for rename and remove shorcuts: cmd+r and cmd+x. So you can annotate commands using: - - MyRenameCommand class>>shortcutActivation - - ^CmdShortcutCommandActivation renamingFor: MyApp. - -This annotation will keep cmd+r in instance variable. -If you will modify #renamingFor: method with new shorctut the annotations should be updated. And special pragma ensures this logic: - - CmdShortcutCommandActivation class>>renamingFor: anAnnotationUser - - ^self by: $r meta for: anAnnotationUser - ------------Advanced features. Redefining registered instances------------ - -All annotations are collected from methods and cached in default ClassAnnotationRegistry instance. -I provide special mechanizm to redefine collected instances. When cache is updated I use and keep all redefined annotations. - -To redefine particular annotation use #redefineBy: message with block which sets custom properties to original instance. -For example following code allows to redefine shortcut of #browse command in Calypso: - - (ClySpawnFullBrowserCommand classAnnotationsAt: #browserShortcutActivation) - redefineBy: [:shortcut | shortcut keyCombination: $o meta ]. - -Try evaluate it and press cmd+o on selected item in browser. If will open new browser window. -You can notice that old shortcut cmd+b is not working anymore. - -Now you can manualy reset annotation cache to check that it will not affect redefined shortcut: - - ClassAnnotation resetCache. - -To inspect redefined annotations ask their class for: - - CmdShortcutCommandActivation redefinedInstances - -Redefined instances are stored in class side variable #redefinedInstances. -It is a dictionary which keys are new redefining annotations and values are original annotations collected from methods. -Notice that key and value are equal objects because annotations define equality using annotated class and declaration selector. -So dictionary items can be accessed using both objects. - -To check that annotation is redefined use following example: - - (ClySpawnFullBrowserCommand classAnnotationsAt: #browserShortcutActivation) - isRedefined - -And you can ask actual redefined annotaion: - - (ClySpawnFullBrowserCommand classAnnotationsAt: #browserShortcutActivation) - redefinedInstance - -Using annotation instance you can also retrieve redefining instance: - - anAnnotation redefiningInstance. - -It should be identical to cached one. - -To revert redefined annotation use #revertRedefinedInstance message: - - (ClySpawnFullBrowserCommand classAnnotationsAt: #browserShortcutActivation) - revertRedefinedInstance - -Check that now browse command is again activated by cmd+b shortcut (which is defined in annotation declaration method). - -To revert all annotations use following script: - - CmdShortcutCommandActivation revertRedefinedInstances - -Redefining logic is very suitable mehanizm to override system behavior which depends on annotations without changing the code. -It can be used to manage particular kind of annotation in settings browser. -For example shortcut annotations based on Commander are available in setting browser. Users can explore and edit all shortcuts in the system. And these settings are persistable. - ------------Internal Representation and Key Implementation Points------------ - - Instance Variables - annotatedClass: - declarationSelector: - priority: - activeContext: \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesFor.inContext.do..st b/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesFor.inContext.do..st deleted file mode 100644 index d55b2eb..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesFor.inContext.do..st +++ /dev/null @@ -1,9 +0,0 @@ -queries-contextual -activeInstancesFor: aClass inContext: anAnnotationUser do: aBlock - "it will enumerate all my registered instances active for given anAnnotationUser - which are annotating given aClass" - - self registeredInstances - select: [ :each | - (each annotates: aClass) and: [each isActiveInContext: anAnnotationUser] ] - thenDo: aBlock \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesInContext..st b/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesInContext..st deleted file mode 100644 index bccc158..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesInContext..st +++ /dev/null @@ -1,6 +0,0 @@ -queries-contextual -activeInstancesInContext: anAnnotationUser - "it will return all my registered instances which should be active for given anAnnotationUser" - - ^self registeredInstances - select: [ :each | each isActiveInContext: anAnnotationUser ] \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesInContext.do..st b/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesInContext.do..st deleted file mode 100644 index e7aed22..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/activeInstancesInContext.do..st +++ /dev/null @@ -1,7 +0,0 @@ -queries-contextual -activeInstancesInContext: anAnnotationUser do: aBlock - "it will enumerate all my registered instances which should be active for given anAnnotationUser" - - self registeredInstances - select: [ :each | each isActiveInContext: anAnnotationUser ] - thenDo: aBlock \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/cleanRedefinedGarbage.st b/ClassAnnotation.package/ClassAnnotation.class/class/cleanRedefinedGarbage.st deleted file mode 100644 index 09b3c90..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/cleanRedefinedGarbage.st +++ /dev/null @@ -1,11 +0,0 @@ -redefining -cleanRedefinedGarbage - "We should remove here all obsolete annotations which not exist in cache anymore. - It can happen for several reasons: - - annotation method was removed. - - annotated class was removed - - and various changes related to class hierarchy" - redefinedInstances ifNil: [ ^self]. - - (redefinedInstances select: [ :each | each isObsolete ]) - do: [ :each | redefinedInstances removeKey: each ] \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/createContainerForRegistry.st b/ClassAnnotation.package/ClassAnnotation.class/class/createContainerForRegistry.st deleted file mode 100644 index 5147603..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/createContainerForRegistry.st +++ /dev/null @@ -1,3 +0,0 @@ -private -createContainerForRegistry - ^SortedCollection sortBlock: #priority descending \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/findAllAnnotationsFor..st b/ClassAnnotation.package/ClassAnnotation.class/class/findAllAnnotationsFor..st deleted file mode 100644 index 8d43e22..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/findAllAnnotationsFor..st +++ /dev/null @@ -1,4 +0,0 @@ -queries-general -findAllAnnotationsFor: aClass - - ^self registry allAnnotating: aClass \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/for..st b/ClassAnnotation.package/ClassAnnotation.class/class/for..st deleted file mode 100644 index 8976f91..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/for..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -for: anAnnotationContextOrCompatible - "For example argument can be a class which represents the context" - ^ self new - activeContext: anAnnotationContextOrCompatible asAnnotationContext \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/for.withAnnotatedClass..st b/ClassAnnotation.package/ClassAnnotation.class/class/for.withAnnotatedClass..st deleted file mode 100644 index 7b21d0b..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/for.withAnnotatedClass..st +++ /dev/null @@ -1,7 +0,0 @@ -for tests -for: aContext withAnnotatedClass: aClass - "This method is created to be used in tests. - Normally annotatedClass is initialized by system during annotation registry building" - - ^(self for: aContext) - annotatedClass: aClass \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/isInstanceRedefined..st b/ClassAnnotation.package/ClassAnnotation.class/class/isInstanceRedefined..st deleted file mode 100644 index f0429e1..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/isInstanceRedefined..st +++ /dev/null @@ -1,6 +0,0 @@ -testing -isInstanceRedefined: aClassAnnotation - - redefinedInstances ifNil: [ ^false ]. - - ^redefinedInstances includesKey: aClassAnnotation \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/isInstanceRegistered..st b/ClassAnnotation.package/ClassAnnotation.class/class/isInstanceRegistered..st deleted file mode 100644 index 08ea0ec..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/isInstanceRegistered..st +++ /dev/null @@ -1,4 +0,0 @@ -testing -isInstanceRegistered: aClassAnnotation - - ^self registry includesAnnotation: aClassAnnotation \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/redefineInstance.by..st b/ClassAnnotation.package/ClassAnnotation.class/class/redefineInstance.by..st deleted file mode 100644 index 45a0f84..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/redefineInstance.by..st +++ /dev/null @@ -1,9 +0,0 @@ -redefining -redefineInstance: aClassAnnotation by: aBlock - | redefined | - redefinedInstances ifNil: [ redefinedInstances := Dictionary new ]. - - redefined := redefinedInstances - removeKey: aClassAnnotation ifAbsent: [ aClassAnnotation asRedefinedInstance ]. - redefinedInstances at: aClassAnnotation put: redefined. - aBlock cull: aClassAnnotation \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/redefinedInstanceFor..st b/ClassAnnotation.package/ClassAnnotation.class/class/redefinedInstanceFor..st deleted file mode 100644 index 69298af..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/redefinedInstanceFor..st +++ /dev/null @@ -1,7 +0,0 @@ -redefining -redefinedInstanceFor: aClassAnnotation - "It returnes the annotation instance which is redefined by given annotation" - redefinedInstances ifNil: [ ^self error: 'Given annotation is not redefined!' ]. - - ^redefinedInstances - at: aClassAnnotation ifAbsent: [ self error: 'Given annotation is not redefined!' ] \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/redefinedInstances.st b/ClassAnnotation.package/ClassAnnotation.class/class/redefinedInstances.st deleted file mode 100644 index e14d93d..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/redefinedInstances.st +++ /dev/null @@ -1,5 +0,0 @@ -redefining -redefinedInstances - self cleanRedefinedGarbage. - - ^redefinedInstances ifNil: [ #() ] \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/redefiningInstanceFor..st b/ClassAnnotation.package/ClassAnnotation.class/class/redefiningInstanceFor..st deleted file mode 100644 index db31fc1..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/redefiningInstanceFor..st +++ /dev/null @@ -1,10 +0,0 @@ -redefining -redefiningInstanceFor: aClassAnnotation - "It returnes the annotation instance which redefines given default collected annotation" - - | assoc | - redefinedInstances ifNil: [ ^self error: 'Given annotation is not redefined!' ]. - - assoc := redefinedInstances - associationAt: aClassAnnotation ifAbsent: [ self error: 'Given annotation is not redefined!' ]. - ^assoc key \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/redefiningInstances.st b/ClassAnnotation.package/ClassAnnotation.class/class/redefiningInstances.st deleted file mode 100644 index 34c3b12..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/redefiningInstances.st +++ /dev/null @@ -1,5 +0,0 @@ -redefining -redefiningInstances - redefinedInstances ifNil: [ ^#() ]. - - ^self redefinedInstances keys \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstances.st b/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstances.st deleted file mode 100644 index 762670e..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstances.st +++ /dev/null @@ -1,4 +0,0 @@ -queries-general -registeredInstances - - ^self registry allInstancesOf: self \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstancesDo..st b/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstancesDo..st deleted file mode 100644 index da0f852..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstancesDo..st +++ /dev/null @@ -1,4 +0,0 @@ -queries-general -registeredInstancesDo: aBlock - - self registeredInstances do: aBlock \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstancesFor..st b/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstancesFor..st deleted file mode 100644 index dc11b40..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/registeredInstancesFor..st +++ /dev/null @@ -1,6 +0,0 @@ -queries-general -registeredInstancesFor: aClass - "it will return all my registered instances which are annotating given aClass" - - ^self registeredInstances - select: [ :each | each annotates: aClass ] \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/registry.st b/ClassAnnotation.package/ClassAnnotation.class/class/registry.st deleted file mode 100644 index 131643b..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/registry.st +++ /dev/null @@ -1,4 +0,0 @@ -private -registry - - ^ClassAnnotationRegistry default \ No newline at end of file diff --git a/ClassAnnotation.package/ClassAnnotation.class/class/resetCache.st b/ClassAnnotation.package/ClassAnnotation.class/class/resetCache.st deleted file mode 100644 index eeffd06..0000000 --- a/ClassAnnotation.package/ClassAnnotation.class/class/resetCache.st +++ /dev/null @@ -1,4 +0,0 @@ -private -resetCache -