view release on metacpan or  search on metacpan

t/007_when_viewing_response_as_json.t  view on Meta::CPAN

        my $num_bead_colors = scalar( @color_list );
        $color_list[ int(rand() * $num_bead_colors) ];
    };
    my $color_rgb = do {
        my ($r, $g, $b) = ($color . '_RGB_COLOR_RED', $color . '_RGB_COLOR_GREEN', $color . '_RGB_COLOR_BLUE');
        [ FuseBead::From::PNG::Const->$r, FuseBead::From::PNG::Const->$g, FuseBead::From::PNG::Const->$b ];
    };

    my $id = "${color}";

    my $plan_length = $width / $unit_size * FuseBead::From::PNG::Const->BEAD_DIAMETER;
    my $plan_height = $height / $unit_size * FuseBead::From::PNG::Const->BEAD_DIAMETER;
    my $plan_length_in = $plan_length * FuseBead::From::PNG::Const->MILLIMETER_TO_INCH;
    my $plan_height_in = $plan_height * FuseBead::From::PNG::Const->MILLIMETER_TO_INCH;

    my $expected = {
        beads => {
            $id   => {
                diameter => FuseBead::From::PNG::Const::BEAD_DIAMETER,
                color    => $color,
                id       => $id,
                quantity => 1,
            }
        },
        plan => [
            {
                color    => $color,
                diameter => FuseBead::From::PNG::Const::BEAD_DIAMETER,
                id       => $id,
                meta     => {
                    x   => 0,
                    y   => 0,
                    ref => 0,
                },
            }
        ],
        info => {
            rows   => $width / $unit_size,
            cols   => $height / $unit_size,
            metric => {
                length => $plan_length,
                height => $plan_height,
            },
            imperial => {
                length => $plan_length_in,
                height => $plan_height_in,
            },
        }
    };

    my $png = Test::PNG->new({ width => $width, height => $height, unit_size => $unit_size, color => $color_rgb });

    my $object = FuseBead::From::PNG->new({ filename => $png->filename, unit_size => $unit_size });

    my $result = $object->process(view => 'JSON');

    cmp_ok(ref($result) ? "it's a ref - " . ref($result) : "it's a scalar", 'eq', "it's a scalar", 'Result is a SCALAR and not a reference');

    my $hash = eval { JSON->new->decode( $result ) } || {};

    is_deeply($hash, $expected, "JSON decoded back to hash correctly");

    $tests += 2;
}