Index: tests/methods.test =================================================================== diff -u -rb2ab5886fc3278e549bb2772dfce921fbd06a9e9 -r8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf --- tests/methods.test (.../methods.test) (revision b2ab5886fc3278e549bb2772dfce921fbd06a9e9) +++ tests/methods.test (.../methods.test) (revision 8046b1da6bc0689f73d4dbdc3f8d1e03fd23acaf) @@ -65,7 +65,7 @@ C public property s0 C protected property s1 ? {c1 s0 0} 0 -? {::nsf::object::dispatch c1 s1 1} 1 +? {::nsf::dispatch c1 s1 1} 1 C class property s3 ? {C s3 3} 3 @@ -76,31 +76,31 @@ ? {c2 plain_method} "plain_method" ? {c2 public_method} "public_method" ? {catch {c2 protected_method}} 1 - ? {::nsf::object::dispatch c2 protected_method} "protected_method" + ? {::nsf::dispatch c2 protected_method} "protected_method" } # class level forwards Test case class-level-forwards { ? {c2 plain_forward} "plain_method" ? {c2 public_forward} "public_method" ? {catch {c2 protected_forward}} 1 - ? {::nsf::object::dispatch c2 protected_forward} "protected_method" + ? {::nsf::dispatch c2 protected_forward} "protected_method" } # class level setter Test case class-level-setter { ? {c2 plain_setter 1} "1" ? {c2 public_setter 2} "2" ? {catch {c2 protected_setter 3}} 1 - ? {::nsf::object::dispatch c2 protected_setter 4} "4" + ? {::nsf::dispatch c2 protected_setter 4} "4" } # class level alias ....TODO: wanted behavior of [current method]? not "plain_alias"? Test case class-level-alias { ? {c2 plain_alias} "plain_method" ? {c2 public_alias} "public_method" ? {catch {c2 protected_alias}} 1 - ? {::nsf::object::dispatch c2 protected_alias} "protected_method" + ? {::nsf::dispatch c2 protected_alias} "protected_method" } ########### @@ -110,31 +110,31 @@ ? {C plain_object_method} "plain_object_method" ? {C public_object_method} "public_object_method" ? {catch {C protected_object_method}} 1 - ? {::nsf::object::dispatch C protected_object_method} "protected_object_method" + ? {::nsf::dispatch C protected_object_method} "protected_object_method" } # class level forwards Test case class-object-level-forwards { ? {C plain_object_forward} "plain_object_method" ? {C public_object_forward} "public_object_method" ? {catch {C protected_object_forward}} 1 - ? {::nsf::object::dispatch C protected_object_forward} "protected_object_method" + ? {::nsf::dispatch C protected_object_forward} "protected_object_method" } # class level setter Test case class-object-level-setter { ? {C plain_object_setter 1} "1" ? {C public_object_setter 2} "2" ? {catch {C protected_object_setter 3}} 1 - ? {::nsf::object::dispatch C protected_object_setter 4} "4" + ? {::nsf::dispatch C protected_object_setter 4} "4" } # class level alias ....TODO: wanted behavior of [current method]? not "plain_alias"? Test case class-object-level-alias { ? {C plain_object_alias} "plain_object_method" ? {C public_object_alias} "public_object_method" ? {catch {C protected_object_alias}} 1 - ? {::nsf::object::dispatch C protected_object_alias} "protected_object_method" + ? {::nsf::dispatch C protected_object_alias} "protected_object_method" } ########### @@ -144,31 +144,31 @@ ? {c1 plain_object_method} "plain_object_method" ? {c1 public_object_method} "public_object_method" ? {catch {c1 protected_object_method}} 1 - ? {::nsf::object::dispatch c1 protected_object_method} "protected_object_method" + ? {::nsf::dispatch c1 protected_object_method} "protected_object_method" } # object level forwards Test case object-level-forwards { ? {c1 plain_object_forward} "plain_object_method" ? {c1 public_object_forward} "public_object_method" ? {catch {c1 protected_object_forward}} 1 - ? {::nsf::object::dispatch c1 protected_object_forward} "protected_object_method" + ? {::nsf::dispatch c1 protected_object_forward} "protected_object_method" } # object level setter Test case object-level-setter { ? {c1 plain_object_setter 1} "1" ? {c1 public_object_setter 2} "2" ? {catch {c1 protected_object_setter 3}} 1 - ? {::nsf::object::dispatch c1 protected_object_setter 4} "4" + ? {::nsf::dispatch c1 protected_object_setter 4} "4" } # object level alias ....TODO: wanted behavior of [current method]? not "plain_alias"? Test case object-level-alias { ? {c1 plain_object_alias} "plain_object_method" ? {c1 public_object_alias} "public_object_method" ? {catch {c1 protected_object_alias}} 1 - ? {::nsf::object::dispatch c1 protected_object_alias} "protected_object_method" + ? {::nsf::dispatch c1 protected_object_alias} "protected_object_method" ? {lsort [c1 info methods]} \ "plain_object_alias plain_object_forward plain_object_method plain_object_setter public_object_alias public_object_forward public_object_method public_object_setter"