This instance will be upgraded to Heptapod 0.17.0 on 2020-11-26 at 14:00 UTC+1 (a few minutes of down time)

Commit b50f844c authored by Jesse McGrew's avatar Jesse McGrew

Fix LEX and READ tests that used invalid LEXBUFs.

This test bug was previously masked by a bug in ZLR's implementation of LEX.
parent 030125fba7b7
......@@ -30,6 +30,7 @@ namespace Zilf.ZModel.Values
/// <summary>
/// The table elements are 4-byte records rather than words, and
/// the table is prefixed with an element count (byte) and a zero byte.
/// The table initializer should be a multiple of 3 elements.
/// </summary>
Lexv = 2,
/// <summary>
......
......@@ -1132,7 +1132,7 @@ namespace Zilf.Tests.Integration
AssertRoutine("", "<LEX ,TEXTBUF ,LEXBUF> <PRINTB <GET ,LEXBUF 1>>")
.InV5()
.WithGlobal("<GLOBAL TEXTBUF <TABLE (BYTE) 3 3 !\\c !\\a !\\t>>")
.WithGlobal("<GLOBAL LEXBUF <ITABLE 1 (LEXV) 0 0>>")
.WithGlobal("<GLOBAL LEXBUF <ITABLE 1 (LEXV) 0 0 0>>")
.WithGlobal("<OBJECT CAT (SYNONYM CAT)>")
.Outputs("cat");
......@@ -1868,7 +1868,7 @@ namespace Zilf.Tests.Integration
AssertRoutine("", "<READ ,TEXTBUF ,LEXBUF> <PRINTC <GETB ,TEXTBUF 2>> <PRINTB <GET ,LEXBUF 1>>")
.InV3()
.WithGlobal("<GLOBAL TEXTBUF <ITABLE 50 (BYTE LENGTH) 0>>")
.WithGlobal("<GLOBAL LEXBUF <ITABLE 1 (LEXV) 0 0>>")
.WithGlobal("<GLOBAL LEXBUF <ITABLE 1 (LEXV) 0 0 0>>")
.WithGlobal("<OBJECT CAT (SYNONYM CAT)>")
.WithGlobal("<GLOBAL HERE CAT>")
.WithInput("cat")
......@@ -1883,7 +1883,7 @@ namespace Zilf.Tests.Integration
AssertRoutine("", "<PRINTN <READ ,TEXTBUF ,LEXBUF>> <PRINTC <GETB ,TEXTBUF 2>> <PRINTB <GET ,LEXBUF 1>>")
.InV5()
.WithGlobal("<GLOBAL TEXTBUF <ITABLE 50 (BYTE LENGTH) 0>>")
.WithGlobal("<GLOBAL LEXBUF <ITABLE 1 (LEXV) 0 0>>")
.WithGlobal("<GLOBAL LEXBUF <ITABLE 1 (LEXV) 0 0 0>>")
.WithGlobal("<OBJECT CAT (SYNONYM CAT)>")
.WithInput("cat")
.Outputs("13ccat");
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment