forked from SeasideSt/Grease
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathGRPackageTest.class.st
More file actions
95 lines (83 loc) · 2.33 KB
/
GRPackageTest.class.st
File metadata and controls
95 lines (83 loc) · 2.33 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Class {
#name : #GRPackageTest,
#superclass : #TestCase,
#instVars : [
'package'
],
#category : #'Grease-Tests-Core'
}
{ #category : #running }
GRPackageTest >> setUp [
super setUp.
package := GRPackage new
]
{ #category : #'tests-dependencies' }
GRPackageTest >> testAllDependencies [
| packages |
packages := Dictionary new.
packages
at: 'Lust' put: (GRPackage new
name: 'Lust';
addDependency: 'Gluttony';
addDependency: 'Greed';
yourself);
at: 'Gluttony' put: (GRPackage new
name: 'Gluttony';
addDependency: 'Greed';
yourself);
at: 'Greed' put: (GRPackage new
name: 'Greed';
yourself).
packages values
do: [ :each | each resolveWith: packages ].
self assert: (packages at: 'Lust') allDependencies size = 3.
self assert: (packages at: 'Gluttony') allDependencies size = 2.
self assert: (packages at: 'Greed') allDependencies size = 1
]
{ #category : #'tests-dependencies' }
GRPackageTest >> testDependencies [
self assert: package dependencies isEmpty.
package addDependency: 'Lust'.
package addDependency: 'Envy'.
self assert: package dependencies size = 2.
self assert: package dependencies first = 'Lust'.
self assert: package dependencies last = 'Envy'
]
{ #category : #tests }
GRPackageTest >> testDescription [
self assert: package description isNil.
package description: 'A hopeless pacakge'.
self assert: package description = 'A hopeless pacakge'
]
{ #category : #tests }
GRPackageTest >> testLicense [
self assert: package license = #MIT.
self assert: package isMIT.
package license: #LGPL.
self assert: package license = #LGPL.
self assert: package isLGPL
]
{ #category : #tests }
GRPackageTest >> testName [
self assert: package name isNil.
package name: 'Gimme-Hope'.
self assert: package name = 'Gimme-Hope'
]
{ #category : #'tests-packages' }
GRPackageTest >> testPackages [
| packages |
packages := GRPackage grPackages.
self assert: packages notEmpty.
packages do: [ :each |
self assert: each name notEmpty.
self assert: each license notNil.
self assert: each url notNil ]
]
{ #category : #tests }
GRPackageTest >> testUrl [
self assert: package url isNil.
package url: #seasideLGPLUrl.
self assert: package url = GRPackage new seasideLGPLUrl.
package url: 'http://www.seaside.st/distributions'.
self assert: package url = 'http://www.seaside.st/distributions'
]