test change notif when fixing lintian tags

1 files changed, 46 insertions, 6 deletions

diff --git a/t/lintian.t b/t/lintian.t
index ea2a89a6..53ca56cd 100644
--- a/t/lintian.t
+++ b/t/lintian.t
@@ -10,19 +10,59 @@ use 5.10.0;
 use Test::More;
 use Test::Exception;
 # use Test::LongString;
+use Test::Log::Log4perl;
+
+$::_use_log4perl_to_warn = 1;
 
 use lib "../lib";
 
 use Config::Model::Dpkg::Lintian::Overrides;
 
-ok(Config::Model::Dpkg::Lintian::Overrides::_exists('debian-changelog-contains-hint'),
-   "check known tag");
+subtest "load of tag data from lintian files" => sub {
+    ok(Config::Model::Dpkg::Lintian::Overrides::_exists('debian-changelog-contains-hint'),
+       "check known tag");
+
+    ok(! Config::Model::Dpkg::Lintian::Overrides::_exists('shlib-calls-exit'),
+       "check unknown tag");
+
+    is(Config::Model::Dpkg::Lintian::Overrides::_new_name('shlib-calls-exit'),
+       'exit-in-shared-library', "check renamed tag");
+};
+
+my $model = Config::Model->new ;
+$model ->create_config_class (
+    name => "TestClass",
+    element => [
+        'lintian-overrides' => {
+            'type'       => 'leaf',
+            'value_type' => 'string',
+            class => 'Config::Model::Dpkg::Lintian::Overrides',
+        },
+    ],
+) ;
+
+my $inst = $model->instance(root_class_name => 'TestClass' );
+
+my $root = $inst->config_root ;
 
-ok(! Config::Model::Dpkg::Lintian::Overrides::_exists('shlib-calls-exit'),
-   "check unknown tag");
+subtest "load tag with obsolete value" => sub {
+    my $xp = Test::Log::Log4perl->expect(
+        ignore_priority => "info",
+        ['User', warn =>  qr/Obsolete shlib-calls-exit tag/]
+    );
+    $root->load(q!lintian-overrides="libburn4 binary: shlib-calls-exit\n"!);
+};
 
-is(Config::Model::Dpkg::Lintian::Overrides::_new_name('shlib-calls-exit'),
-   'exit-in-shared-library', "check renamed tag");
+$inst->initial_load_stop;
 
+subtest "fix and check change notification" => sub {
+    $inst->apply_fixes;
+    is( $inst->needs_save, 1, "verify instance needs_save after tag fix" );
+    is(
+        $root->grab_value(q!lintian-overrides!),
+        "libburn4 binary: exit-in-shared-library\n",
+        "check tag replacement"
+    );
+};
 
 done_testing();