!7

set flag _MethodCache_debug.

sclass Bla {
  S ok() { ret 'jaOK; }
  int yo(int x) { ret x+5; }
  S yo(S x) { ret 'ja + x; }
  S testMe(int x) { ret 'int; }
}

sclass DaStatic {
  sS sOK() { ret 'sJaOK; }
  static int yo(int x) { ret x+5; }
  sS yo(S x) { ret 'ja + x; }
}

p-exp {
  twice {
    assertEqualsVerbose('jaOK, callOpt_cached(new Bla, 'ok));
    assertNull(callOpt_cached(new Bla, 'sOK));
    assertEqualsVerbose(15, callOpt_cached(new Bla, 'yo, 10));
    assertEqualsVerbose('jaX, callOpt_cached(new Bla, 'yo, 'X));
    assertNull(callOpt_cached(new Bla, 'yoyo));
    assertNull(callOpt_cached(new Bla, 'yo, 5.0));
    assertNull(callOpt_cached(Bla, 'ok)); // non-static method
    assertNull(callOpt_cached(new Bla, 'testMe, 'test));
    
    assertNull(callOpt_cached(DaStatic, 'ok));
    assertEqualsVerbose('sJaOK, callOpt_cached(DaStatic, 'sOK));
    assertEqualsVerbose(15, callOpt_cached(DaStatic, 'yo, 10));
    assertEqualsVerbose('jaX, callOpt_cached(DaStatic, 'yo, 'X));
    assertNull(callOpt_cached(DaStatic, 'yoyo));
    assertNull(callOpt_cached(DaStatic, 'yo, 5.0));
  }
}