| 1 | ////////////////////////////////////////////////////////////////////////////// |
|---|
| 2 | // FILE : test.tol |
|---|
| 3 | // PURPOSE: test of massive AIA |
|---|
| 4 | ////////////////////////////////////////////////////////////////////////////// |
|---|
| 5 | |
|---|
| 6 | Text email_ = "vdebuen@tol-project.org"; |
|---|
| 7 | Text link_ = ""; |
|---|
| 8 | Text summary_ = "Simulation of massive AIA stored in OIS"; |
|---|
| 9 | |
|---|
| 10 | Set Include("../common.tol"); |
|---|
| 11 | |
|---|
| 12 | //Write here the initial test TOL code if needed |
|---|
| 13 | Real numErr0 = Copy(NError); |
|---|
| 14 | Real FileDelete(oisPath); |
|---|
| 15 | |
|---|
| 16 | Real t0 = Copy(Time); |
|---|
| 17 | WriteLn("t0="+Time); |
|---|
| 18 | Real mem0 = MemoryStatus(0)["TotalPhys"]-MemoryStatus(0)["AvailPhys"]; |
|---|
| 19 | |
|---|
| 20 | Set simulation = { Set aux = Include("simulation.tol"); aux }; |
|---|
| 21 | Real t1 = Copy(Time); |
|---|
| 22 | WriteLn("t1="+Time); |
|---|
| 23 | Real mem1 = MemoryStatus(0)["TotalPhys"]-MemoryStatus(0)["AvailPhys"]; |
|---|
| 24 | |
|---|
| 25 | Real ois.ok.1 = Ois.Store(simulation,oisPath); |
|---|
| 26 | Real t2 = Copy(Time); |
|---|
| 27 | WriteLn("t2="+Time); |
|---|
| 28 | Real mem2 = MemoryStatus(0)["TotalPhys"]-MemoryStatus(0)["AvailPhys"]; |
|---|
| 29 | |
|---|
| 30 | //Extented information about test behaviour |
|---|
| 31 | Set partialResults_ = |
|---|
| 32 | [[ |
|---|
| 33 | numOfSeries, |
|---|
| 34 | numOfData, |
|---|
| 35 | Real totalData = numOfSeries*numOfData, |
|---|
| 36 | Real oisSize = FileBytes(oisPath), |
|---|
| 37 | Real randBuildMem = mem1-mem0, |
|---|
| 38 | Real oisCreateMem = mem2-mem1, |
|---|
| 39 | Real randBuildTime = t1-t0, |
|---|
| 40 | Real oisCreateTime = t2-t1, |
|---|
| 41 | ois.ok.1 |
|---|
| 42 | ]]; |
|---|
| 43 | Text PutRealFormat("%.15lg"); |
|---|
| 44 | WriteLn(""); |
|---|
| 45 | Set For(1,Card(partialResults_),Real(Real k) |
|---|
| 46 | { |
|---|
| 47 | WriteLn(Name(partialResults_[k])+"\t=\t"<<partialResults_[k]); |
|---|
| 48 | k |
|---|
| 49 | }); |
|---|
| 50 | WriteLn(""); |
|---|
| 51 | |
|---|
| 52 | //This is a messure of the success of the test |
|---|
| 53 | Real quality_ = And(numErr0 == NError,ois.ok.1); |
|---|
| 54 | |
|---|
| 55 | //Return the results |
|---|
| 56 | Set resultStr_ = @strTestStatus(summary_, link_, quality_, |
|---|
| 57 | "Partial results = "<<partialResults_, |
|---|
| 58 | "NO DBServerType", "NO DBServerHost", "NO DBAlias", |
|---|
| 59 | email_); |
|---|
| 60 | WriteLn(""<<resultStr_); |
|---|
| 61 | resultStr_ |
|---|
| 62 | /* */ |
|---|
