# -*- Tcl -*-
package require nx::test

nx::Test case plain-methods-0 {
  nx::Class create M1
  nx::Object create o {
    ? {o public method foo {} {return foo}} "::o: unable to dispatch method 'method'"
    :public object method f args {next}
  }
  ? {o mixin M1} "::o: unable to dispatch method 'mixin'"
  ? {o filter f} "::o: unable to dispatch method 'filter'"

  ? {lsort [o info object methods]} "f"
  ? {lsort [o info]} "valid submethods of ::o info: children class has info is lookup name object parent precedence slot vars"
}

package require nx::plain-object-method
nx::Test case plain-methods-1 {
  nx::Class create M1
  nx::Object create o {
    :public method foo {} {return foo}
    :public method f args {next}
    #:mixin M1
    #
    # public, protected, private
    # alias, forward
    #
  }
  ? {o mixin M1} ::M1
  ? {o info mixin classes} ::M1
  ? {o mixin ""} ""
  ? {o info mixin classes} ""

  ? {o filter f} f
  ? {o info filter methods} f
  ? {o filter ""} ""
  ? {o info filter methods} ""

  ? {lsort [o info object methods]} "f foo"
  ? {lsort [o info]} "valid submethods of ::o info: children class filter has info is lookup method methods mixin name object parent precedence slot vars"
}