[Rt-commit] r19758 - rt/3.999/trunk/t/api

[sartak at bestpractical.com]

Author: sartak
Date: Tue May 26 13:46:42 2009
New Revision: 19758

Added:
   rt/3.999/trunk/t/api/paging.t

Log:
Turn acme's failure into a test

Added: rt/3.999/trunk/t/api/paging.t
==============================================================================
--- (empty file)
+++ rt/3.999/trunk/t/api/paging.t	Tue May 26 13:46:42 2009
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+use RT::Test tests => 11;
+
+for (1 .. 10) {
+    my $t = RT::Model::Ticket->new(current_user => RT->system_user);
+    my ($ok, $msg) = $t->create(
+        queue   => 'General',
+        subject => "Test ticket $_",
+    );
+    ok($ok, "Created ticket $_");
+}
+
+my $tickets = RT::Model::TicketCollection->new(current_user => RT->system_user);
+$tickets->limit_status(value => 'new');
+$tickets->set_page_info(per_page => 5);
+
+my $count = 0;
+while (my $ticket = $tickets->next) {
+    ++$count;
+}
+
+TODO: {
+    local $TODO = "Doesn't work yet!";
+    is($count, 5, "set_page_info");
+}
+