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