DB: Add assertion to check for missing files in databasedev

This is related to 62f5bc3ce90fedb396d103caae68dc2f211f1b16 and would
trigger if the optimization prevents a path from being added to the
database.

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/App/BorgRestore/PathTimeTable/DB.pm b/lib/App/BorgRestore/PathTimeTable/DB.pm
index 069d991..685c7b9 100644
--- a/lib/App/BorgRestore/PathTimeTable/DB.pm
+++ b/lib/App/BorgRestore/PathTimeTable/DB.pm
@@ -1,6 +1,7 @@
 package App::BorgRestore::PathTimeTable::DB;
 use strictures 2;
 
+use Carp::Assert;
 use Function::Parameters;
 BEGIN {
 	use Log::Any qw($log);
@@ -130,6 +131,11 @@ method save_nodes() {
 	for my $key (keys %{$self->{stats}}) {
 		$log->debugf("Performance counter %s = %s", $key, $self->{stats}->{$key});
 	}
+
+	# +2 because:
+	# - borg list gives us `.` as the first path and we essentially skip it
+	# - we call `add_path` with `.` at the beginning of this method
+	assert($self->{stats}->{real_calls_to_db_class} + 2 == $self->{stats}->{total_paths}, "All files were actually added to the database");
 }
 
 1;