libs/iovm/tests/run.io

   1 //Message useIoShuffle
   2 //Collector debugOn
   3
   4 test := method(TestSuite clone setPath(launchPath) run)
   5
   6 time := Date clone cpuSecondsToRun(r := test)
   7 writeln("time: ", time, " seconds")
   8 System exit(r)
   9
  10 /*
  11 allocsPerMark
  12 marksPerSweep
  13 sweepsPerGeneration
  14 maxAllocatedBytes (millions)
  15 time to run
  16 */
  17
  18 writeln("mpa    as      mb      time    mbt     gc")
  19
  20 lastTimeUsed := 0
  21
  22 //aaa := method(1.1 + 2.2)
  23 //test := method(10000 repeat(aaa))
  24
  25 list(1.01, 1.05, 1.1, 1.2, 1.5, 1.7, 2, 4) foreach(as,
  26 list( 0.01, .1, 1, 2, 4, 16) foreach(mpa,
  27
  28         Collector setMarksPerAlloc(mpa)
  29         Collector setAllocatedStep(as)
  30
  31         time := Date clone cpuSecondsToRun(test)
  32         mb := (Collector maxAllocatedBytes/1000000) asString(0,2)
  33
  34         writeln(Collector marksPerAlloc asString(0,2), "\t",
  35                 Collector allocatedStep asString(0,2), "\t",
  36                 mb, "\t",
  37                 time asString(0,2) , "\t",
  38                 (mb asNumber * time  ) asString(0,2), "\t",
  39                 (100*(Collector timeUsed - lastTimeUsed)/time) asString(2, 1), "%")
  40
  41         lastTimeUsed = Collector timeUsed
  42
  43         Collector collect
  44         Collector resetMaxAllocatedBytes
  45
  46 )
  47 "" println
  48 )
  49
  50 /*
  51 writeln("mpa    mps     spg     mb      time    mbt")
  52
  53 list(16, 64, 128) foreach(spg,
  54 list(1, 10, 100) foreach(mpa,
  55 list(100, 10000) foreach(mps,
  56
  57         Collector setMarksPerAlloc(mpa)
  58         Collector setMarksPerSweep(mps)
  59         Collector setSweepsPerGeneration(spg)
  60
  61         time := Date clone cpuSecondsToRun(r := TestSuite clone setPath(launchPath) run)
  62         mb := (Collector maxAllocatedBytes/1000000) asString(0,1)
  63
  64         writeln(Collector marksPerAlloc asString(0,1), "\t", Collector marksPerSweep, "\t", Collector sweepsPerGeneration, "\t", mb, "\t", time asString(0,1) , "\t", (mb asNumber * time) asString(0,1) )
  65
  66         30 repeat(Collector collect)
  67         Collector resetMaxAllocatedBytes
  68
  69 )
  70 "" println
  71 )
  72 "" println
  73 )
  74
  75 System exit(r)
  76 */