Complete exercise 10.1.

Author: Stratus3D

README.md

@@ -15,8 +15,8 @@ Solutions to the exercises in Joe Armstrong's book *Programming Erlang* 2nd Edit
 * Chapter 6 - [exercises 1 and 2 in the chapter_6 directory](chapter_6/)
 * Chapter 7 - [exercises 1, 2, 3, 4, and 5 in the chapter_7 directory](chapter_7/)
 * Chapter 8 - [exercises 1 and 2 in the chapter_8 directory](chapter_8/)
-* Chapter 9 - [WIP](chapter_9/)
-* Chapter 10 - WIP
+* Chapter 9 - [exercises 1, 2, 3, and 4 in the chapter_9 directory](chapter_9/)
+* Chapter 10 - [exercise 1 in the chapter_10 directory](chapter_10/)
 * Chapter 11 - no exercises
 * Chapter 12 - WIP
 * Chapter 13 - [WIP](chapter_13/)

chapter_10/exercise_1/Makefile

@@ -0,0 +1,32 @@
+.PHONY: tests
+
+.SUFFIXES: .erl .beam .yrl
+
+.erl.beam:
+	erlc -W $<
+
+.yrl.erl:
+	erlc -W $<
+
+ERL = erl -boot start_clean
+
+MODS = sample_app
+
+# List of all the test modules. test:start/0 is our entry point
+TEST_MODS = test
+
+all: compile
+	${ERL} -s sample_app start
+
+compile: ${MODS:%=%.beam}
+
+# Compile all the modules in the test directory, then run test:start/0, which
+# should start the tests
+tests: ${TEST_MODS:%=test/%.beam}
+	${ERL} -s test start
+
+clean:
+	# Clean source
+	rm -rf *.beam erl_crash.dump
+	# Clean tests
+	rm -rf test/*.beam

chapter_10/exercise_1/sample_app.erl

@@ -0,0 +1,7 @@
+-module(sample_app).
+
+-export([start/0]).
+
+start() ->
+    % Dummy start function
+    ok.

chapter_10/exercise_1/test/test.erl

@@ -0,0 +1,10 @@
+-module(test).
+
+-export([start/0]).
+
+start() ->
+    io:format("Running tests...~n"),
+    % Run tests here...
+    io:format("Tests finished.~n"),
+    init:stop(),
+    ok.