<> <> DIRECTORY Fugleman USING [Handle, NewFugleman, Check, SomeProc, FugleFailure]; FuglemanClient: CEDAR PROGRAM IMPORTS Fugles: Fugleman = BEGIN TestError: ERROR; SimpleTest: PROCEDURE = BEGIN <> fm: Fugles.Handle = Fugles.NewFugleman[]; anotherFm: Fugles.Handle = Fugles.NewFugleman[]; x: INT _ 1; fm.Check[ ! Fugles.FugleFailure => ERROR TestError]; -- check the object, convert error IF fm=anotherFm THEN ERROR TestError; -- should get unique objects IF fm.SomeProc[1] = anotherFm.SomeProc[2] THEN x_2; END; SimpleTest[ ]; -- call the test procedure END. -- FuglemanClient <> CHANGE LOG Created by Mitchell, March 27, 1980 9:23 AM Produce exemplary template Changed by Horning: June 7, 1982 2:58 pm Cosmetic changes for conformance with current recommendations Changed by Horning: June 8, 1982 2:10 pm Insert CEDAR prefix Changed by YourName: DateTime DescriptionOfChange