!7

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

p-exp {
  twice {
    assertEqualsVerbose('jaOK, callOpt_cached(new Bla, 'ok));
    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));
  }
}