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 )