Add test coverage test

lemonldap-ng-manager/MANIFEST

@@ -125,6 +125,7 @@ t/05-rest-api.t
 t/06-rest-api.t
 t/10-save-unchanged-conf.t
 t/12-save-changed-conf.t
+t/20-test-coverage.t
 t/40-sessions.t
 t/50-notifications.t
 t/90-translations.t

lemonldap-ng-manager/t/20-test-coverage.t

@@ -0,0 +1,38 @@
+#!/usr/bin/env perl -I pl/lib
+
+use Test::More;
+use strict;
+use Lemonldap::NG::Manager::Constants;
+
+use_ok('Lemonldap::NG::Manager::Build::Attributes');
+my $count = 1;
+
+my ( $attrs, $types );
+ok( $attrs = Lemonldap::NG::Manager::Build::Attributes::attributes(),
+    'Get attributes' );
+ok( $types = Lemonldap::NG::Manager::Build::Attributes::types(), 'Get types' );
+$count += 2;
+
+foreach my $attr ( keys %$attrs ) {
+    ok(
+        (
+                 ref( $attrs->{$attr}->{test} )
+              or ref( $types->{ $attrs->{$attr}->{type} }->{test} )
+              or $attrs->{$attr}->{type} =~ /Container$/
+        ),
+        "Test exists for $attr"
+    );
+    $count++;
+    if ( $attr =~ qr/^$simpleHashKeys$/o ) {
+        ok(
+            (
+                     ref $attrs->{$attr}->{keyTest}
+                  or ref $types->{ $attrs->{$attr}->{type} }->{keyTest}
+            ),
+            "Key test for $attr"
+        );
+        $count++;
+    }
+}
+
+done_testing($count);