X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbasic.t;h=c48bb6cb2a30a165cf1b927e38c147d531271ea2;hb=f6e5b2758375964fd8eba24b30de87e91c6782bf;hp=db72f386f203ac438da21846cdb7d997e22d6833;hpb=cda17ef7d18ccb27ae534ec03c3333efe6bec534;p=dbsrgits%2FDBIx-Class-RowCountStatistics.git

diff --git a/t/basic.t b/t/basic.t
index db72f38..c48bb6c 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -46,7 +46,7 @@ is $schema->storage->cursor_class,
 
 my $rs = $schema->resultset('Test');
 
-subtest 'simple' => sub {
+subtest 'count with ->next' => sub {
     local @_COMPLETE;
     $rs->create({ id => $_ }) for 1..10;
     do {
@@ -62,6 +62,20 @@ subtest 'simple' => sub {
     $rs->delete;
 };
 
+subtest 'count with ->all' => sub {
+    local @_COMPLETE;
+    $rs->create({ id => $_ }) for 1..10;
+    do {
+        my $rows = $rs->search_rs;
+        is ref($rows->cursor), 'CtrlO::DBIC::Cursor::RowCountStatistics',
+            'resultset cursor';
+        my @all = $rows->all;
+    };
+    is scalar(@_COMPLETE), 1, 'single complete call';
+    is $_COMPLETE[0][0], 10, 'full count';
+    $rs->delete;
+};
+
 subtest 'empty' => sub {
     local @_COMPLETE;
     do {