projects
/
app-scheme79asm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use Data::Dump::Sexp instead of pretty_print
[app-scheme79asm.git]
/
t
/
Compiler.t
diff --git
a/t/Compiler.t
b/t/Compiler.t
index 11718b1a642ca6bd13f9a368b57cebf7fbcc8f91..847cdb2e72e5777e52479297a927164cc16b69bd 100644
(file)
--- a/
t/Compiler.t
+++ b/
t/Compiler.t
@@
-2,12
+2,14
@@
use strict;
use warnings;
use strict;
use warnings;
+use Data::Dump::Sexp;
use Test::More tests => 31;
use Test::More tests => 31;
-BEGIN { use_ok('App::Scheme79asm::Compiler', qw/pretty_print/) };
+
+BEGIN { use_ok('App::Scheme79asm::Compiler') };
sub is_sexp {
my ($expr, $expected, $name) = @_;
sub is_sexp {
my ($expr, $expected, $name) = @_;
- is
pretty_print
($expr), $expected, $name;
+ is
dump_sexp
($expr), $expected, $name;
}
sub to_sexp {
}
sub to_sexp {
@@
-43,8
+45,8
@@
is_toplevel '(lambda append (x y) (if (atom x) y (cons (car x) (append (cdr x) y
sub pp_roundtrip {
my ($string) = @_;
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 '()';
}
pp_roundtrip '()';
This page took
0.009982 seconds
and
4
git commands to generate.