!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, call_cached(new Bla, 'ok));

    assertException(r { call_cached(new Bla, 'sOK) });

    assertEqualsVerbose(15, call_cached(new Bla, 'yo, 10));

    assertEqualsVerbose('jaX, call_cached(new Bla, 'yo, 'X));

    assertException(r { call_cached(new Bla, 'yoyo) });

    assertException(r { call_cached(new Bla, 'yo, 5.0) });

    assertException(r { call_cached(Bla, 'ok) }); // non-static method

    assertException(r { call_cached(new Bla, 'testMe, 'test) });

    assertException(r { call_cached(DaStatic, 'ok) });

    assertEqualsVerbose('sJaOK, call_cached(DaStatic, 'sOK));

    assertEqualsVerbose(15, call_cached(DaStatic, 'yo, 10));

    assertEqualsVerbose('jaX, call_cached(DaStatic, 'yo, 'X));

    assertException(r { call_cached(DaStatic, 'yoyo) });

    assertException(r { call_cached(DaStatic, 'yo, 5.0) });

  }

}