Issue Metacello#110: added unit tests

(cherry picked from commit 3ec33ef) Conflicts: repository/Metacello-TestsMC.package/MetacelloConfigurationResource.class/instance/setUp.st repository/Metacello-TestsMC.package/MetacelloConfigurationResource.class/methodProperties.json repository/Metacello-TestsMC.package/monticello.meta/version
dalehenrich · Sep 11, 2012 · e9f8f9a · e9f8f9a
1 parent d19d4eb
commit e9f8f9a
Show file tree

Hide file tree

Showing 26 changed files with 493 additions and 160 deletions.
diff --git a/...stsMC.package/MetacelloConfigurationResource.class/instance/baselineVersion20Issue125..st b/...stsMC.package/MetacelloConfigurationResource.class/instance/baselineVersion20Issue125..st
@@ -0,0 +1,13 @@
+Issue 125
+baselineVersion20Issue125: spec
+    <version: '2.0-baseline'>
+    spec
+        for: #'common'
+        do: [ 
+            spec blessing: #'baseline'.
+            spec description: 'MetacelloConfigurationResource>>baselineVersion20Issue125:'.
+            spec repository: 'dictionary://Metacello_Gofer_Test_Repository'.
+            spec
+                package: 'GoferFoo';
+                package: 'GoferBar' with: [ spec requires: 'GoferFoo' ];
+                yourself ]
diff --git a/...stsMC.package/MetacelloConfigurationResource.class/instance/baselineVersion30Issue125..st b/...stsMC.package/MetacelloConfigurationResource.class/instance/baselineVersion30Issue125..st
@@ -0,0 +1,11 @@
+Issue 125
+baselineVersion30Issue125: spec
+    <version: '3.0-baseline' imports: #('2.0-baseline')>
+    spec
+        for: #(#'attribute1' #'attribute2')
+        do: [ 
+            spec description: 'MetacelloConfigurationResource>>baselineVersion30Issue125:'.
+            spec
+                package: 'GoferFaux' with: [ spec requires: 'GoferFoo' ];
+                package: 'GoferBeau' with: [ spec requires: 'GoferFaux' ];
+                yourself ]
diff --git a/repository/Metacello-TestsMC.package/MetacelloConfigurationResource.class/instance/setUp.st b/repository/Metacello-TestsMC.package/MetacelloConfigurationResource.class/instance/setUp.st
@@ -1,20 +1,23 @@
 running
 setUp
-	super setUp.
+    "self reset"
-	self
+
-		setUpMonticelloRepository;
+    super setUp.
-		setUpConfigurationOfFoo;
+    self
-		setUpConfigurationOfFeaux;
+        setUpMonticelloRepository;
-		setUpConfigurationOfProjectFie;
+        setUpConfigurationOfFoo;
-		setUpConfigurationOfProjectFee;
+        setUpConfigurationOfFeaux;
-		setUpConfigurationOfFum;
+        setUpConfigurationOfProjectFie;
-		setUpConfigurationOfProjectFoe;
+        setUpConfigurationOfProjectFee;
-		setUpConfigurationOfFan;
+        setUpConfigurationOfFum;
-		setUpConfigurationOfFix;
+        setUpConfigurationOfProjectFoe;
-		setUpIssue77;
+        setUpConfigurationOfFan;
-		setUpIssue95;
+        setUpConfigurationOfFix;
-		setUpConfigurationOfSymbolic;
+        setUpIssue77;
-		setUpConfigurationOfProjectToolBox;
+        setUpIssue95;
-		setUpConfigurationOfProjectIssue115;
+        setUpConfigurationOfSymbolic;
-		setUpConfigurationOfProjectIssue136;
+        setUpConfigurationOfProjectToolBox;
-		yourself
+        setUpConfigurationOfProjectIssue115;
+        setUpConfigurationOfProjectIssue136;
+        setUpConfigurationOfProjectIssue125;
+        yourself
diff --git a/...kage/MetacelloConfigurationResource.class/instance/setUpConfigurationOfProjectIssue125.st b/...kage/MetacelloConfigurationResource.class/instance/setUpConfigurationOfProjectIssue125.st
@@ -0,0 +1,61 @@
+Issue 125
+setUpConfigurationOfProjectIssue125
+    "self reset"
+
+    | reference className definitionArray versionInfo |
+    reference := GoferVersionReference name: 'MetacelloTestConfigurationOfProjectIssue125-dkh.1'.
+    className := reference packageName asSymbol.
+    definitionArray := {(MCOrganizationDefinition categories: (Array with: className)).
+    (MCClassDefinition
+        name: className
+        superclassName: #'Object'
+        category: className
+        instVarNames: #()
+        comment: '').
+    (MCMethodDefinition
+        className: className asString
+        classIsMeta: true
+        selector: 'project'
+        category: 'cat'
+        timeStamp: ''
+        source: self projectClassMethodSource).
+    (MCMethodDefinition
+        className: className asString
+        selector: 'project'
+        category: 'cat'
+        timeStamp: ''
+        source: self projectMethodSource).
+    (MCMethodDefinition
+        className: className asString
+        selector: 'version30Issue125:'
+        category: 'cat'
+        timeStamp: ''
+        source: (self class sourceCodeAt: #'version30Issue125:') asString).
+    (MCMethodDefinition
+        className: className asString
+        selector: 'baselineVersion20Issue125:'
+        category: 'cat'
+        timeStamp: ''
+        source: (self class sourceCodeAt: #'baselineVersion20Issue125:') asString).
+    (MCMethodDefinition
+        className: className asString
+        selector: 'baselineVersion30Issue125:'
+        category: 'cat'
+        timeStamp: ''
+        source: (self class sourceCodeAt: #'baselineVersion30Issue125:') asString)}.
+    monticelloRepository
+        basicStoreVersion:
+            (MCVersion new
+                setPackage: (MetacelloTestsMCPackage new name: reference packageName)
+                info:
+                    (versionInfo := MCVersionInfo
+                        name: reference name
+                        id: UUID new
+                        message: 'This is a mock version'
+                        date: Date today
+                        time: Time now
+                        author: reference author
+                        ancestors: #())
+                snapshot: (MCSnapshot fromDefinitions: definitionArray)
+                dependencies: #()).
+    ^ versionInfo
diff --git a/...cello-TestsMC.package/MetacelloConfigurationResource.class/instance/version30Issue125..st b/...cello-TestsMC.package/MetacelloConfigurationResource.class/instance/version30Issue125..st
@@ -0,0 +1,26 @@
+Issue 125
+version30Issue125: spec
+    <version: '3.0' imports: #('3.0-baseline')>
+    spec
+        for: #'common'
+        do: [ 
+            spec blessing: #'release'.
+            spec description: 'MetacelloConfigurationResource>>version30Issue125:'.
+            spec
+                package: 'GoferFoo' with: 'GoferFoo-lr.4';
+                package: 'GoferBar' with: 'GoferBar-jf.1';
+                yourself ].
+    spec
+        for: #'attribute1'
+        do: [ 
+            spec
+                package: 'GoferFaux' with: 'GoferFaux-tg.32';
+                package: 'GoferBeau' with: 'GoferBeau-dkh.55';
+                yourself ].
+    spec
+        for: #'attribute2'
+        do: [ 
+            spec
+                package: 'GoferFaux' with: 'GoferFaux-tg.33';
+                package: 'GoferBeau' with: 'GoferBeau-dkh.56';
+                yourself ]