push sig kind of txn snark for test methods

Author: glyh

src/lib/transaction_snark/transaction_snark.ml

@@ -4632,8 +4632,7 @@ module Make_str (A : Wire_types.Concrete) = struct
     end
 
     let deploy_snapp ?(no_auth = false) ?permissions ~constraint_constants
-        (spec : Deploy_snapp_spec.t) =
-      let signature_kind = Mina_signature_kind.Testnet in
+        ~signature_kind (spec : Deploy_snapp_spec.t) =
       let `VK vk, `Prover _trivial_prover = create_trivial_snapp () in
       let%map.Async.Deferred vk = vk in
       (* only allow timing on a single new snapp account
@@ -4754,9 +4753,8 @@ module Make_str (A : Wire_types.Concrete) = struct
     end
 
     let single_account_update ?zkapp_prover_and_vk ~constraint_constants
-        (spec : Single_account_update_spec.t) : Zkapp_command.t Async.Deferred.t
-        =
-      let signature_kind = Mina_signature_kind.Testnet in
+        ~signature_kind (spec : Single_account_update_spec.t) :
+        Zkapp_command.t Async.Deferred.t =
       let `VK vk, `Prover prover =
         match zkapp_prover_and_vk with
         | Some (prover, vk) ->

src/lib/transaction_snark/transaction_snark_intf.ml

@@ -294,6 +294,7 @@ module type Full = sig
          ?no_auth:bool
       -> ?permissions:Permissions.t
       -> constraint_constants:Genesis_constants.Constraint_constants.t
+      -> signature_kind:Mina_signature_kind.t
       -> Deploy_snapp_spec.t
       -> Zkapp_command.t Async.Deferred.t
 
@@ -325,6 +326,7 @@ module type Full = sig
              With_hash.t
              Async.Deferred.t
       -> constraint_constants:Genesis_constants.Constraint_constants.t
+      -> signature_kind:Mina_signature_kind.t
       -> Single_account_update_spec.t
       -> Zkapp_command.t Async.Deferred.t