t/run.t

   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;
  11 use Test2;
  12
  13 my $test1 = Test1->new(
  14     data => {
  15         key1 => 'value1',
  16         key2 => undef,
  17         key3 => 1.23,
  18     },
  19 );
  20
  21 my %test2;
  22 $test2{"key $_"} = "value $_" for 1 .. 4000;
  23
  24 my $test2 = Test1->new(
  25     data => \%test2,
  26 );
  27
  28 my $test3 = Test2->new(
  29     data => [
  30         1 .. 5,
  31     ],
  32 );
  33
  34 Test::Class->runtests(
  35     $test1,
  36     $test3,
  37 );