OILS / spec / ysh-object.test.sh View on Github | oilshell.org

232 lines, 102 significant
1## our_shell: ysh
2## oils_failures_allowed: 3
3
4#### Object() creates prototype chain
5
6func Rect_area(this) {
7 return (this.x * this.y)
8}
9
10var Rect = Object(null, {area: Rect_area})
11
12var rect1 = Object(Rect, {x: 3, y: 4})
13var rect2 = Object(Rect, {x: 10, y: 20})
14
15# This could change to show the object?
16# pp test_ (rect)
17
18# TODO: This should be a bound function
19#pp asdl_ (rect)
20#pp (rect.area)
21#pp (rect->area)
22
23var area1 = rect1.area()
24var area2 = rect2.area()
25
26pp test_ ([rect1.x, rect1.y])
27echo "area1 = $area1"
28
29pp test_ ([rect2.x, rect2.y])
30echo "area2 = $area2"
31
32#pp test_ (rect1.nonexistent)
33
34## STDOUT:
35(List) [3,4]
36area1 = 12
37(List) [10,20]
38area2 = 200
39## END
40
41#### prototype()
42
43func Rect_area(this) {
44 return (this.x * this.y)
45}
46
47var Rect = Object(null, {area: Rect_area})
48
49var obj = Object(Rect, {x: 3, y: 4})
50
51pp test_ (prototype(Rect))
52pp test_ (prototype(obj))
53
54## STDOUT:
55(Null) null
56(Obj) {"area":<Func>}
57## END
58
59#### propView()
60
61var obj = Object(null, {x: 3, y: 4})
62var props = propView(obj)
63
64pp test_ (props)
65
66# object can be mutated
67setvar props.x = 99
68
69pp test_ (props)
70
71var e = propView(null) # error
72
73## status: 3
74## STDOUT:
75(Dict) {"x":3,"y":4}
76(Dict) {"x":99,"y":4}
77## END
78
79#### Mutating method lookup with ->
80
81func inc(self, n) {
82 setvar self.i += n
83}
84var Counter_methods = Object(null, {'M/inc': inc})
85
86var c = Object(Counter_methods, {i: 5})
87
88echo $[c.i]
89call c->inc(3)
90echo $[c.i]
91
92## STDOUT:
935
948
95## END
96
97#### Mutating method must be up the prototype chain, not on the object
98
99func inc(self, n) {
100 setvar self.i += n
101}
102var c = Object(null, {'M/inc': inc, i: 0})
103
104call c->inc(3)
105
106## status: 3
107## STDOUT:
108## END
109
110
111#### Copy to Dict with dict(), and mutate
112
113var rect = Object(null, {x: 3, y: 4})
114var d = dict(rect)
115
116pp test_ (rect)
117pp test_ (d)
118
119# Right now, object attributes aren't mutable! Could change this.
120#
121setvar rect.x = 99
122setvar d.x = 100
123
124pp test_ (rect)
125pp test_ (d)
126## STDOUT:
127(Obj) {"x":3,"y":4}
128(Dict) {"x":3,"y":4}
129(Obj) {"x":99,"y":4}
130(Dict) {"x":100,"y":4}
131## END
132
133#### setvar obj.attr = and += and ...
134
135var rect = Object(null, {x: 3, y: 4})
136pp test_ (rect)
137
138setvar rect.y = 99
139pp test_ (rect)
140
141setvar rect.y += 3
142pp test_ (rect)
143
144setvar rect.x *= 5
145pp test_ (rect)
146
147## STDOUT:
148(Obj) {"x":3,"y":4}
149(Obj) {"x":3,"y":99}
150(Obj) {"x":3,"y":102}
151(Obj) {"x":15,"y":102}
152## END
153
154#### can't encode objects as JSON
155
156var Rect = Object(null, {})
157
158json write (Rect)
159echo 'nope'
160
161## status: 1
162## STDOUT:
163## END
164
165#### pretty printing of cycles
166
167var d = {k: 42}
168setvar d.cycle = d
169
170pp test_ (d)
171
172var o = Object(null, d)
173
174pp test_ (o)
175
176var o2 = Object(o, {z: 99})
177
178pp test_ (o2)
179
180## STDOUT:
181## END
182
183#### Can all builtin methods with s.upper()
184
185var s = 'foo'
186var x = s.upper()
187var y = "--$[x.lower()]"
188
189pp test_ (x)
190pp test_ (y)
191
192## STDOUT:
193(Str) "FOO"
194(Str) "--foo"
195## END
196
197
198#### Dict.keys(d), Dict.values(d), Dict.get(d, key)
199
200var d = {a: 42, b: 99}
201
202pp test_ (Dict.keys(d))
203pp test_ (Dict.values(d))
204
205pp test_ (Dict.get(d, 'key', 'default'))
206
207# mutating methods are OK?
208# call d->inc(x)
209
210## STDOUT:
211## END
212
213
214#### Bound Proc?
215
216proc p (word1, word2; self, int1, int2) {
217 echo "sum = $[self.x + self.y]"
218 pp test_ (self)
219 pp test_ ([word1, word2, int1, int2])
220}
221
222p a b ({x: 5, y: 6}, 42, 43)
223
224var methods = Object(null, {__invoke__: p})
225
226var callable = Object(methods, {x: 98, y: 99})
227
228# TODO: change this error message
229callable a b (42, 43)
230
231## STDOUT:
232## END