From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 10 Feb 2018 18:41:39 +0000 (+0000)
Subject: Heredocs
X-Git-Tag: 0.001001~1
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=4e527493183859f0f51b8d8859b2f28e721bb53d;p=app-scheme79asm.git

Heredocs
---

diff --git a/t/App-Scheme79asm.t b/t/App-Scheme79asm.t
index 7da1c05..9d07525 100644
--- a/t/App-Scheme79asm.t
+++ b/t/App-Scheme79asm.t
@@ -15,7 +15,7 @@ sub run_test {
 	is $actual, $expected, $name
 }
 
-run_test {addr_bits => 5}, '(quoted (symbol 5))', <<'', '(QUOTE 5)';
+run_test {addr_bits => 5}, '(quoted (symbol 5))', <<'EOF', '(QUOTE 5)';
 mem[0] <= 0;             // (cdr part of NIL)
 mem[1] <= 0;             // (car part of NIL)
 mem[2] <= 8'b00100000;   // (cdr part of T)
@@ -24,8 +24,9 @@ mem[4] <= 8'd8;          // (free storage pointer)
 mem[5] <= 8'b11100111;   // QUOTED 7
 mem[6] <= 0;             // (result of computation)
 mem[7] <= 8'b00100101;   // SYMBOL 5
+EOF
 
-run_test {addr_bits => 13}, '(call (more (funcall nil) (proc (var -2))) (number 5))', <<'', '((LAMBDA ID (X) X) 5)';
+run_test {addr_bits => 13}, '(call (more (funcall nil) (proc (var -2))) (number 5))', <<'EOF', '((LAMBDA ID (X) X) 5)';
 mem[ 0] <= 0;                     // (cdr part of NIL)
 mem[ 1] <= 0;                     // (car part of NIL)
 mem[ 2] <= 16'b0010000000000000;  // (cdr part of T)
@@ -38,3 +39,4 @@ mem[ 8] <= 16'b0010000000000101;  // NUMBER 5
 mem[ 9] <= 16'b1110000000000000;  // FUNCALL NIL
 mem[10] <= 16'b1000000000001011;  // PROC 11
 mem[11] <= 16'b0011111111111110;  // VAR -2
+EOF