From fde4c811ed5d093ac725573d60954b293b72fb20 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A9sar=20Sagaert?= Date: Thu, 14 Nov 2024 14:36:07 +0100 Subject: [PATCH] fix: make test actions run once --- src/alr/alr-commands-test.adb | 30 ++++++++++++------------------ 1 file changed, 12 insertions(+), 18 deletions(-) diff --git a/src/alr/alr-commands-test.adb b/src/alr/alr-commands-test.adb index 6fafb9856..dceba0ad0 100644 --- a/src/alr/alr-commands-test.adb +++ b/src/alr/alr-commands-test.adb @@ -317,24 +317,18 @@ package body Alr.Commands.Test is else R.Base_Folder)) with Unreferenced; begin - for Action of R.On_Platform_Actions - (Platform.Properties, - (Alire.Properties.Actions.Test => True, - others => False)) - loop - Alire.Properties.Actions.Executor.Execute_Actions - (Release => R, - Env => Platform.Properties, - Moment => Alire.Properties.Actions.Test, - Capture => True, - Err_To_Out => True, - Code => Exit_Code, - Output => Output); - - if Exit_Code /= 0 then - raise Child_Failed; - end if; - end loop; + Alire.Properties.Actions.Executor.Execute_Actions + (Release => R, + Env => Platform.Properties, + Moment => Alire.Properties.Actions.Test, + Capture => True, + Err_To_Out => True, + Code => Exit_Code, + Output => Output); + + if Exit_Code /= 0 then + raise Child_Failed; + end if; end; end Custom_Test;