try to debug failing tags tests

openfoodfacts · May 27, 2019 · 50c1258 · 50c1258
1 parent 429bc29
commit 50c1258
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/lib/ProductOpener/Tags.pm b/lib/ProductOpener/Tags.pm
@@ -42,7 +42,7 @@ BEGIN
 					%tags_images
 					%tags_texts
 					%tags_levels
-					%levels
+					%level
 					%special_tags
 
 					&get_taxonomyid
@@ -187,7 +187,7 @@ my %synonyms = ();
 my %synonyms_for_extended = ();
 %translations_from = ();
 %translations_to = ();
-my %level = ();
+%level = ();
 my %direct_parents = ();
 my %direct_children = ();
 my %all_parents = ();
@@ -1773,6 +1773,7 @@ sub gen_tags_hierarchy_taxonomy($$$) {
 	}
 
 	my @sorted_list = sort { (((defined $level{$tagtype}{$b}) ? $level{$tagtype}{$b} : 0) <=> ((defined $level{$tagtype}{$a}) ? $level{$tagtype}{$a} : 0)) || ($a cmp $b) } keys %tags;
+
 	return @sorted_list;
 }
 
@@ -3038,7 +3039,7 @@ close ($IN);
 
 	foreach my $geofile (@geofiles) {
 
-		#print STDERR "Tags.pm - loading geofile $geofile\n";
+		print STDERR "Tags.pm - loading geofile $geofile\n";
 		open (my $IN, "<:encoding(UTF-8)", "$data_root/emb_codes/$geofile");
 
 		my @th = split(/\t/, <$IN>);

diff --git a/t/tags.t b/t/tags.t
@@ -298,6 +298,11 @@ is_deeply (\@tags, [
  ]
  ) or diag explain(\@tags);;
 
+foreach my $tag (@tags) {
+
+	print STDERR "tag: $tag\tlevel: " . $level{ingredients}{$tag} . "\n";
+}
+
 @tags = gen_ingredients_tags_hierarchy_taxonomy("en", "en:concentrated-orange-juice, en:sugar, en:salt, en:orange");
 
 is_deeply (\@tags, [