X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/3dca7758421664a838c54b273bd9221f02072045..f64eb323a5798e155cc494043f5f750abf50a482:/test/chimaera.sod

diff --git a/test/chimaera.sod b/test/chimaera.sod
index e9b9077..976c727 100644
--- a/test/chimaera.sod
+++ b/test/chimaera.sod
@@ -16,11 +16,8 @@ code h : includes {
 class Animal : SodObject {
   int tickles = 0;
 
-  [combination = progn]
-  void tickle();
-
-  [role = before]
-  void nml.tickle() { me->nml.tickles++; }
+  [combination = progn] void tickle();
+  [role = before] void nml.tickle() { me->nml.tickles++; }
 }
 
 class Lion : Animal {
@@ -34,19 +31,24 @@ class Goat : Animal {
 }
 
 class Serpent : Animal {
+  int limit = 2;
+
   void hiss() { puts("Sssss!"); }
   void bite() { puts("Nom!"); }
   void nml.tickle() {
-    if (SERPENT__CONV_NML(me)->nml.tickles <= 2) Serpent_hiss(me);
-    else Serpent_bite(me);
+    if (SERPENT__CONV_NML(me)->nml.tickles <= me->serpent.limit)
+      Serpent_hiss(me);
+    else
+      Serpent_bite(me);
   }
 }
 
 [nick = sir, link = Animal]
 class Chimaera : Lion, Goat, Serpent {
+  serpent.limit = 1;
 }
 
-code c : user [classes end, user, epilogue] {
+code c : user {
 /*----- Main driver code --------------------------------------------------*/
 
 static void tickle_animal(Animal *a)
@@ -80,25 +82,25 @@ static void provoke_serpent(Serpent *s)
 int main(void)
 {
   {
-    SOD_DECL(Lion, l);
+    SOD_DECL(Lion, l, NO_KWARGS);
     provoke_lion(l);
     tickle_animal(LION__CONV_NML(l));
   }
 
   {
-    SOD_DECL(Goat, g);
+    SOD_DECL(Goat, g, NO_KWARGS);
     provoke_goat(g);
     tickle_animal(GOAT__CONV_NML(g));
   }
 
   {
-    SOD_DECL(Serpent, s);
+    SOD_DECL(Serpent, s, NO_KWARGS);
     provoke_serpent(s);
     tickle_animal(SERPENT__CONV_NML(s));
   }
 
   {
-    SOD_DECL(Chimaera, c);
+    SOD_DECL(Chimaera, c, NO_KWARGS);
     provoke_lion(CHIMAERA__CONV_LION(c));
     provoke_goat(CHIMAERA__CONV_GOAT(c));
     provoke_serpent(CHIMAERA__CONV_SERPENT(c));