be06fc096a
better path going forward to handling upgrades. Old syntax files will stick around for compatibility purposes. Old syntax can be parsed into valid syntax trees via the old syntax (.peg) files, and then old syntax trees should be valid and can be upgraded via the normal code path. This change has lots of improvements to Nomsu codegen too.
72 lines
1.5 KiB
Plaintext
72 lines
1.5 KiB
Plaintext
#!/usr/bin/env nomsu -V1
|
|
#
|
|
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."
|