[dbsrgits/DBM-Deep.git] / t / run.t

use 5.6.0;

use strict;
use warnings;

use lib 't/lib';

use DBM::Deep;

use Test1;
use Test2;

my $test1 = Test1->new(
    data => {
        key1 => 'value1',
        key2 => undef,
        key3 => 1.23,
    },
);

my %test2;
$test2{"key $_"} = "value $_" for 1 .. 4000;

my $test2 = Test1->new(
    data => \%test2,
);

my $test3 = Test2->new(
    data => [
        1 .. 5,
    ],
);

Test::Class->runtests(
    $test1,
    $test3,
);
Commit	Line	Data
d0c365a5	1	use 5.6.0;
	2
	3	use strict;
	4	use warnings;
	5
	6	use lib 't/lib';
	7
	8	use DBM::Deep;
	9
	10	use Test1;
361dba51	11	use Test2;
d0c365a5	12
4c3601d7	13	my $test1 = Test1->new(
d0c365a5	14	data => {
	15	key1 => 'value1',
	16	key2 => undef,
	17	key3 => 1.23,
	18	},
	19	);
	20
4c3601d7	21	my %test2;
	22	$test2{"key $_"} = "value $_" for 1 .. 4000;
	23
	24	my $test2 = Test1->new(
	25	data => \%test2,
	26	);
	27
361dba51	28	my $test3 = Test2->new(
	29	data => [
	30	1 .. 5,
	31	],
	32	);
	33
4c3601d7	34	Test::Class->runtests(
4c3601d7	35	$test1,
361dba51	36	$test3,
4c3601d7	37	);