scope bench_reflectiveCallWithInternedMethodName.

static long #what;

svoid bench_reflectiveCallWithInternedMethodName() {
  what = 0;
  
  class MyObj {
    void veryLongMethodNameToIllustrateThePoint() { ++what; }
  }
  
  embededd void benchCall(O o, S method) {
    benchFor10(-> call(o, method));
  }

  S methodName = "veryLongMethodNameToIllustrateThePoint";
  print("string literal");
  benchCall(new MyObj, methodName);
  print(what);
  
  print("constructed string");
  S methodName2 = firstToLower("VeryLongMethodNameToIllustrateThePoint");
  if (methodName2 != methodName && eq(methodName2, methodName)) print("  (yes they're different - but equal)");
  else fail("what!?");
  
  benchCall(new MyObj, methodName2);
  print(what);
  
  print("interned constructed string");
  if (methodName3 == methodName) print("  (yes it's the same as the literal)");
  else warn("This is not good - interned is not same as literal");
  
  S methodName3 = methodName2.intern();
  benchCall(new MyObj, methodName3);
  print(what);
}