+
+class TestSuiteApp : GuiApplication
+{
+ DataSource ds { driver = /*"SQLite" */"EDB" };
+ TestSuiteApp()
+ {
+ //File f { };
+ //f.OnSerialize(0);
+ db = database_open(ds, "TestSuite");
+ }
+ ~TestSuiteApp()
+ {
+ Array<OutputFile> files;
+ Array<TestRun> runs;
+ RowTests tests { };
+ RowRuns rRuns { };
+ RowOutputFiles rFiles { };
+ while(tests.Next())
+ {
+ Test t = (Test)tests.id;
+ runs = AccessMacros::allTestRuns(t);
+ for(run : runs)
+ {
+ if(!run.save)
+ {
+ if(t.reference == run)
+ t.reference = 0;
+ files = AccessMacros::allOutputFiles(run);
+ for(file : files)
+ {
+ rFiles.sysID=file;
+ rFiles.Delete();
+ }
+ rRuns.sysID=run;
+ rRuns.Delete();
+ }
+ }
+ }
+ delete tests;
+ delete rRuns;
+ delete rFiles;
+ delete db;
+ delete ds;
+ }
+
+ bool Init()
+ {
+ settingsContainer.Load();
+ ideConfig.compilers.read(settingsContainer);
+ delete settingsContainer;
+ return true;
+ }
+}