use strict;
use warnings;
-use Test::More tests => 31;
-BEGIN { use_ok('App::Scheme79asm::Compiler', qw/pretty_print/) };
+use Data::Dump::Sexp;
+use Test::More tests => 32;
+
+BEGIN { use_ok('App::Scheme79asm::Compiler') };
sub is_sexp {
my ($expr, $expected, $name) = @_;
- is pretty_print($expr), $expected, $name;
+ is dump_sexp($expr), $expected, $name;
}
sub to_sexp {
}
is_sexp new->process_quoted(to_sexp '5'), '(SYMBOL 3)', 'process_quoted 5';
+is_sexp new->process_quoted(to_sexp 'NIL'), '(LIST 0)', 'process_quoted NIL';
is_sexp new->process_quoted(to_sexp '()'), '(LIST 0)', 'process_quoted ()';
is_sexp new->process_quoted(to_sexp '(5 foo)'), '(LIST (LIST (LIST 0) (SYMBOL 3)) (SYMBOL 4))', 'process_quoted (5 foo)';
is_sexp new->process_quoted(to_sexp '(((5)))'), '(LIST (LIST 0) (LIST (LIST 0) (LIST (LIST 0) (SYMBOL 3))))', 'process_quoted (((5)))';
sub pp_roundtrip {
my ($string) = @_;
- my $pp = uc App::Scheme79asm::Compiler::pretty_print(to_sexp $string);
- is $pp, uc($string), "pretty_print roundtrip $string";
+ my $pp = uc dump_sexp(to_sexp $string);
+ is $pp, uc($string), "dump_sexp roundtrip $string";
}
pp_roundtrip '()';