From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 3 Mar 2018 11:52:41 +0000 (+0000)
Subject: Fix tests
X-Git-Tag: 0.003~2
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=3aa76f516c4d073bbc690060616e8e92ccbd84be;p=app-scheme79asm.git

Fix tests
---

diff --git a/t/App-Scheme79asm.t b/t/App-Scheme79asm.t
index 9d07525..8e7e72c 100644
--- a/t/App-Scheme79asm.t
+++ b/t/App-Scheme79asm.t
@@ -10,7 +10,7 @@ sub run_test {
 	my $actual = '';
 	open my $fh, '>', \$actual;
 	my $asm = App::Scheme79asm->new(%$args);
-	$asm->parse_and_print($input, $fh);
+	$asm->parse_and_print_verilog($input, $fh);
 	close $fh;
 	is $actual, $expected, $name
 }
@@ -26,7 +26,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))', <<'EOF', '((LAMBDA ID (X) X) 5)';
+run_test {addr_bits => 13}, '(call (more (funcall 0) (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)
@@ -36,7 +36,7 @@ mem[ 5] <= 16'b1100000000000111;  // CALL 7
 mem[ 6] <= 0;                     // (result of computation)
 mem[ 7] <= 16'b0000000000001001;  // MORE 9
 mem[ 8] <= 16'b0010000000000101;  // NUMBER 5
-mem[ 9] <= 16'b1110000000000000;  // FUNCALL NIL
+mem[ 9] <= 16'b1110000000000000;  // FUNCALL 0
 mem[10] <= 16'b1000000000001011;  // PROC 11
-mem[11] <= 16'b0011111111111110;  // VAR -2
+mem[11] <= 16'b0101111111111110;  // VAR -2
 EOF