Turn the test green again
This commit is contained in:
parent
146facbaff
commit
1ff67adf10
|
@ -6,7 +6,7 @@ use Ada.Text_IO;
|
||||||
package body WasRun is
|
package body WasRun is
|
||||||
|
|
||||||
procedure Test_Method (T : in out Testa.TestCase'Class) is
|
procedure Test_Method (T : in out Testa.TestCase'Class) is
|
||||||
WTest : WTestCase := WTestCase (T);
|
WTest : WTestCase renames WTestCase (T);
|
||||||
begin
|
begin
|
||||||
WTest.WasRun := True;
|
WTest.WasRun := True;
|
||||||
end Test_Method;
|
end Test_Method;
|
||||||
|
|
Loading…
Reference in New Issue