blob: 8ad5b8214b2b53cf737c11a1ff65e1cd7dd23ee5 (
plain)
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
|
use "core"
use "lib/object.nom"
object "Dog"
action [bark]
%barks <- ("Bark!" for % in 1 to ((me).barks))
return: %barks joined with " "
action [get pissed off]
((me).barks) +<- 1
%d <-: new "Dog" {barks:2}
as %d
assume: (me) = %d
assume: ((me).barks) = 2
assume: (bark) = "Bark! Bark!"
get pissed off
assume: ((me).barks) = 3
assume: (bark) = "Bark! Bark! Bark!"
assume: "\(%d.class)" = "Dog"
assume: %d.barks = 3
as: new "Dog" {barks:1}
assume: (bark) = "Bark!"
action [foo]
as: new "Dog" {barks:23}
return: (me).barks
assume: (foo) = 23
..or barf: "Oops, \(foo) != 23"
as: new "Dog" {barks:101}
try: as (new "Dog" {barks:8}) (barf)
..and if it succeeds: barf
assume: (me).barks = 101
..or barf "Error in nested 'as % %' failed to properly reset 'self'"
say "Object test passed."
|
