sequences.parser: tests for current, next, consume

diff --git a/extra/sequences/parser/parser-tests.factor b/extra/sequences/parser/parser-tests.factor
index d641464acfc840090738cae675b00ff91880eabc..70b5faf55f1d7dbecc73746f44886792468de8c7 100644 (file)
--- 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