From: Marius Gavrilescu 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