diff options
Diffstat (limited to 'gen_object/test_a_cat.erl')
-rw-r--r-- | gen_object/test_a_cat.erl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gen_object/test_a_cat.erl b/gen_object/test_a_cat.erl new file mode 100644 index 0000000..589bb97 --- /dev/null +++ b/gen_object/test_a_cat.erl @@ -0,0 +1,11 @@ +% 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]). |