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@38043
|
4 |
$ /usr/local/isabisac/bin/isabelle emacs Test_Isac.thy &
|
neuper@38024
|
5 |
|
neuper@38024
|
6 |
RESTART emacs after having created a new Isac heap.
|
neuper@38024
|
7 |
was sml/RTEST-root.sml in isac-2002
|
neuper@38024
|
8 |
|
neuper@38024
|
9 |
12345678901234567890123456789012345678901234567890123456789012345678901234567890
|
neuper@38024
|
10 |
10 20 30 40 50 60 70 80
|
neuper@38024
|
11 |
*)
|
neuper@38024
|
12 |
|
neuper@38036
|
13 |
theory Test_Isac imports "Knowledge/Isac" begin
|
neuper@38024
|
14 |
|
neuper@38024
|
15 |
ML{* writeln "**** run the tests **************************************" *};
|
neuper@38024
|
16 |
ML {* Toplevel.debug := true; *}
|
neuper@38024
|
17 |
(*
|
neuper@38024
|
18 |
cd "systest";
|
neuper@38024
|
19 |
(*+ check kbtest/diffapp.sml for additional items in met-model*)
|
neuper@38024
|
20 |
use"root-equ.sml";
|
neuper@38024
|
21 |
use"script.sml";
|
neuper@38024
|
22 |
(* use"script_if.sml"; WN03 missing: is_rootequation_in*)
|
neuper@38024
|
23 |
use"scriptnew.sml";
|
neuper@38024
|
24 |
use"subp-rooteq.sml";
|
neuper@38024
|
25 |
use"tacis.sml";
|
neuper@38024
|
26 |
use"interface-xml.sml";
|
neuper@38024
|
27 |
(* use"testdaten.sml"; no update after dropping 'errorBound'*)
|
neuper@38024
|
28 |
cd "../..";
|
neuper@38024
|
29 |
*)
|
neuper@38024
|
30 |
ML{* writeln "**** run systests complete ******************************" *};
|
neuper@38024
|
31 |
(*
|
neuper@38024
|
32 |
cd"smltest/Scripts";
|
neuper@38024
|
33 |
*)
|
neuper@38025
|
34 |
use"../../../test/Tools/isac/ProgLang/termC.sml"; (*part.*)
|
neuper@38025
|
35 |
use"../../../test/Tools/isac/ProgLang/calculate.sml"; (*part.*)
|
neuper@38032
|
36 |
|
neuper@38039
|
37 |
ML {*print_depth 5;*}
|
neuper@38036
|
38 |
use"../../../test/Tools/isac/ProgLang/rewrite.sml"; (*GOON*)
|
neuper@38024
|
39 |
(*
|
neuper@38024
|
40 |
use"listg.sml";
|
neuper@38024
|
41 |
use"scrtools.sml";
|
neuper@38024
|
42 |
use"tools.sml";
|
neuper@38024
|
43 |
cd "../..";
|
neuper@38024
|
44 |
cd"smltest/ME";
|
neuper@38024
|
45 |
*)
|
neuper@38036
|
46 |
use "../../../test/Tools/isac/Interpret/mstools.sml"; (*empty*)
|
neuper@38036
|
47 |
(* use"ctree.sml";
|
neuper@38036
|
48 |
*)
|
neuper@38036
|
49 |
use "../../../test/Tools/isac/Interpret/ptyps.sml"; (*TODO*)
|
neuper@38025
|
50 |
use "../../../test/Tools/isac/Interpret/calchead.sml" (*part.*)
|
neuper@38024
|
51 |
(*
|
neuper@38024
|
52 |
use"calchead.sml";
|
neuper@38024
|
53 |
use"rewtools.sml";
|
neuper@38024
|
54 |
use"solve.sml"; (*detailrls can notyet ackn. 'Rewrite_Set "cancel"' *);
|
neuper@38024
|
55 |
use"inform.sml";
|
neuper@38024
|
56 |
use"me.sml";
|
neuper@38024
|
57 |
use"ptyps.sml";
|
neuper@38024
|
58 |
cd "../..";
|
neuper@38024
|
59 |
cd"smltest/xmlsrc";
|
neuper@38024
|
60 |
use"datatypes.sml";
|
neuper@38024
|
61 |
use"pbl-met-hierarchy.sml";
|
neuper@38024
|
62 |
use"thy-hierarchy.sml";
|
neuper@38024
|
63 |
cd "../..";
|
neuper@38024
|
64 |
cd"smltest/FE-interface";
|
neuper@38024
|
65 |
use"interface.sml";
|
neuper@38024
|
66 |
cd "../..";
|
neuper@38024
|
67 |
*)
|
neuper@38024
|
68 |
ML{* writeln "**** run tests on math-engine complete ******************" *};
|
neuper@38024
|
69 |
(*
|
neuper@38036
|
70 |
cd"smltest/IsacKnowledge"; ---below the order as in theoryy Isac---
|
neuper@38024
|
71 |
use"atools.sml";
|
neuper@38036
|
72 |
use"termorder.sml";
|
neuper@38036
|
73 |
*)
|
neuper@38036
|
74 |
|
neuper@38036
|
75 |
ML {*
|
neuper@38036
|
76 |
val t = str2term "(x^^^2 * x) is_multUnordered";
|
neuper@38036
|
77 |
val pat = parse_patt (theory "Isac") "?p is_multUnordered";
|
neuper@38036
|
78 |
*}
|
neuper@38036
|
79 |
ML {*
|
neuper@38036
|
80 |
val subst = Pattern.match thy (pat, t) (Vartab.empty, Vartab.empty);
|
neuper@38036
|
81 |
Envir.subst_term subst (*pres?*);
|
neuper@38036
|
82 |
*}
|
neuper@38036
|
83 |
use"../../../test/Tools/isac/Knowledge/poly.sml"; (*part.*)
|
neuper@38044
|
84 |
ML {*
|
neuper@38044
|
85 |
the o (parse thy);
|
neuper@38044
|
86 |
((parse thy)) "9 = 3 ^^^ 2";
|
neuper@38044
|
87 |
(the o (parse thy)) "9 = 3 ^^^ 2";
|
neuper@38044
|
88 |
(term_of o the o (parse thy)) "9 = 3 ^^^ 2";
|
neuper@38044
|
89 |
Trueprop $ (term_of o the o (parse thy)) "9 = 3 ^^^ 2";
|
neuper@38044
|
90 |
cterm_of (theory "Isac") (Trueprop $ (term_of o the o (parse thy)) "9 = 3 ^^^ 2");
|
neuper@38044
|
91 |
(make_thm o (cterm_of (theory "Isac")))
|
neuper@38044
|
92 |
(Trueprop $ (term_of o the o (parse thy)) "9 = 3 ^^^ 2");
|
neuper@38041
|
93 |
*}
|
neuper@38041
|
94 |
|
neuper@38044
|
95 |
ML {*
|
neuper@38044
|
96 |
str2term "1 < (2 :: real)";
|
neuper@38041
|
97 |
*}
|
neuper@38041
|
98 |
|
neuper@38041
|
99 |
use"../../../test/Tools/isac/Knowledge/rational.sml"
|
neuper@38044
|
100 |
|
neuper@38044
|
101 |
ML {*111*}
|
neuper@38044
|
102 |
|
neuper@38036
|
103 |
(*
|
neuper@38036
|
104 |
use"equation.sml";
|
neuper@38036
|
105 |
use"root.sml";
|
neuper@38036
|
106 |
(*use"inssort.sml"; problems with recdef in Isabelle2002*)
|
neuper@38036
|
107 |
use"rooteq.sml";
|
neuper@38036
|
108 |
use"rateq.sml";
|
neuper@38036
|
109 |
use"rootrateq.sml";
|
neuper@38036
|
110 |
|
neuper@38036
|
111 |
use"polyeq.sml"; (*TODO 31.b, n1., 44.a, 1.a~, 1.b (all'expanded')WN
|
neuper@38036
|
112 |
? also check others without check 'diff.behav.'*);
|
neuper@38036
|
113 |
use"rlang.sml"; (*WN.12.6.03: for TODOs search 'writeln',
|
neuper@38036
|
114 |
for simplification search MG
|
neuper@38036
|
115 |
erls: 98a(1) 104a(1) 104a(2) 68a *);
|
neuper@38036
|
116 |
use"wn.sml";
|
neuper@38036
|
117 |
use"trig.sml";
|
neuper@38036
|
118 |
use"logexp.sml";
|
neuper@38024
|
119 |
use"diff.sml";
|
neuper@38030
|
120 |
*)
|
neuper@38030
|
121 |
use "../../../test/Tools/isac/Knowledge/integrate.sml"; (*part.*)
|
neuper@38030
|
122 |
(*
|
neuper@38036
|
123 |
use"eqsystem.sml";
|
neuper@38037
|
124 |
*)
|
neuper@38037
|
125 |
use "../../../test/Tools/isac/Knowledge/polyminus.sml"; (*part.*)
|
neuper@38037
|
126 |
(*
|
neuper@38024
|
127 |
use"vect.sml";
|
neuper@38036
|
128 |
use"diffapp.sml";
|
neuper@38024
|
129 |
use"biegelinie.sml";
|
neuper@38024
|
130 |
use"algein.sml";
|
neuper@38024
|
131 |
cd "../..";
|
neuper@38024
|
132 |
*)
|
neuper@38024
|
133 |
(* TODO
|
neuper@38024
|
134 |
use_thy "../../Tools/isac/ADDTESTS/file-depend/Build_Test"
|
neuper@38024
|
135 |
|
neuper@38024
|
136 |
*** Could not find theory file "Foo_Language.thy" in "1language", "/usr/local/isabisac/test/Tools/isac", ".", "$ISABELLE_HOME/src/HOL/Library"
|
neuper@38024
|
137 |
*** Theory loader: the error(s) above occurred while examining theory "Foo_Language"
|
neuper@38024
|
138 |
|
neuper@38024
|
139 |
use_thy "../../Tools/isac/ADDTESTS/trace-rewrite/Build_Test"
|
neuper@38024
|
140 |
*)
|
neuper@38025
|
141 |
use_thy "../../../test/Pure/Isar/Test_Parse_Term"
|
neuper@38025
|
142 |
use_thy "../../../test/Pure/Isar/Test_Parsers"
|
neuper@38024
|
143 |
|
neuper@38024
|
144 |
ML{* writeln "**** run tests on IsacKnowledge complete ****************" *};
|
neuper@38024
|
145 |
(*
|
neuper@38025
|
146 |
val path = "/home/neuper/proto3/testsml2xml/";
|
neuper@38024
|
147 |
pbl_hierarchy2file (path ^ "pbl/");
|
neuper@38024
|
148 |
pbls2file (path ^ "pbl/");
|
neuper@38024
|
149 |
met_hierarchy2file (path ^ "met/");
|
neuper@38024
|
150 |
mets2file (path ^ "met/");
|
neuper@38024
|
151 |
thy_hierarchy2file (path ^ "thy/");
|
neuper@38024
|
152 |
thes2file (path ^ "thy/");
|
neuper@38024
|
153 |
cd"sml";
|
neuper@38024
|
154 |
*)
|
neuper@38024
|
155 |
ML{* writeln "**** tested creation of xmldata *************************" *};
|
neuper@38024
|
156 |
|
neuper@38024
|
157 |
ML{*states:=[];
|
neuper@38024
|
158 |
writeln "=========================================================";
|
neuper@38024
|
159 |
|
neuper@38024
|
160 |
writeln "**** run systests complete ***************** re-organize!";
|
neuper@38024
|
161 |
writeln "**** run tests on math-engine complete ******************";
|
neuper@38024
|
162 |
writeln "**** run tests on IsacKnowledge complete ****************";
|
neuper@38024
|
163 |
writeln "**** build isac kernel + run tests complete *************";
|
neuper@38024
|
164 |
writeln "**** tested creation of xmldata *************************";
|
neuper@38024
|
165 |
*}
|
neuper@38024
|
166 |
|
neuper@38024
|
167 |
end
|