diff mbox series

[OSSTEST,31/82] plan_search: Improve debugging of $share_compat_ok->()

Message ID 20201007180024.7932-32-iwj@xenproject.org (mailing list archive)
State New, archived
Headers show
Series Reuse test hosts | expand

Commit Message

Ian Jackson Oct. 7, 2020, 5:59 p.m. UTC 
From: Ian Jackson <ian.jackson@eu.citrix.com>

No change other than to debugging output.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
---
 Osstest/Executive.pm | 7 +++++++
 1 file changed, 7 insertions(+)
diff mbox series

Patch

diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index e4bb0868..dfa3710a 100644
--- a/Osstest/Executive.pm
+++ b/Osstest/Executive.pm
@@ -702,6 +702,12 @@  sub plan_search ($$$$) {
 
 	    my $share_compat_ok = sub {
 		my ($eshare) = @_;
+		$dbgprint->("PLAN LOOP   SHARE-COMPAT-OK ".
+		    "type $eshare->{Type} vs. ".
+			($req->{Shared} // '<undef>')." ".
+		    "wear $eshare->{Wear} ".
+		    "shares $eshare->{Shares} vs. ".
+			($req->{SharedMaxTasks}//'<undef>'));
 		return 0 unless defined $req->{Shared};
 		return 0 unless $req->{Shared} eq $eshare->{Type};
 		if (defined $share_wear) {
@@ -711,6 +717,7 @@  sub plan_search ($$$$) {
 		}
 		return 0 if $share_wear > $req->{SharedMaxWear};
 		return 0 if $eshare->{Shares} != $req->{SharedMaxTasks};
+		$dbgprint->("PLAN LOOP   SHARE-COMPAT-OK Y");
 		return 1;
 	    };