Any-Renderer-Data-Printer
view release on metacpan or search on metacpan
t/01-check_output.t view on Meta::CPAN
#!/usr/bin/perl
use 5.006;
use strict;
use warnings;
use Test::More tests => 3;
use Any::Renderer;
use constant OUTPUT_DEFAULT => q[\ {
bar [
[0] "foo1",
[1] "foo2",
[2] "foo3"
],
foo "bar"
}];
use constant OUTPUT_INDENT_10 => q[\ {
bar [
[0] "foo1",
[1] "foo2",
[2] "foo3"
],
foo "bar"
}];
t/01-check_output.t view on Meta::CPAN
ok( $r, 'Object Creation' );
my $hash = {
foo => 'bar',
bar => ['foo1','foo2','foo3']
};
ok($r->render($hash) eq OUTPUT_DEFAULT, 'Output - Default');
ok( $r2->render($hash) eq OUTPUT_INDENT_10, 'Output - Indent 10');
( run in 0.370 second using v1.01-cache-2.11-cpan-4e96b696675 )