From 376ebdfda10202226c84d5de2841c9d771dbe387 Mon Sep 17 00:00:00 2001 From: James Adams Date: Wed, 12 Jul 2023 16:03:53 +0100 Subject: [PATCH] Revert "test/perl/cli: Don't check failed component order" This reverts commit 8c15f8463b2e7139e37b20f4cd0f377f413f8b9f. --- src/test/perl/cli.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/test/perl/cli.t b/src/test/perl/cli.t index e17783f..7411620 100644 --- a/src/test/perl/cli.t +++ b/src/test/perl/cli.t @@ -172,8 +172,8 @@ like($@, qr{^exit -1 at}, "report exited with failure"); ok($this_app->directory_exists($statedir), "statedir $statedir does exist 3"); diag explain \@pri; is($pri[-3]->[0], '2 components with error', "Main report is 2 failed components"); -#like($pri[-2]->[0], qr{^ ouch failed on .*? 2001 \(no message\)}, "failed ouch component"); -#like($pri[-1]->[0], qr{^ woohaa failed on .*? 1973 with message woopsie}, "failed woohaa component"); +like($pri[-2]->[0], qr{^ ouch failed on .*? 2001 \(no message\)}, "failed ouch component"); +like($pri[-1]->[0], qr{^ woohaa failed on .*? 1973 with message woopsie}, "failed woohaa component"); @pri = qw(); eval {$this_appn->main($ec);};