From 6151912fa624a22fbc11cc40019e89e76adc8085 Mon Sep 17 00:00:00 2001
From: Michael Miller <icy.arctic.fox@gmail.com>
Date: Tue, 12 Feb 2019 22:33:48 -0700
Subject: [PATCH] Add spec for test suite

---
 spec/test_suite_spec.cr | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 spec/test_suite_spec.cr

diff --git a/spec/test_suite_spec.cr b/spec/test_suite_spec.cr
new file mode 100644
index 0000000..22f7372
--- /dev/null
+++ b/spec/test_suite_spec.cr
@@ -0,0 +1,18 @@
+require "./spec_helper"
+
+describe Spectator::TestSuite do
+  describe "#each" do
+    it "yields each example" do
+      group = Spectator::RootExampleGroup.new(Spectator::ExampleHooks.empty, Spectator::ExampleConditions.empty)
+      group.children = Array.new(5) do |index|
+        PassingExample.new(group, Spectator::Internals::SampleValues.empty).as(Spectator::ExampleComponent)
+      end
+      test_suite = Spectator::TestSuite.new(group)
+      examples = [] of Spectator::Example
+      test_suite.each do |example|
+        examples << example
+      end
+      examples.should eq(group.children)
+    end
+  end
+end