public void SingleLine03()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.SingleLine03);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(2));
AssertParsedUsingXml(parser, new HierarchyModel(PropertyModel.Factory("Property", "KEY-004", "[ 1] key of MSF004 FK:0")));
}
public void MultiLineLevel03()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.MultiLine03);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(2));
AssertParsedUsingXml(parser,
new HierarchyModel(PropertyModel.Factory("Property", "END-DATE", "[ 11] Ending date DATE\nDB")));
}
public static IModelParser CobolHierarchy()
{
return(new HierarchyParser(
new ClassParser(),
PropertyParser.HierarchyParser(2),
DataTypeParser.HierarchyParser(2),
RedefinesParser.HierarchyParser(2),
OccursParser.HierarchyParser(2)));
}
public void SingleLineLevel13()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.SingleLine13);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(7));
AssertParsedUsingXml(parser,
new HierarchyModel(PropertyModel.Factory("Property", "MSF062-CONTRACT-NO-RC", "[ 38] Contract Number"))
);
}
public void SingleLineLevel07()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.SingleLine07);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(4));
AssertParsedUsingXml(parser,
new HierarchyModel(PropertyModel.Factory("Property", "CONTROL-NUMBER",
"[ 30] No Identifying MIMS System Ctl Account")));
}
public void SingleLineLevel27()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.SingleLine27);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(14));
AssertParsedUsingXml(parser,
new HierarchyModel(PropertyModel.Factory("Property", "MSF062-DATA-2-062-BA", "[ 33] Reference data 2"))
);
}
public void SingleLineLevel15()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.SingleLine15);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(8));
AssertParsedUsingXml(parser,
new HierarchyModel(PropertyModel.Factory("Property", "MSF062-ACCOUNT-CODE-NA",
"[ 33] Account Code number ACCOUNT-CODE"))
);
}
public void MultiLineLevel09()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.MultiLine09);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(5));
AssertParsedUsingXml(parser,
new HierarchyModel(
PropertyModel.Factory("Property", "INT-DSTRCT",
"[ 30] InterDist Dist Code Ident. Target Dist MANDATORY VALUE\n(DSTRCT-CODE) ERROR\n(6534) ACTIVE")));
}
public void MultiLineLevel29()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.MultiLine29);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(15));
AssertParsedUsingXml(parser,
new HierarchyModel(PropertyModel.Factory("Property", "MSF062-BUDG-ACCT-CODE-BA",
"[ 33] Account Code number ACCOUNT-CODE"))
);
}
public void SingleLineLevel19()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.SingleLine19);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(10));
AssertParsedUsingXml(parser,
new HierarchyModel(PropertyModel.Factory("Property", "MSF062-TOP-PAR-PA-PB",
"[ 33] Parent Account Code"))
);
}
public void SingleLineLevel11()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.SingleLine11);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(6));
AssertParsedUsingXml(parser,
new HierarchyModel(
PropertyModel.Factory("Property", "MSF061-DATA-1-061-1A", "[ 5] Reference Data 1a")
)
);
}
public void MultiLineLevel05()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.MultiLine05);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(3));
AssertParsedUsingXml(parser,
new HierarchyModel(
PropertyModel.Factory("Property", "CONTROL-ID",
"[ 29] ID's Subledger,MIMS Sys & InterComp Ctl MANDATORY\nDB,KEY:0")
)
);
}
public void PropertyFollowedByDataType()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.Property.Property05DataType07);
IDataParser parser = CreateDataParser(reader, PropertyParser.HierarchyParser(3));
IModel expected = Build.Property("LINE-NO", "[ 19] Line No. of description DB,KEY:0")
.With(
Build.DataType("LINE-NO-9 PIC 9(4)", "[ 19] Line No. of description")
).Model();
AssertParsedUsingXml(parser, expected);
}
public void EnumDataTypeCases()
{
AssertDoesNotParse(ExampleStrings.EnumValue.AllCases(), () => PropertyParser.HierarchyParser(2));
}
public void ClassCases()
{
AssertDoesNotParse(ExampleStrings.Class.AllCases(), () => PropertyParser.HierarchyParser(2));
}
