CVS difference for 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