BEA Objects | Gazelle [not logged in]

extends BWithResources from B228115;
S typeToDelete = "Past HTTP Request";

Cl<BEA> run() {
  ret beaDeleteType("Past HTTP Request");
}

MultiSet<S> run10000() { ret asMultiSet(allToString(run(10000))); }
Cl<BEA> run1000() { ret run(1000); }

Cl<BEA> run(int max) {
  L<BEA> l = takeFirst(max, beaList(typeToDelete));
  pnl("Deleting", l);
  print("Count before:", beaCount(typeToDelete));
  time "Delete" {
    deleteConcepts(l);
  }
  print("Count after:", beaCount(typeToDelete));
  ret l;
}