CVS difference for acats/ca/ca110232.am

Differences between 1.1 and version 1.2
Log of other versions for file acats/ca/ca110232.am

--- acats/ca/ca110232.am	2008/01/01 05:45:28	1.1
+++ acats/ca/ca110232.am	2008/03/22 03:32:44	1.2
@@ -60,6 +60,7 @@
 --    17 Aug 2007 RLB Corrected errors in new code.
 --     6 Sep 2007 RLB Corrected mode on Create.
 --     7 Sep 2007 RLB Corrected department checks.
+--    21 Mar 2008 RLB Corrected two test errors.
 --
 --!
 with Report;
@@ -113,6 +114,7 @@
             return True;
          end if;
       end loop;
+      return False;
    end Is_Member;
 
 end CA11023D;
@@ -187,7 +189,7 @@
    if not Is_Member (CA11023D.Emp_Ptr (E2), Dept2) then
       Report.Failed ("Trump in Mailroom!");
    end if;
-   if Is_Member (CA11023D.Emp_Ptr (E1), Dept1) then
+   if Is_Member (CA11023D.Emp_Ptr (E1), Dept2) then
       Report.Failed ("Smith in Executive Suites!");
    end if;
    declare

Questions? Ask the ACAA Technical Agent