Compare two Perl data structures:

examples/perl/t/is_deeply.t
use strict;
use warnings;

use Test::More tests => 10;

use FindBin;
use lib "$FindBin::Bin/../lib";

use MyTools;


is fibo(1), 1, 'fib 1';
is fibo(2), 1, 'fib 2';
is fibo(3), 2, 'fib 3';
is fibo(4), 3, 'fib 4';
is fibo(5), 5, 'fib 5';

is_deeply fibonacci(1), [1],              'fibs 1';
is_deeply fibonacci(2), [1, 1],           'fibs 2';
is_deeply fibonacci(3), [1, 1, 2],        'fibs 3';
is_deeply fibonacci(4), [1, 1, 2, 3],     'fibs 4';
is_deeply fibonacci(5), [1, 1, 2, 3, 5],  'fibs 5';

1..10
ok 1 - fib 1
ok 2 - fib 2
ok 3 - fib 3
ok 4 - fib 4
not ok 5 - fib 5
#   Failed test 'fib 5'
#   at t/is_deeply.t line 16.
#          got: '7'
#     expected: '5'
ok 6 - fibs 1
ok 7 - fibs 2
ok 8 - fibs 3
ok 9 - fibs 4
not ok 10 - fibs 5
#   Failed test 'fibs 5'
#   at t/is_deeply.t line 22.
#     Structures begin differing at:
#          $got->[2] = '4'
#     $expected->[2] = '2'
# Looks like you failed 2 tests of 10.