set ortestoid [lindex $ortestdata 0 1]
-proc ortest {args} {
- return [[$::conn send call {*}[jws $::ortestoid 0 {*}$args]] await_get]
-}
+set ortest [$conn remote_object $ortestoid]
+
+cmp_ok != [pid] [$ortest call pid] "pid is different on the other side"
-cmp_ok != [pid] [ortest pid] "pid is different on the other side"
+is [$ortest call counter] 0 "Counter at 0"
-is [ortest counter] 0 "Counter at 0"
+is [$ortest call increment] 1 "Incrememt to 1"
-is [ortest increment] 1 "Incrememt to 1"
+is [$ortest call counter] 1 "Counter at 1"
-is [ortest counter] 1 "Counter at 1"
+$ortest destroy
done_testing