Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Dale Henrichs
committed
Jul 19, 2013
1 parent
4d1ee39
commit 3881005
Showing
8 changed files
with
88 additions
and
1 deletion.
There are no files selected for viewing
Empty file.
3 changes: 3 additions & 0 deletions
3
...icelloFileTree-Tests.package/MCFileTreeIssue92Test.class/instance/tearDownPackagesList.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| running | ||
| tearDownPackagesList | ||
| ^ #('Issue92') |
11 changes: 11 additions & 0 deletions
11
repository/MonticelloFileTree-Tests.package/MCFileTreeIssue92Test.class/instance/testLoad.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,11 @@ | ||
| tests | ||
| testLoad | ||
| | packageName | | ||
| packageName := 'Issue92'. | ||
| {packageName} do: [ :pn | self deny: (self hasPackage: pn) ]. | ||
| Gofer new | ||
| disablePackageCache; | ||
| repository: (self getTestRepository: 'issue69'); | ||
| package: packageName; | ||
| load. | ||
| self validateSelectors |
32 changes: 32 additions & 0 deletions
32
...y/MonticelloFileTree-Tests.package/MCFileTreeIssue92Test.class/instance/testWriteNRead.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,32 @@ | ||
| tests | ||
| testWriteNRead | ||
| | packageName versionInfo version | | ||
| packageName := 'Issue92'. | ||
| {packageName} do: [ :pn | self deny: (self hasPackage: pn) ]. | ||
| Gofer new | ||
| disablePackageCache; | ||
| repository: (self getTestRepository: 'issue69'); | ||
| package: packageName; | ||
| load. | ||
| self validateSelectors. | ||
| {packageName} | ||
| do: [ :pn | | ||
| versionInfo := (MCWorkingCopy allManagers detect: [ :wc | wc packageName = pn ]) | ||
| ancestors first. | ||
| version := (self getTestRepository: 'issue69') | ||
| versionWithInfo: versionInfo. | ||
| (self getTestRepository: 'empty') storeVersion: version ]. | ||
| Gofer new | ||
| package: packageName; | ||
| unload. | ||
| {packageName} do: [ :pn | self deny: (self hasPackage: pn) ]. | ||
| self | ||
| shouldnt: [ | ||
| Gofer new | ||
| disablePackageCache; | ||
| repository: (self getTestRepository: 'empty'); | ||
| package: packageName; | ||
| load ] | ||
| raise: Error. | ||
| {packageName} do: [ :pn | self assert: (self hasPackage: pn) ]. | ||
| self validateSelectors |
19 changes: 19 additions & 0 deletions
19
...onticelloFileTree-Tests.package/MCFileTreeIssue92Test.class/instance/validateSelectors.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,19 @@ | ||
| tests | ||
| validateSelectors | ||
| | cls selectors expectedSelectors objectClassSelectors objectSelectors | | ||
| #('Issue92') do: [ :pn | self assert: (self hasPackage: pn) ]. | ||
| expectedSelectors := #(#'IssueNumber92:AndArg2:' #'issueNumber92:andArg2:' #'issuenumber92:andarg2:'). | ||
| cls := Smalltalk classNamed: #'CCC'. | ||
| 2 | ||
| timesRepeat: [ | ||
| selectors := cls selectors. | ||
| self assert: selectors size == expectedSelectors size. | ||
| expectedSelectors | ||
| do: [ :selector | self assert: (selectors includes: selector) ]. | ||
| cls := cls class ]. | ||
| objectSelectors := Object selectors. | ||
| objectClassSelectors := Object class selectors. | ||
| expectedSelectors | ||
| do: [ :selector | | ||
| self assert: (objectSelectors includes: selector). | ||
| self assert: (objectClassSelectors includes: selector) ] |
8 changes: 8 additions & 0 deletions
8
...sitory/MonticelloFileTree-Tests.package/MCFileTreeIssue92Test.class/methodProperties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,8 @@ | ||
| { | ||
| "class" : { | ||
| }, | ||
| "instance" : { | ||
| "tearDownPackagesList" : "dkh 07/18/2013 20:45", | ||
| "testLoad" : "dkh 07/18/2013 20:46", | ||
| "testWriteNRead" : "dkh 07/18/2013 20:47", | ||
| "validateSelectors" : "dkh 07/18/2013 21:05" } } |
14 changes: 14 additions & 0 deletions
14
repository/MonticelloFileTree-Tests.package/MCFileTreeIssue92Test.class/properties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,14 @@ | ||
| { | ||
| "category" : "MonticelloFileTree-Tests", | ||
| "classinstvars" : [ | ||
| ], | ||
| "classvars" : [ | ||
| ], | ||
| "commentStamp" : "", | ||
| "instvars" : [ | ||
| ], | ||
| "name" : "MCFileTreeIssue92Test", | ||
| "pools" : [ | ||
| ], | ||
| "super" : "MCFileTreeGenericLoaderTest", | ||
| "type" : "normal" } |
2 changes: 1 addition & 1 deletion
2
repository/MonticelloFileTree-Tests.package/monticello.meta/version
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters