From 6af8ac44d97283b13de53e6ef9090f19a48a7b87 Mon Sep 17 00:00:00 2001
From: Christian Thaeter <ct@pipapo.org>
Date: Thu, 4 Jan 2007 12:06:47 +0100
Subject: [PATCH] tests for --BEGIN --END

---
 tests/30stdmodule.tests | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/tests/30stdmodule.tests b/tests/30stdmodule.tests
index 9b581c2..121a9dd 100644
--- a/tests/30stdmodule.tests
+++ b/tests/30stdmodule.tests
@@ -53,6 +53,50 @@ state: CONTINUE
 END
 
 
+TEST "begin w/o end" --BEGIN <<END
+
+--ERROR-MISSING-END --BEGIN
+state: ENOACTION
+END
+
+
+TEST "begin empty end" --BEGIN --END <<END
+
+
+state: CONTINUE
+END
+
+
+TEST "begin single word" --BEGIN foo --END <<END
+
+foo
+state: LITERAL
+END
+
+
+TEST "begin 2 words" --BEGIN foo bar --END <<END
+
+foo bar
+state: LITERAL
+END
+
+
+TEST "begin single macro" --BEGIN '%2%1' --END foo bar <<END
+
+barfoo
+state: LITERAL
+END
+
+
+TEST "begin double macro" --BEGIN '%2' '%1' --END foo bar <<END
+
+bar foo
+state: LITERAL
+END
+
+
+
+
 PLANNED "--no-PRINT" --no-PRINT <<END
 prg: --ERROR-UNEXPECTED-NEGATED
 prg: --PRINT
-- 
2.11.4.GIT