From 15e3a96876ca9e8bd67c7408ebcc123c35a1e447 Mon Sep 17 00:00:00 2001
From: Matthew Hall <hallmatthew314@gmail.com>
Date: Thu, 9 Mar 2023 15:39:01 +1300
Subject: Implement Many and Some

---
 spec/parcom_spec.cr | 50 ++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 48 insertions(+), 2 deletions(-)

(limited to 'spec')

diff --git a/spec/parcom_spec.cr b/spec/parcom_spec.cr
index 937c43c..57c5024 100644
--- a/spec/parcom_spec.cr
+++ b/spec/parcom_spec.cr
@@ -402,10 +402,56 @@ describe Tokens do
   end
 end
 
-pending Many do
+describe Many do
+  p = Many.new(Token.new('a'))
+
+  describe "#parse" do
+    it "returns an empty array if the wrapped parser never succeeds" do
+      tokens = TokenStream.from_string("bb")
+      result = p.parse(tokens)
+
+      result.value.empty?.should be_true
+      result.tokens.should eq(tokens)
+    end
+
+    it "stops parsing when the wrapped parser fails, returns all successes" do
+      tokens = TokenStream.from_string("aaabcd")
+      result = p.parse(tokens)
+
+      result.value.should eq("aaa".chars)
+      result.tokens.should eq(tokens[3..])
+
+      tokens = TokenStream.from_string("aaa")
+      result = p.parse(tokens)
+
+      result.value.should eq("aaa".chars)
+      result.tokens.should eq(tokens[3..])
+    end
+  end
 end
 
-pending Some do
+describe Some do
+  p = Some.new(Token.new('a'))
+  describe "#parse" do
+    it "fails if the wrapped parser never succeeds" do
+      tokens = TokenStream.from_string("")
+      expect_raises(ParserException) { p.parse(tokens) }
+    end
+
+    it "stops parsing when the wrapped parser fails, returns all successes" do
+      tokens = TokenStream.from_string("aaabcd")
+      result = p.parse(tokens)
+
+      result.value.should eq("aaa".chars)
+      result.tokens.should eq(tokens[3..])
+
+      tokens = TokenStream.from_string("aaa")
+      result = p.parse(tokens)
+
+      result.value.should eq("aaa".chars)
+      result.tokens.should eq(tokens[3..])
+    end
+  end
 end
 
 pending Exactly do
-- 
cgit v1.2.1