addac10a47
newline after 1-line indented code inside blocks, and forcing files to have a trailing newline. The trailing newline thing created a lot of spurious changes.
49 lines
1.5 KiB
Plaintext
49 lines
1.5 KiB
Plaintext
#!/usr/bin/env nomsu -V2.5.4.3
|
|
#
|
|
Tests for the object model defined in lib/object.nom
|
|
|
|
use "core"
|
|
use "lib/object.nom"
|
|
|
|
object "Dog":
|
|
(class Dog).genus = "Canus"
|
|
method [initialize %] (%.barks or= 0)
|
|
method [bark, woof]:
|
|
%barks = ("Bark!" for % in 1 to (me).barks)
|
|
return (%barks joined with " ")
|
|
|
|
method [get pissed off] ((me).barks += 1)
|
|
|
|
%d = (new Dog {barks:2})
|
|
as %d:
|
|
assume ((me) == %d)
|
|
assume ((me).barks == 2)
|
|
assume ((bark) == "Bark! Bark!")
|
|
assume ((woof) == "Bark! Bark!")
|
|
get pissed off
|
|
assume ((me).barks == 3)
|
|
assume ((bark) == "Bark! Bark! Bark!")
|
|
assume ((me).genus == "Canus")
|
|
|
|
assume ("\(%d.class)" == "Dog")
|
|
assume (%d.genus == "Canus")
|
|
assume (%d.barks == 3)
|
|
as (new Dog) (assume ((me).barks == 0) or barf "Default initializer failed")
|
|
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'
|
|
|
|
object "Corgi" extends (class Dog) (method [sploot] "splooted")
|
|
%corg = (new Corgi)
|
|
assume (%corg.barks == 0)
|
|
as (new Corgi {barks:1}):
|
|
assume ((sploot) == "splooted") or barf "subclass method failed"
|
|
assume ((bark) == "Bark!") or barf "inheritance failed"
|
|
assume ((woof) == "Bark!")
|
|
|
|
say "Object test passed."
|