Further fixes and tests for grouping ordering on timeline

Author: Andy Beverley

lib/GADS/Timeline.pm

@@ -67,10 +67,12 @@ sub _build_colors
 }
 
 has groups => (
-    is      => 'ro',
-    default => sub { +{} },
+    is      => 'lazy',
+    clearer => 1,
 );
 
+sub _build_groups { +{} }
+
 has _group_count => (
     is      => 'rw',
     isa     => Int,
@@ -107,6 +109,7 @@ sub clear
     $self->clear_items;
     $self->_set_display_from(undef);
     $self->_set_display_to(undef);
+    $self->clear_groups;
 }
 
 has _all_items_index => (

t/013_datatime.t

@@ -706,13 +706,13 @@ is( @{$records->data_timeline->{items}}, 1, "Filter, single column and limited r
     {
         push @$data, {
             string1 => 'foo2',
-            enum1   => [2],
+            enum1   => [3],
             date1   => $date->add(days => 1)->ymd,
         };
     }
     push @$data,{
             string1 => 'foo1',
-            enum1   => [1,3],
+            enum1   => [1,4],
             date1   => '2010-07-01',
     };
     $date = DateTime->new(year => 2010, month => 8, day => 1);
@@ -725,7 +725,7 @@ is( @{$records->data_timeline->{items}}, 1, "Filter, single column and limited r
         };
     }
 
-    my $sheet = Test::GADS::DataSheet->new(data => $data, multivalue => 1);
+    my $sheet = Test::GADS::DataSheet->new(data => $data, multivalue => 1, enumvals_count => 4);
 
     $sheet->create_records;
     my $schema   = $sheet->schema;
@@ -747,20 +747,20 @@ is( @{$records->data_timeline->{items}}, 1, "Filter, single column and limited r
         view    => $view,
         user    => undef,
         layout  => $layout,
-        from    => DateTime->new(year => 2010, month => 3, day => 1),
+        from    => DateTime->new(year => 2010, month => 6, day => 1),
         schema  => $schema,
     );
 
     my $return = $records->data_timeline(group => $enum1->id);
 
-    # 149 normal results as per other tests plus 1 extra result for multivalue
+    # 148 normal results as per other tests plus 1 extra result for multivalue
     is( @{$return->{items}}, 149, "Correct number of items for group ordering" );
 
     # Check that the groups are in the right order. Because we are ordering by
     # the enumvals (foo1, foo2, foo3) then number in the value should match the
     # grouping order
     my @groups = @{$return->{groups}};
-    is( @groups, 3, "Correct number of groups" );
+    is( @groups, 4, "Correct number of groups" );
 
     ok( $_->{content} eq "foo$_->{order}", "Ordering matches content" )
         foreach @groups;

t/lib/Test/GADS/DataSheet.pm

@@ -354,6 +354,11 @@ has column_count => (
     },
 );
 
+has enumvals_count => (
+    is      => 'ro',
+    default => 3,
+);
+
 has curval => (
     is => 'ro',
 );
@@ -598,17 +603,14 @@ sub __build_columns
         $enum->name("enum$count");
         $enum->name_short("L${instance_id}enum$count");
         $enum->multivalue(1) if $self->multivalue && $self->multivalue_columns->{enum};
-        $enum->enumvals([
-            {
-                value => 'foo1',
-            },
-            {
-                value => 'foo2',
-            },
-            {
-                value => 'foo3',
-            },
-        ]);
+        my @enumvals;
+        foreach my $i (1..$self->enumvals_count)
+        {
+            push @enumvals, {
+                value => "foo$i",
+            };
+        }
+        $enum->enumvals(\@enumvals);
         $enum->set_permissions({$self->group->id => $permissions})
             unless $self->no_groups;
         try { $enum->write };