Use iterators instead of file lists
Change-Id: I49ea1075939d8e0d042d15556ea16db9359d3aff
diff --git a/t/archive.t b/t/archive.t
index 77026d7..adf7559 100644
--- a/t/archive.t
+++ b/t/archive.t
@@ -27,6 +27,18 @@
is($list[0], './TEST/BSP/1', 'First document');
is($list[-1], './TEST/BSP/10', '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, 10, 'count_texts returns correct number');
+
my @path = $archive->split_path('./TEST/BSP/9');
is($path[0],'.', 'Prefix');
is($path[1],'TEST', 'Prefix');