Turn the test green again

2011-12-29 23:53:54 -08:00 · 2011-12-29 23:53:54 -08:00 · 1ff67adf10
parent 146facbaff
commit 1ff67adf10
1 changed files with 1 additions and 1 deletions
--- a/src/wasrun.adb
+++ b/src/wasrun.adb
@ -6,7 +6,7 @@ use Ada.Text_IO;
 package body WasRun is

    procedure Test_Method (T : in out Testa.TestCase'Class) is
-        WTest : WTestCase := WTestCase (T);
+        WTest : WTestCase renames WTestCase (T);
    begin
        WTest.WasRun := True;
    end Test_Method;