renaming quickcheck_tester to quickcheck_batch_tester; tuned
authorbulwahn
Mon Jul 18 10:34:21 2011 +0200 (2011-07-18)
changeset 4388205d5696f177f
parent 43881 cabe74eab19a
child 43883 aacbe67793c3
renaming quickcheck_tester to quickcheck_batch_tester; tuned
src/HOL/Quickcheck_Exhaustive.thy
src/Tools/quickcheck.ML
     1.1 --- a/src/HOL/Quickcheck_Exhaustive.thy	Mon Jul 18 10:34:21 2011 +0200
     1.2 +++ b/src/HOL/Quickcheck_Exhaustive.thy	Mon Jul 18 10:34:21 2011 +0200
     1.3 @@ -452,7 +452,7 @@
     1.4  
     1.5  setup {* Exhaustive_Generators.setup *}
     1.6  
     1.7 -declare [[quickcheck_tester = exhaustive]]
     1.8 +declare [[quickcheck_batch_tester = exhaustive]]
     1.9  
    1.10  hide_fact orelse_def catch_match_def
    1.11  no_notation orelse (infixr "orelse" 55)
     2.1 --- a/src/Tools/quickcheck.ML	Mon Jul 18 10:34:21 2011 +0200
     2.2 +++ b/src/Tools/quickcheck.ML	Mon Jul 18 10:34:21 2011 +0200
     2.3 @@ -13,7 +13,7 @@
     2.4    val setup: theory -> theory
     2.5    (* configuration *)
     2.6    val auto: bool Unsynchronized.ref
     2.7 -  val tester : string Config.T
     2.8 +  val batch_tester : string Config.T
     2.9    val size : int Config.T
    2.10    val iterations : int Config.T
    2.11    val no_assms : bool Config.T
    2.12 @@ -161,7 +161,7 @@
    2.13    if expect1 = expect2 then expect1 else No_Expectation
    2.14  
    2.15  (* quickcheck configuration -- default parameters, test generators *)
    2.16 -val tester = Attrib.setup_config_string @{binding quickcheck_tester} (K "")
    2.17 +val batch_tester = Attrib.setup_config_string @{binding quickcheck_batch_tester} (K "")
    2.18  val size = Attrib.setup_config_int @{binding quickcheck_size} (K 10)
    2.19  val iterations = Attrib.setup_config_int @{binding quickcheck_iterations} (K 100)
    2.20  val no_assms = Attrib.setup_config_bool @{binding quickcheck_no_assms} (K false)
    2.21 @@ -244,9 +244,9 @@
    2.22  
    2.23  fun gen_mk_tester lookup ctxt v =
    2.24    let
    2.25 -    val name = Config.get ctxt tester
    2.26 +    val name = Config.get ctxt batch_tester
    2.27      val tester = case lookup ctxt name
    2.28 -      of NONE => error ("No such quickcheck tester: " ^ name)
    2.29 +      of NONE => error ("No such quickcheck batch-tester: " ^ name)
    2.30        | SOME tester => tester ctxt;
    2.31    in
    2.32      if Config.get ctxt quiet then
    2.33 @@ -259,10 +259,7 @@
    2.34          | SOME tester => SOME tester
    2.35        end
    2.36    end
    2.37 -(*
    2.38 -val mk_tester =
    2.39 -  gen_mk_tester (fn ctxt => AList.lookup (op =) ((fst o fst o fst o Data.get o Context.Proof) ctxt))
    2.40 -*)
    2.41 +
    2.42  val mk_batch_tester =
    2.43    gen_mk_tester (fn ctxt => AList.lookup (op =) ((fst o snd o fst o Data.get o Context.Proof) ctxt))
    2.44  val mk_batch_validator =