]>
iEval git - app-scheme79asm.git/blob - t/App-Scheme79asm.t
5 use Test
::More tests
=> 2;
6 BEGIN { use_ok
('App::Scheme79asm') };
9 my ($args, $input, $expected, $name) = @_;
11 open my $fh, '>', \
$actual;
12 my $asm = App
::Scheme79asm
->new(%$args);
13 $asm->parse_and_print($input, $fh);
15 is
$actual, $expected, $name
18 run_test
{addr_bits
=> 5}, '(quoted . (symbol . 5))', <<'', '(QUOTE 5)';
21 mem
[2] <= 8'b00100000;
22 mem[3] <= 8'b00100000
;
24 mem[5] <= 8'b11100111
;
26 mem
[7] <= 8'b00100101;
This page took 0.0524 seconds and 4 git commands to generate.