From 4a7d56786e014c1d36c0112f14eb0621fc97770c Mon Sep 17 00:00:00 2001
From: olus2000 <alsabak@gmail.com>
Date: Sun, 14 Jan 2024 11:08:14 +0100
Subject: [PATCH] sequences.parser: tests for current, next, consume

---
 extra/sequences/parser/parser-tests.factor | 40 ++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/extra/sequences/parser/parser-tests.factor b/extra/sequences/parser/parser-tests.factor
index d641464acf..70b5faf55f 100644
--- a/extra/sequences/parser/parser-tests.factor
+++ b/extra/sequences/parser/parser-tests.factor
@@ -102,3 +102,43 @@ USING: tools.test sequences.parser unicode kernel accessors ;
 
 { "\n" } [ "\n" <sequence-parser> [ ] take-while ] unit-test
 { f } [ "\n" <sequence-parser> [ not ] take-while ] unit-test
+
+
+{ f } [
+    { } <sequence-parser> next
+] unit-test
+
+
+{ f } [
+    { } <sequence-parser> current
+] unit-test
+
+
+{ f } [
+    { } <sequence-parser> consume
+] unit-test
+
+
+{ 2 2 } [
+    { 2 1 3 7 } <sequence-parser> [ current ] [ current ] bi
+] unit-test
+
+
+{ 1 1 } [
+    { 2 1 3 7 } <sequence-parser> [ next ] [ current ] bi
+] unit-test
+
+
+{ 2 1 } [
+    { 2 1 3 7 } <sequence-parser> [ consume ] [ current ] bi
+] unit-test
+
+
+{ f } [
+    { 2 } <sequence-parser> next
+] unit-test
+
+
+{ 2 f } [
+    { 2 } <sequence-parser> [ consume ] [ current ] bi
+] unit-test
-- 
2.34.1