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

257 lines, 124 significant
1## our_shell: ysh
2## oils_failures_allowed: 1
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#### pp test_ (obj_with_cycle)
166
167var d = {k: 42}
168setvar d.cycle = d
169
170var two = [d, d]
171pp test_ (two)
172
173pp test_ (d)
174
175# This doesn't quite work
176var o = Object(null, d)
177
178pp test_ (o)
179
180var two = [o, o]
181#pp test_ (two)
182
183var o2 = Object(o, {z: 99})
184
185pp test_ (o2)
186
187## STDOUT:
188## END
189
190#### Can all builtin methods with s.upper()
191
192var s = 'foo'
193var x = s.upper()
194var y = "--$[x.lower()]"
195
196pp test_ (x)
197pp test_ (y)
198
199## STDOUT:
200(Str) "FOO"
201(Str) "--foo"
202## END
203
204#### invokable Obj must be have prototype containing __invoke__ of value.Proc - type -t
205
206proc p (w; self) {
207 pp test_ ([w, self])
208}
209p a ({x: 5, y: 6})
210echo
211
212var methods = Object(null, {__invoke__: p})
213
214var o1 = Object(methods, {})
215type -t o1
216echo
217
218# errors
219
220var o2 = Object(null, {})
221if ! type -t o2 {
222 echo 'no prototype'
223}
224
225var o3 = Object(Object(null, {}), {})
226if ! type -t o3 {
227 echo 'no __invoke__ method in prototype'
228}
229
230var bad_methods = Object(null, {__invoke__: 42})
231var o4 = Object(bad_methods, {})
232if ! type -t o4 {
233 echo '__invoke__ of wrong type'
234}
235
236## STDOUT:
237(List) ["a",{"x":5,"y":6}]
238
239invokable
240
241no prototype
242no __invoke__ method in prototype
243__invoke__ of wrong type
244## END
245
246#### Object with longer prototype chain
247
248# prototypal inheritance pattern
249var superClassMethods = Object(null, {foo: 'zz'})
250var methods = Object(superClassMethods, {foo: 42, bar: [1,2]})
251var instance = Object(methods, {foo: 1, bar: 2, x: 3})
252
253pp test_ (instance)
254
255## STDOUT:
256(Obj) {"foo":1,"bar":2,"x":3} ==> {"foo":42,"bar":[1,2]} ==> {"foo":"zz"}
257## END