Merge branch 'master' of git@github.com:plainblack/webgui

t/Asset/Wobject/DataForm/viewList.t

@@ -29,7 +29,7 @@ my $df = WebGUI::Asset->getImportNode($session)->addChild( {
     className => 'WebGUI::Asset::Wobject::DataForm', 
 } );
 
-WebGUI::Test->tagsToRollback( WebGUI::VersionTag->getWorking( $session ) );
+addToCleanup( WebGUI::VersionTag->getWorking( $session ) );
 
 # Add fields to the dataform
 $df->createField( "name",    { type => "text", } );
@@ -49,18 +49,20 @@ my @entryProperties = (
     }
 );
 
+my $birthday = WebGUI::Test->webguiBirthday;
+
 my @entries = ();
 for my $properties (@entryProperties) {
     my $entry = $df->entryClass->newFromHash( $df, $properties );
+    $entry->submissionDate(WebGUI::DateTime->new($session, $birthday++));
     $entry->save;
     push @entries, $entry;
-    sleep 1;
 }
 
 #----------------------------------------------------------------------------
 # Tests
 
-plan tests => 2;    # Increment this number for each test you create
+plan tests => 6;    # Increment this number for each test you create
 
 #----------------------------------------------------------------------------
 # Test getListTemplateVars
@@ -184,8 +186,63 @@ cmp_deeply(
     'getListTemplateVars is complete and correct',
 );
 
+is($tmplVar->{'pagination.pageCount'}, 1, '... and has pagination variables');
 
-#----------------------------------------------------------------------------
-# Cleanup
+#-------------------------------------
+#Shove in a bunch of data to test pagination
+
+my @quoteDb = (
+    { name => "Red",    message => "That tall drink of water", },
+    { name => "Norton", message => "Do you enjoy working in the laundry?", },
+    { name => "Andy",   message => "They say it has no memory", },
+    { name => "Boggs",  message => "Hey, we all need friends in here", },
+    { name => "Andy",   message => "It's my life.  Don't you understand?", },
+
+    { name => "Red",    message => "Rehabilitated?  Well, now let me see.", },
+    { name => "Red",    message => "I know what *you* think it means, sonny.", },
+    { name => "Red",    message => "I know what *you* think it means, sonny.", },
+    { name => "Andy",   message => "How can you be so obtuse?", },
+    { name => "Red",    message => "The man likes to play chess; let's get him some rocks. ", },
+
+    { name => "Brooks", message => "Easy peasy japanesey.", },
+    { name => "Hadley", message => "What is your malfunction?", },
+    { name => "Red",    message => "Hope is a dangerous thing. Hope can drive a man insane. ", },
+    { name => "Red",    message => "They send you here for life, and that's exactly what they take.", },
+    { name => "Red",    message => "Truth is, I don't want to know. Some things are best left unsaid.", },
+
+    { name => "Andy",   message => "That's the beauty of music.", },
+    { name => "Red",    message => "I played a mean harmonica as a younger man.", },
+    { name => "Tommy",  message => "I don't read so good.", },
+    { name => "Andy",   message => "You don't read so *well*.", },
+    { name => "Red",    message => "Murder, same as you.", },
+
+    { name => "Norton", message => "Salvation lies within.", },
+    { name => "Andy",   message => "Remember Red, hope is a good thing.", },
+    { name => "Hadley", message => "Drink up while it's cold, ladies.", },
+    { name => "Red",    message => "We sat and drank with the sun on our shoulders and felt like free men.", },
+    { name => "Andy",   message => "You see that's tax deductible, you can write that off. ", },
+
+    { name => "Norton", message => "Lord! It's a miracle!", },
+    { name => "Red",    message => "I don't have her stuffed down the front of my pants right now, I'm sorry to say, but I'll get her.", },
+    { name => "Andy",   message => "Get busy living, or get busy dying.", },
+    { name => "Brooks", message => "The world went and got itself in a big damn hurry.", },
+    { name => "Andy",   message => "Everybody's innocent in here. Didn't you know that?", },
+
+);
+
+for my $quote (@quoteDb) {
+    my $entry = $df->entryClass->newFromHash( $df, $quote );
+    $entry->submissionDate(WebGUI::DateTime->new($session, $birthday++));
+    $entry->save;
+    push @entries, $entry;
+}
+
+$tmplVar = $df->getListTemplateVars({});
+is @{ $tmplVar->{record_loop} }, 25, 'list variables are paginated';
+ok $tmplVar->{'pagination.pageCount.isMultiple'}, 'pagination: has multiple pages';
+
+$session->request->setup_body({ pn => 2, });
+$tmplVar = $df->getListTemplateVars({});
+is @{ $tmplVar->{record_loop} }, 7, '7 entries in the 2nd page';
 
 #vim:ft=perl