#! /usr/bin/perl
use strict;
use warnings;

use Test::More tests => 2;

my %result;


$result{test1}->{rc} = is(
    $result{test1}->{got} = 1 + 1,
    $result{test1}->{expected} = 2,
    "one plus one is two",
);

$result{test2}->{rc} = is(
    $result{test2}->{got} = 1 + 1,
    $result{test2}->{expected} = 11,
    "one plus one is two",
);

require Data::Dumper;
print Data::Dumper->new( [ \%result ], [ '*result' ] )->Dump();