From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 8 Dec 2023 17:53:22 +0000 (+0100)
Subject: check combined row 3
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=a52f3763b3b2da9c3e446d9ee098bb5045641f65;p=csv-join-similarity

check combined row 3
---

diff --git a/upari.pl b/upari.pl
index 1e7e1bd..7841a51 100755
--- a/upari.pl
+++ b/upari.pl
@@ -104,6 +104,11 @@ foreach my $val ( 1 .. 4 ) {
 			next;
 		}
 
+		if ( $row->[3] ne $row->[1] . $row->[2] ) {
+			$stat->{XX_invalid_combined}->{$val}++;
+			print "INVALID $file combined [$row->[3]] not [$row->[1]$row->[2]]\n";
+		}
+
 		my $c_id = $row->[0];
 		my $c_s = $row->[1];
 		my $c_r = $row->[2];
@@ -123,6 +128,11 @@ foreach my $val ( 1 .. 4 ) {
 			next;
 		}
 
+		if ( $row->[3] ne $row->[1] . $row->[2] ) {
+			$stat->{XX_invalid_combined_cleanup}->{$val}++;
+			print "INVALID $file combined [$row->[3]] not [$row->[1]$row->[2]] after cleanup\n";
+		}
+
 		my $key_id = $row->[1] . '-' . $row->[2];
 
 		$stat->{A_key_id}->{$key_id}->{$val}++;