public void ImpliedOccursAndDataType()
{
IModel model = new CobolModel("Redefines", "PROFILE-CHAR REDEFINES PROFILE PIC X(1) OCCURS 250 INDEXED BY PROFILE-CHAR-IDX", "[ 106] Single character of a security profile.");
IImpliedModelParser modelParser = RedefinesParser.OccursAndDataImpliedParser();
Assert.That(modelParser.Matches(model), Is.True);
IModel parsed = modelParser.Parse(model);
IModel expected =
Build.Redefines("PROFILE-CHAR REDEFINES PROFILE", "[ 106] Single character of a security profile.")
.With(
Build.Occurs("OCCURS 250 INDEXED BY PROFILE-CHAR-IDX", "Implied")
.WithDataType("PIC X(1)", "Implied")
).Model();
AssertModelIsSame(parsed, expected, true);
}
public bool Matches(IModel model)
{
return(parentParser.Matches(model) &&
childParser.Matches(model));
}
