Dirk Stoecker
75982db1f0
- updated to 1.8 see /usr/share/doc/packages/perl-Sys-Utmp/Changes - make perl-Sys-Utmp-1.8-0 build with a patch from debian - do as hinted in request 890503 OBS-URL: https://build.opensuse.org/request/show/891579 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Sys-Utmp?expand=0&rev=1
70 lines
2.4 KiB
Diff
70 lines
2.4 KiB
Diff
Author: Joey Hess <joeyh@debian.org>
|
|
Description: Fix the test suite to not die if the utmp file is empty.
|
|
Bug: #394618
|
|
|
|
--- a/t/06taint.t
|
|
+++ b/t/06taint.t
|
|
@@ -23,5 +23,8 @@ my $utmp = Sys::Utmp->new();
|
|
|
|
my $utent = $utmp->getutent();
|
|
|
|
-ok(tainted($utent->ut_user()),"ut_user is tainted");
|
|
-ok(tainted($utent->ut_host()),"ut_host is tainted");
|
|
+SKIP: {
|
|
+ skip "no utmp entries", 2 if ! $utent;
|
|
+ ok(tainted($utent->ut_user()),"ut_user is tainted");
|
|
+ ok(tainted($utent->ut_host()),"ut_host is tainted");
|
|
+}
|
|
--- a/t/07utent_methods.t
|
|
+++ b/t/07utent_methods.t
|
|
@@ -7,10 +7,13 @@ my $utmp = Sys::Utmp->new();
|
|
|
|
my $utent = $utmp->getutent();
|
|
|
|
-ok(defined $utent->ut_user(),"ut_user");
|
|
-ok(defined $utent->ut_id(),"ut_id");
|
|
-ok(defined $utent->ut_line(),"ut_line");
|
|
-ok(defined $utent->ut_pid(),"ut_pid");
|
|
-ok(defined $utent->ut_type(),"ut_type");
|
|
-ok(defined $utent->ut_host(),"ut_host");
|
|
-ok(defined $utent->ut_time(),"ut_time");
|
|
+SKIP: {
|
|
+ skip "no utmp entries", 7 if ! $utent;
|
|
+ ok(defined $utent->ut_user(),"ut_user");
|
|
+ ok(defined $utent->ut_id(),"ut_id");
|
|
+ ok(defined $utent->ut_line(),"ut_line");
|
|
+ ok(defined $utent->ut_pid(),"ut_pid");
|
|
+ ok(defined $utent->ut_type(),"ut_type");
|
|
+ ok(defined $utent->ut_host(),"ut_host");
|
|
+ ok(defined $utent->ut_time(),"ut_time");
|
|
+}
|
|
--- a/t/08utent_types.t
|
|
+++ b/t/08utent_types.t
|
|
@@ -6,13 +6,16 @@ use Test::More tests => 10;
|
|
my $utmp = Sys::Utmp->new();
|
|
my $utent = $utmp->getutent();
|
|
|
|
-ok(defined $utent->accounting(),"accounting");
|
|
-ok(defined $utent->boot_time(),"boot_time");
|
|
-ok(defined $utent->dead_process(),"dead_process");
|
|
-ok(defined $utent->empty(),"empty");
|
|
-ok(defined $utent->init_process(),"init_process");
|
|
-ok(defined $utent->login_process(),"login_process");
|
|
-ok(defined $utent->new_time(),"new_time");
|
|
-ok(defined $utent->old_time(),"old_time");
|
|
-ok(defined $utent->run_lvl(),"run_lvl");
|
|
-ok(defined $utent->user_process(),"user_process");
|
|
+SKIP: {
|
|
+ skip "no utmp entries", 10 if ! $utent;
|
|
+ ok(defined $utent->accounting(),"accounting");
|
|
+ ok(defined $utent->boot_time(),"boot_time");
|
|
+ ok(defined $utent->dead_process(),"dead_process");
|
|
+ ok(defined $utent->empty(),"empty");
|
|
+ ok(defined $utent->init_process(),"init_process");
|
|
+ ok(defined $utent->login_process(),"login_process");
|
|
+ ok(defined $utent->new_time(),"new_time");
|
|
+ ok(defined $utent->old_time(),"old_time");
|
|
+ ok(defined $utent->run_lvl(),"run_lvl");
|
|
+ ok(defined $utent->user_process(),"user_process");
|
|
+}
|