rtyler
/
chucktesta
1
0
Fork 0
Code Issues 4 Pull Requests Releases Wiki Activity

Get things compiling again, test is still red due to the creation of a local object (WTest)

This commit is contained in:
R. Tyler Croy 2011-12-29 23:51:32 -08:00
parent 5f0f7cd02f
commit 146facbaff
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/testa.ads
View File

@ -1,7 +1,7 @@
package Testa is
type TestCase is tagged private;
type Test_Method_Type is access procedure (T : in out TestCase);
type Test_Method_Type is access procedure (T : in out TestCase'Class);
procedure Set_Method (T : in out TestCase;
M : in Test_Method_Type);

6
src/wasrun.adb
View File

@ -5,10 +5,10 @@ use Ada.Text_IO;
package body WasRun is
procedure Test_Method (T : in out WTestCase) is
procedure Test_Method (T : in out Testa.TestCase'Class) is
WTest : WTestCase := WTestCase (T);
begin
null;
-- T.WasRun := True;
WTest.WasRun := True;
end Test_Method;
procedure Print_WasRun(T : in WTestCase) is

2
src/wasrun.ads
View File

@ -4,7 +4,7 @@ with Testa;
package WasRun is
type WTestCase is new Testa.TestCase with private;
procedure Test_Method (T : in out WTestCase);
procedure Test_Method (T : in out Testa.TestCase'Class);
procedure Print_WasRun (T : in WTestCase);
private