get rid of redundant tester-type

lib/tester.hoon

@@ -61,11 +61,7 @@
 :>  #  %per-test
 :>    data initialized on a per-test basis.
 ::
-++  init-test
-  |=  {cookie/@uvJ}
-  ~(. tester `(list tape)`~ cookie 10 0)
-::
-++  tester-type  _(init-test `@uvJ`0)
+++  init-test  |=({eny/@uvJ} %*(. tester eny eny, check-iterations 10))
 ::
 ++  tester
   |_  $:  error-lines=(list tape)                     :<  output messages

tests/new-hoon/ls.hoon

@@ -1,6 +1,6 @@
 /+  new-hoon, tester
 =,  ls:new-hoon
-|_  tester-type:tester
+|_  _tester:tester
 ++  test-head
   (expect-eq (head [1 ~]) 1)
 ::

tests/new-hoon/mp.hoon

@@ -2,7 +2,7 @@
 =,  dct:new-hoon
 =+  four=(from-list [[1 "one"] [2 "two"] [3 "three"] [4 "four"] ~])
 =+  three=(from-list [[1 "one"] [2 "two"] [3 "three"] ~])
-|_  tester-type:tester
+|_  _tester:tester
 ++  test-empty
   (expect-eq (empty four) %.n)
 ::

tests/new-hoon/myb.hoon

@@ -1,6 +1,6 @@
 /+  new-hoon, tester
 =,  myb:new-hoon
-|_  tester-type:tester
+|_  _tester:tester
 ++  test-from-list-null
   (expect-eq (from-list ~) ~)
 ::

tests/new-hoon/thr.hoon

@@ -2,7 +2,7 @@
 /+  new-hoon, tester
 =,  thr:new-hoon
 =/  data/(list (either @u tape))  [[%& 1] [%| "one"] [%& 2] [%| "two"] ~]
-|_  tester-type:tester
+|_  _tester:tester
 ++  test-apply
   %+  expect-eq
     %^  apply  `(either @u tape)`[%| "one"]

tests/zuse/crypto/keccak.hoon

@@ -72,7 +72,7 @@
       d79d.c266.f6a5.be6b.b0e4.a92e.ceeb.aeb1
   ==
 ::
-|_  tst=tester-type:tester
+|_  tst=_tester:tester
 ::
 ::  check a list of bytelength-answer pairs to see if
 ::  they match the output given by {hash} for the