t/updater.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 use aliased 'System::Introspector::Report::Updater';
   5
   6 my $updater = Updater->new;
   7
   8 my $content = $updater->merge(
   9   [],
  10   [
  11     { id        => "foo",
  12       title     => "Foo",
  13       columns   => [{ key => "a", label => "A" }, { key => "b", label => "B" }],
  14       rows      => [
  15         { a => 17, b => 23 },
  16         { a => 23, b => 17 },
  17       ],
  18     },
  19     { id        => "bar",
  20       title     => "Bar",
  21       columns   => [{ key => "a", label => "A" }, { key => "b", label => "B" }],
  22       rows      => [
  23         { a => 17, b => 23 },
  24         { a => 23, b => 17 },
  25       ],
  26     },
  27   ],
  28 );
  29
  30 ok scalar(@$content), 'received content';
  31
  32 done_testing;