#!/usr/bin/perl -w

use strict;

use Test::More;

use Test::Differences;

my %cases = (

    'AoH with non-scalar values' => {

        got      => [ { a => 1 }, { b => 1, c => [] } ],

        expected => [ { a => 1 }, { b => 1, c => [] } ]

    },

    'Numbers and strings' => {

        got      => { order_id => 127   },

        expected => { order_id => '127' },

    },

);

my @tests;

while ( my ( $name, $test ) = each %cases ) {

    push @tests => sub { eq_or_diff $test->{got}, $test->{expected}, $name };

}

plan tests => scalar @tests;

$_->() for @tests;