Use iterators instead of file lists
Change-Id: I49ea1075939d8e0d042d15556ea16db9359d3aff
diff --git a/t/multiple_archives.t b/t/multiple_archives.t
index e57bf1e..643ab81 100644
--- a/t/multiple_archives.t
+++ b/t/multiple_archives.t
@@ -47,6 +47,18 @@
is(scalar @list, 1, 'Found all tests');
is($list[0], 'WPD15/A00/00081', 'First document');
+# Test list_texts_iterator
+my $iter = $archive->list_texts_iterator;
+ok($iter, 'Iterator created');
+my @iter_list;
+while (defined(my $path = $iter->())) {
+ push @iter_list, $path;
+}
+is_deeply(\@iter_list, \@list, 'Iterator returns same paths as list_texts');
+
+# Test count_texts
+is($archive->count_texts, 1, 'count_texts returns correct number');
+
ok($archive->test, 'Test all archives');
# Split path