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)); }