% This is where we test the cat to make sure that it does not bark.

-module(test_a_cat).
-export([main/0]).

main() ->
  MyCat = gen_object:new(a_cat, ["Fred"]),
  FredSays = gen_object:send(MyCat, say, ["Woof"]),
  gen_object:delete(MyCat),

  io:format("Fred says: ~p~n", [FredSays]).