src/Tools/isac/Test_Isac.thy
author Walther Neuper <neuper@ist.tugraz.at>
Tue, 28 Sep 2010 07:28:10 +0200
branchisac-update-Isa09-2
changeset 38025 67a110289e4e
parent 38024 20231cdf39e7
child 38030 95d956108461
permissions -rw-r--r--
repaired fun uminus_to_string, fun rewrite_terms_

rewrite now adjusts to 2 changes from 2002 to 2009-2
(1) Pattern.match requires _Trueprop $_ pat
(2) rewrite returns assumptions without _Trueprop $_ asm
neuper@38024
     1
(* Title Run_Tests on isac
neuper@38024
     2
$ cd /usr/local/isabisac/test/Tools/isac
neuper@38024
     3
$ /usr/local/isabisac/bin/isabelle emacs -l Isac Test_Isac.thy &
neuper@38024
     4
neuper@38024
     5
RESTART emacs after having created a new Isac heap.
neuper@38024
     6
was sml/RTEST-root.sml in isac-2002
neuper@38024
     7
neuper@38024
     8
12345678901234567890123456789012345678901234567890123456789012345678901234567890
neuper@38024
     9
        10        20        30        40        50        60        70        80
neuper@38024
    10
*)
neuper@38024
    11
neuper@38024
    12
theory Test_Isac imports Isac begin
neuper@38024
    13
neuper@38024
    14
ML{* writeln "**** run the tests **************************************" *};
neuper@38024
    15
ML {* Toplevel.debug := true; *}
neuper@38024
    16
(* 
neuper@38024
    17
cd "systest";
neuper@38024
    18
(*+ check kbtest/diffapp.sml for additional items in met-model*)
neuper@38024
    19
       	use"root-equ.sml"; 
neuper@38024
    20
       	use"script.sml";   
neuper@38024
    21
	(* use"script_if.sml"; WN03 missing: is_rootequation_in*)
neuper@38024
    22
       	use"scriptnew.sml";     
neuper@38024
    23
       	use"subp-rooteq.sml";   
neuper@38024
    24
	use"tacis.sml";
neuper@38024
    25
	use"interface-xml.sml";
neuper@38024
    26
	(* use"testdaten.sml"; no update after dropping 'errorBound'*)    
neuper@38024
    27
 	cd "../..";
neuper@38024
    28
*)
neuper@38024
    29
ML{* writeln "**** run systests complete ******************************" *};
neuper@38024
    30
(*
neuper@38024
    31
cd"smltest/Scripts";
neuper@38024
    32
*)
neuper@38025
    33
use"../../../test/Tools/isac/ProgLang/termC.sml"; (*part.*)
neuper@38025
    34
use"../../../test/Tools/isac/ProgLang/calculate.sml"; (*part.*)
neuper@38025
    35
use"../../../test/Tools/isac/ProgLang/rewrite.sml"; (*part.*)
neuper@38024
    36
(*
neuper@38024
    37
	use"listg.sml";
neuper@38024
    38
 	use"scrtools.sml";
neuper@38024
    39
 	use"tools.sml";
neuper@38024
    40
 	cd "../.."; 
neuper@38024
    41
cd"smltest/ME";
neuper@38024
    42
        use"ctree.sml";
neuper@38024
    43
*)
neuper@38025
    44
use "../../../test/Tools/isac/Interpret/calchead.sml" (*part.*)
neuper@38024
    45
(*
neuper@38024
    46
       	use"calchead.sml"; 
neuper@38024
    47
 	use"rewtools.sml";
neuper@38024
    48
        use"solve.sml"; (*detailrls can notyet ackn. 'Rewrite_Set "cancel"' *);
neuper@38024
    49
        use"inform.sml";
neuper@38024
    50
	use"me.sml";
neuper@38024
    51
       	use"ptyps.sml"; 
neuper@38024
    52
 	cd "../.."; 
neuper@38024
    53
cd"smltest/xmlsrc";
neuper@38024
    54
 	use"datatypes.sml";        
neuper@38024
    55
       	use"pbl-met-hierarchy.sml"; 
neuper@38024
    56
       	use"thy-hierarchy.sml"; 
neuper@38024
    57
 	cd "../.."; 
neuper@38024
    58
cd"smltest/FE-interface";
neuper@38024
    59
       	use"interface.sml";
neuper@38024
    60
 	cd "../..";
neuper@38024
    61
*)
neuper@38024
    62
ML{* writeln "**** run tests on math-engine complete ******************" *};
neuper@38024
    63
(*
neuper@38024
    64
cd"smltest/IsacKnowledge";
neuper@38024
    65
        use"atools.sml";
neuper@38024
    66
 	use"complex.sml";
neuper@38024
    67
 	use"diff.sml";
neuper@38024
    68
 	use"diffapp.sml";
neuper@38024
    69
(**)
neuper@38024
    70
use "Knowledge/integrate.sml"; (*part.*)
neuper@38024
    71
neuper@38024
    72
	use"equation.sml";
neuper@38024
    73
	(*use"inssort.sml"; problems with recdef in Isabelle2002*)
neuper@38024
    74
 	use"logexp.sml";
neuper@38024
    75
*)
neuper@38025
    76
use"../../../test/Tools/isac/Knowledge/poly.sml"; (*part.*)
neuper@38024
    77
(*
neuper@38024
    78
 	use"polyminus.sml";
neuper@38024
    79
 	use"polyeq.sml";  (*TODO 31.b, n1., 44.a, 1.a~, 1.b (all'expanded')WN
neuper@38024
    80
 			     ? also check others without check 'diff.behav.'*);
neuper@38024
    81
 	use"rateq.sml";
neuper@38024
    82
 	use"rational.sml" (*TODO add_fractions_p throws overflow-exn      WN*);
neuper@38024
    83
 	use"rlang.sml";    (*WN.12.6.03: for TODOs search 'writeln', 
neuper@38024
    84
 			     for simplification search MG 
neuper@38024
    85
 		 erls:       98a(1) 104a(1) 104a(2) 68a *);
neuper@38024
    86
 	use"root.sml";
neuper@38024
    87
 	use"rooteq.sml";
neuper@38024
    88
 	use"rootrateq.sml";
neuper@38024
    89
 	use"termorder.sml";
neuper@38024
    90
 	use"trig.sml";
neuper@38024
    91
 	use"vect.sml";  
neuper@38024
    92
	use"wn.sml";
neuper@38024
    93
	use"eqsystem.sml";
neuper@38024
    94
	use"biegelinie.sml";
neuper@38024
    95
	use"algein.sml";
neuper@38024
    96
 	cd "../..";
neuper@38024
    97
*)
neuper@38024
    98
(* TODO
neuper@38024
    99
use_thy "../../Tools/isac/ADDTESTS/file-depend/Build_Test"
neuper@38024
   100
neuper@38024
   101
*** Could not find theory file "Foo_Language.thy" in "1language", "/usr/local/isabisac/test/Tools/isac", ".", "$ISABELLE_HOME/src/HOL/Library"
neuper@38024
   102
*** Theory loader: the error(s) above occurred while examining theory "Foo_Language"
neuper@38024
   103
neuper@38024
   104
use_thy "../../Tools/isac/ADDTESTS/trace-rewrite/Build_Test"
neuper@38024
   105
*)
neuper@38025
   106
use_thy "../../../test/Pure/Isar/Test_Parse_Term"
neuper@38025
   107
use_thy "../../../test/Pure/Isar/Test_Parsers"
neuper@38024
   108
neuper@38024
   109
ML{* writeln "**** run tests on IsacKnowledge complete ****************" *};
neuper@38024
   110
(*
neuper@38025
   111
val path = "/home/neuper/proto3/testsml2xml/"; 
neuper@38024
   112
pbl_hierarchy2file (path ^ "pbl/");
neuper@38024
   113
pbls2file          (path ^ "pbl/");
neuper@38024
   114
met_hierarchy2file (path ^ "met/");
neuper@38024
   115
mets2file          (path ^ "met/");
neuper@38024
   116
thy_hierarchy2file (path ^ "thy/");
neuper@38024
   117
thes2file          (path ^ "thy/");
neuper@38024
   118
cd"sml";
neuper@38024
   119
*)
neuper@38024
   120
ML{* writeln "**** tested creation of xmldata *************************" *};
neuper@38024
   121
neuper@38024
   122
ML{*states:=[];
neuper@38024
   123
     writeln "=========================================================";
neuper@38024
   124
     
neuper@38024
   125
     writeln "**** run systests complete ***************** re-organize!";
neuper@38024
   126
     writeln "**** run tests on math-engine complete ******************";
neuper@38024
   127
     writeln "**** run tests on IsacKnowledge complete ****************";
neuper@38024
   128
     writeln "**** build isac kernel + run tests complete *************";
neuper@38024
   129
     writeln "**** tested creation of xmldata *************************";
neuper@38024
   130
*}
neuper@38024
   131
neuper@38024
   132
end