nomsu/tests/object.nom

#!/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."