1 files changed, 20 insertions, 0 deletions
diff --git a/spec/result_spec.cr b/spec/result_spec.cr
new file mode 100644
index 0000000..094713e
--- /dev/null
+++ b/spec/result_spec.cr
@@ -0,0 +1,20 @@
+require "./spec_helper"
+
+include Parcom
+
+describe Result do
+  describe "#map" do
+    r = Result.new(Tokens.from_string("abcd"), 'x')
+    r_expected = Result.new(Tokens.from_string("abcd"), 'x'.ord)
+
+    it "accepts a proc" do
+      f = ->(c : Char) { c.ord }
+      r.map(f).should eq(r_expected)
+    end
+
+    it "accepts a block" do
+      r.map { |c| c.ord }.should eq(r_expected)
+    end
+  end
+end
+