Examples/test-suite/schemerunme/cpp_enum.scm

(define f (new-Foo))

(if (not (= (Foo-hola-get f) (Foo-Hello)))
  (error "Error 1"))

(Foo-hola-set f (Foo-Hi))

(if (not (= (Foo-hola-get f) (Foo-Hi)))
  (error "Error 2"))

(Foo-hola-set f (Foo-Hello))

(if (not (= (Foo-hola-get f) (Foo-Hello)))
  (error "Error 3"))

(hi (Hello))

(if (not (= (hi) (Hello)))
  (error "Error 4"))

(exit 0)