override storage to access sth details

[dbsrgits/DBIx-Class-RowCountStatistics.git] / t / basic.t

diff --git a/t/basic.t b/t/basic.t
index db72f38..c48bb6c 100644 (file)
--- 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 {