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( |
35 | $test1, | |
361dba51 | 36 | $test3, |
4c3601d7 | 37 | ); |