Improve readability of test harness

test/koans_harness_test.exs

@@ -2,14 +2,29 @@ defmodule KoansHarnessTest do
   use ExUnit.Case
 
   test "Equalities" do
-    answers = [true, 1, 2, 1, :something]
+    answers = [true,
+               1,
+               2,
+               1,
+               :something]
 
-    assert all_pass?(Equalities, answers) == [:passed, :passed, :passed, :passed, :passed]
+    assert test_all(Equalities, answers) == :all_passed
   end
 
-  def all_pass?(module, answers) do
+  def test_all(module, answers) do
     module.all_koans
     |> Enum.zip(answers)
-    |> Enum.map(fn({koan, answer}) -> Runner.run_koan(module, koan, [answer]) end)
+    |> run_all(module)
+    |> passed?
+    |> results
   end
+
+  def run_all(pairs, module) do
+    Enum.map(pairs, fn ({koan, answer}) -> Runner.run_koan(module, koan, [answer]) end)
+  end
+
+  def passed?(answers), do: {Enum.all?(answers, fn(element) -> element == :passed end), answers}
+
+  def results({true, _}), do: :all_passed
+  def results({false, answers}), do: answers
 end