public void NewCobol85TestsToFix()
{
int nbOfTests = 0;
string[] extensions = { "*.cbl", "*.pgm" };
string[] compilerExtensions = extensions.Concat(new[] { "*.cpy" }).ToArray();
foreach (string directory in GetCurrentAndSubDirectories(sampleRoot))
{
var dirname = Path.GetFileName(directory);
Console.WriteLine("Entering directory \"" + dirname + "\" [" + string.Join(", ", extensions) +
"]:");
var folderTester = new FolderTester(sampleRoot, resultRoot, directory, extensions, compilerExtensions);
folderTester.Test();
nbOfTests += folderTester.GetTestCount();
Console.Write("\n");
}
Console.Write("Number of tests: " + nbOfTests + "\n");
Assert.IsTrue(nbOfTests > 0, "No tests found");
//This test use TypeChecker which is specific to TypeCobol
//As specifications of TypeCobol are not final yet this test can't be used
// TestParser.Check_ParserIntegration();
}
public void CheckParserCobol85()
{
TestTokenSource.Check_CobolCharStream();
TestTokenSource.Check_CobolTokenSource();
TestTokenSource.Check_CobolTokenSource_WithStartToken();
// Test the recognition of potentially ambiguous CodeElements which begin with the same first Token
TestCodeElements.Check("AT");
TestCodeElements.Check("END");
TestCodeElements.Check("NOT");
TestCodeElements.Check("ON");
// TO DO -> fix new identifier parsing :
TestCodeElements.Check_DISPLAYCodeElements();
TestCodeElements.Check_EXITCodeElements();
TestCodeElements.Check_IDCodeElements();
TestCodeElements.Check_UDWCodeElements();
// TestCodeElements.Check_WHENCodeElements(); //TODO: these cannot be parsed alone anymore since today
TestCodeElements.Check_HeaderCodeElements();
TestCodeElements.Check_IdentificationCodeElements();
TestCodeElements.Check_ParagraphCodeElements();
//TODO TestCodeElements.Check_EntryCodeElements();// RefreshProgramClassDocumentSnapshot
TestParser.Check_BeforeAfterInsertion();
TestParser.Check_BeforeAfterInsertionBatched();
var errors = new System.Collections.Generic.List<Exception>();
int nbOfTests = 0;
foreach (string directory in Directory.GetDirectories(sampleRoot)) {
var dirname = Path.GetFileName(directory);
string[] extensions = {"*.cbl"};
if (dirname.Equals("Programs")) extensions = new[] {"*.pgm", "*.cbl", "*.cpy" };
Console.WriteLine("Entering directory \"" + dirname + "\" [" + string.Join(", ", extensions) + "]:");
var folderTester = new FolderTester(sampleRoot, resultRoot, directory, extensions);
try { folderTester.Test(); }
catch (Exception ex) { errors.Add(ex); }
nbOfTests += folderTester.GetTestCount();
Console.WriteLine();
}
Console.Write("Number of tests: " + nbOfTests + "\n");
Assert.IsTrue(nbOfTests > 0, "No tests found");
if (errors.Count > 0) {
var str = new System.Text.StringBuilder();
foreach(var ex in errors) str.Append(ex.Message);
throw new Exception(str.ToString());
}
//This test use TypeChecker which is specific to TypeCobol
//As specifications of TypeCobol are not final yet this test can't be used
// TestParser.Check_ParserIntegration();
}
public void CheckParserCobol85()
{
TestTokenSource.Check_CobolCharStream();
TestTokenSource.Check_CobolTokenSource();
TestTokenSource.Check_CobolTokenSource_WithStartToken();
// Test the recognition of potentially ambiguous CodeElements which begin with the same first Token
TestCodeElements.Check("AT");
TestCodeElements.Check("END");
TestCodeElements.Check("NOT");
TestCodeElements.Check("ON");
// TO DO -> fix new identifier parsing :
TestCodeElements.Check_DISPLAYCodeElements();
TestCodeElements.Check_EXITCodeElements();
TestCodeElements.Check_IDCodeElements();
TestCodeElements.Check_UDWCodeElements();
TestCodeElements.Check_WHENCodeElements();
TestCodeElements.Check_HeaderCodeElements();
TestCodeElements.Check_IdentificationCodeElements();
TestCodeElements.Check_ParagraphCodeElements();
TestCodeElements.Check_EntryCodeElements();
TestParser.Check_BeforeAfterInsertion();
TestParser.Check_BeforeAfterInsertionBatched();
var errors = new System.Collections.Generic.List<Exception>();
int nbOfTests = 0;
string[] extensions = { "*.cbl", "*.pgm" };
string[] compilerExtensions = extensions.Concat(new[] { "*.cpy" }).ToArray();
foreach (string directory in Directory.GetDirectories(sampleRoot)) {
var dirname = Path.GetFileName(directory);
Console.WriteLine("Entering directory \"" + dirname + "\" [" + string.Join(", ", extensions) + "]:");
var folderTester = new FolderTester(sampleRoot, resultRoot, directory, extensions, compilerExtensions);
try { folderTester.Test(); }
catch (Exception ex) { errors.Add(ex); }
nbOfTests += folderTester.GetTestCount();
Console.WriteLine();
}
Console.Write("Number of tests: " + nbOfTests + "\n");
Assert.IsTrue(nbOfTests > 0, "No tests found");
if (errors.Count > 0) {
var str = new System.Text.StringBuilder();
foreach(var ex in errors) str.Append(ex.Message);
throw new Exception(str.ToString());
}
}
public void NewTcblTestsToFix()
{
int nbOfTests = 0;
foreach (string directory in GetCurrentAndSubDirectories(sampleRoot))
{
var dirname = Path.GetFileName(directory);
string[] extensions = { "*.tcbl", "*.cpy" };
Console.WriteLine("Entering directory \"" + dirname + "\" [" + string.Join(", ", extensions) + "]:");
var folderTester = new FolderTester(sampleRoot, resultRoot, directory, extensions);
folderTester.Test();
nbOfTests += folderTester.GetTestCount();
Console.Write("\n");
}
Console.Write("Number of tests: " + nbOfTests + "\n");
Assert.IsTrue(nbOfTests > 0, "No tests found");
}
public void CheckParserTcblPrograms()
{
int nbOfTests = 0;
foreach (string directory in Directory.GetDirectories(sampleRoot))
{
var dirname = Path.GetFileName(directory);
string[] extensions = { "*.tcbl" };
if (dirname == "Programs") extensions = new[] { "*.tcbl", "*.cpy" };
Console.WriteLine("Entering directory \"" + dirname + "\" [" + string.Join(", ", extensions) + "]:");
var folderTester = new FolderTester(sampleRoot, resultRoot, directory, extensions);
folderTester.Test();
nbOfTests += folderTester.GetTestCount();
Console.Write("\n");
}
Console.Write("Number of tests: " + nbOfTests + "\n");
Assert.IsTrue(nbOfTests > 0, "No tests found");
}
