TestSpinifex.mesa
Created by Serlet, April 17, 1985 5:45:22 pm PST
Last Edited by Serlet, April 17, 1985 6:19:35 pm PST
DIRECTORY
CD, CDIn, Rope, SXAccess;
TestSpinifex:
CEDAR
PROGRAM
IMPORTS CDIn, SXAccess
=
BEGIN
Check:
PROC [design:
CD.Design]
RETURNS [
BOOL] = {
RETURN[
TRUE]};
Test:
PROC = {
file: Rope.ROPE = "AlpsCells.dale";
design:
CD.Design ← CDIn.ReadDesign[file, Check];
appls:
CD.ApplicationList ← design^.actual.first.specific.contents;
[] ← SXAccess.Analyze[design, appls,
NIL,
NEW[
BOOL ←
TRUE]];
};
END.