1 (* Title: All tests on isac; observe outcommented
2 Author: Walther Neuper 101001
3 (c) copyright due to lincense terms.
5 $ cd /usr/local/isabisac/test/Tools/isac
6 $ /usr/local/isabisac/bin/isabelle jedit -l Isac Test_Isac.thy &
9 theory Test_Isac imports Isac
11 "ADDTESTS/test-depend/Build_Test"
13 "ADDTESTS/course/phst11/T1_Basics"
14 "ADDTESTS/course/phst11/T2_Rewriting"
15 "ADDTESTS/course/phst11/T3_MathEngine"
16 "ADDTESTS/file-depend/Build_Test"
17 "ADDTESTS/course/SignalProcess/Build_Inverse_Z_Transform"
18 "../../Pure/Isar/Test_Parsers"
19 (*"../../Pure/Isar/Pure/Isar/Struct_Deriv" update 2009-2-->2011*)
20 "../../Pure/Isar/Test_Parse_Term"
25 ("ProgLang/termC.sml")
26 ("ProgLang/calculate.sml")
27 ("ProgLang/rewrite.sml")
28 ("ProgLang/listC.sml")
29 ("ProgLang/scrtools.sml")
30 ("ProgLang/tools.sml")
32 ("Minisubpbl/000-comments.sml")
33 ("Minisubpbl/100-init-rootpbl.sml")
34 ("Minisubpbl/150-add-given.sml")
35 ("Minisubpbl/200-start-method.sml")
36 ("Minisubpbl/300-init-subpbl.sml")
37 ("Minisubpbl/400-start-meth-subpbl.sml")
38 ("Minisubpbl/490-nxt-Check_Postcond.sml")
39 ("Minisubpbl/500-met-sub-to-root.sml")
40 ("Minisubpbl/530-error-Check_Elementwise.sml")
41 ("Minisubpbl/600-postcond.sml")
43 ("Interpret/mstools.sml")
44 ("Interpret/ctree.sml")
45 ("Interpret/ptyps.sml")
46 ("Interpret/generate.sml")
47 ("Interpret/calchead.sml")
48 ("Interpret/appl.sml")
49 ("Interpret/rewtools.sml")
50 ("Interpret/script.sml")
51 ("Interpret/solve.sml")
52 ("Interpret/inform.sml")
53 ("Interpret/mathengine.sml")
56 ("xmlsrc/datatypes.sml")
57 ("xmlsrc/pbl-met-hierarchy.sml")
58 ("xmlsrc/thy-hierarchy.sml")
59 ("xmlsrc/interface-xml.sml")
61 ("Frontend/messages.sml")
62 ("Frontend/states.sml")
63 ("Frontend/interface.sml")
66 ("Knowledge/delete.sml")
67 ("Knowledge/descript.sml")
68 ("Knowledge/atools.sml")
69 ("Knowledge/simplify.sml")
70 ("Knowledge/poly.sml")
71 (*THIS WAITS UNTIL Isabelle2013: ("Knowledge/gcd_poly.sml") ("Knowledge/gcd_poly_winkler.sml")
72 IN THIS SEQUENCE: SEE Test_Some2.thy*)
73 ("Knowledge/rational.sml")
74 ("Knowledge/equation.sml")
75 ("Knowledge/root.sml")
76 ("Knowledge/lineq.sml")
77 ("Knowledge/rooteq.sml")
78 ("Knowledge/rateq.sml")
79 ("Knowledge/rootrateq.sml")
80 ("Knowledge/polyeq.sml")
81 ("Knowledge/calculus.sml")
82 ("Knowledge/trig.sml")
83 ("Knowledge/logexp.sml")
84 ("Knowledge/diff.sml")
85 ("Knowledge/integrate.sml")
86 ("Knowledge/eqsystem.sml")
87 ("Knowledge/test.sml")
88 ("Knowledge/partial_fractions.sml")
89 ("Knowledge/polyminus.sml")
90 ("Knowledge/vect.sml")
91 ("Knowledge/diffapp.sml")
92 ("Knowledge/biegelinie.sml")
93 ("Knowledge/algein.sml")
94 ("Knowledge/diophanteq.sml")
95 ("Knowledge/Inverse_Z_Transform/inverse_z_transform.sml")
96 ("Knowledge/isac.sml")
97 ("Knowledge/build_thydata.sml")
101 ML {*"%%%%%%%%%%%%%%%%% start ProgLang.thy %%%%%%%%%%%%%%%%%%%";*}
104 use "ProgLang/termC.sml"
105 use "ProgLang/calculate.sml"
106 use "ProgLang/rewrite.sml"
107 (*use "ProgLang/listC.sml" 2002*)
108 use "ProgLang/scrtools.sml"
109 use "ProgLang/tools.sml"
110 ML {*"%%%%%%%%%%%%%%%%% end ProgLang.thy %%%%%%%%%%%%%%%%%%%%%";*}
111 ML {*"%%%%%%%%%%%%%%%%% start Minisubpbl %%%%%%%%%%%%%%%%%%%%%";*}
112 use "Minisubpbl/000-comments.sml"
113 use "Minisubpbl/100-init-rootpbl.sml"
114 use "Minisubpbl/150-add-given.sml"
115 use "Minisubpbl/200-start-method.sml"
116 use "Minisubpbl/300-init-subpbl.sml"
117 use "Minisubpbl/400-start-meth-subpbl.sml"
118 use "Minisubpbl/490-nxt-Check_Postcond.sml"
119 use "Minisubpbl/500-met-sub-to-root.sml"
120 use "Minisubpbl/530-error-Check_Elementwise.sml"
121 use "Minisubpbl/600-postcond.sml"
122 ML {*"%%%%%%%%%%%%%%%%% end Minisubpbl.thy %%%%%%%%%%%%%%%%%%%%%%%";*}
123 ML {*"%%%%%%%%%%%%%%%%% start Interpret.thy %%%%%%%%%%%%%%%%%%";*}
124 use "Interpret/mstools.sml"
125 use "Interpret/ctree.sml" (*!...!see(25)*)
126 use "Interpret/ptyps.sml"
127 ML {* (*check_unsynchronized_ref (); ==== trick on error: CUT AND PASTE THIS LINE =========*) *}
128 (*TRICK DOESNÄT WORK: get_pbt not found: ["IsacKnowledge","Diff","Theorems","diff_sin_chain"]*)
129 use "Interpret/generate.sml"
130 (*... SAME ERROR HERE ON ISABELLE2012 AS IN ISAC ON ISABELLE2011*)
131 use "Interpret/calchead.sml" (*part.*)
132 use "Interpret/appl.sml" (*!complete WEGEN INTERMED TESTCODE*)
133 use "Interpret/rewtools.sml" (*TODO/part.WN120406*)
134 (*val it = "----------- fun thy_containing_rls ---------------------": string
136 thy_containing_rls changed 1 ...CONCERNED WITH thehier
138 !!!!!!!!!!!!!!!!!!!!!!!! THIS TEST RANDOMLY RAISES AN ERROR OR NOT !!!!!!!!!!!!!!!!!!!!!!!!
140 use "Interpret/script.sml" (*!TODO/part.*)
141 use "Interpret/solve.sml" (*part.*)
142 use "Interpret/inform.sml" (*part.*)
143 (*val it = "--------- embed fun check_error_patterns ------------------------": string
145 val it = "~~~~~ from inform return val:": string
146 check_error_patterns broken ...CONCERNED WITH thehier
148 use "Interpret/mathengine.sml" (*!part.*)
149 ML {*"%%%%%%%%%%%%%%%%% end Interpret.thy %%%%%%%%%%%%%%%%%%%%";*}
150 ML {*"%%%%%%%%%%%%%%%%% start xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%";*}
151 use "xmlsrc/mathml.sml" (*part.*)
152 use "xmlsrc/datatypes.sml" (*TODO/part.*)
153 use "xmlsrc/pbl-met-hierarchy.sml" (*TODO after 2009-2/part.*)
154 (*use "xmlsrc/thy-hierarchy.sml" TODO after 2009-2/part | Isabelle2012-->13 !thehier! *)
155 (*val it = "----------- ### thes2file ... Exception- Match raised -----------": string
157 val it = "~~~~~ fun thes2file, args:": string
158 val p = "../../tmp/": path
160 exception Bind raised (line 359 of "~~/test/Tools/isac/xmlsrc/thy-hierarchy.sml")
161 ...CONCERNED WITH thehier
163 use "xmlsrc/interface-xml.sml" (*TODO after 2009-2*)
164 ML {*"%%%%%%%%%%%%%%%%% end xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%%%";*}
165 ML {*"%%%%%%%%%%%%%%%%% start Frontend.thy %%%%%%%%%%%%%%%%%%%";*}
166 use "Frontend/messages.sml"
167 use "Frontend/states.sml"
168 use "Frontend/interface.sml"
169 (*... SAME ERROR HERE ON ISABELLE2012 AS IN ISAC ON ISABELLE2011*)
170 use "print_exn_G.sml"
171 ML {*"%%%%%%%%%%%%%%%%% end Frontend.thy %%%%%%%%%%%%%%%%%%%%%";*}
172 ML {*"%%%%%%%%%%%%%%%%% start Knowledge.thy %%%%%%%%%%%%%%%%%%";*}
173 use "Knowledge/delete.sml"
174 use "Knowledge/descript.sml"
175 use "Knowledge/atools.sml"
176 use "Knowledge/simplify.sml"
177 use "Knowledge/poly.sml"
178 (*THIS WAITS UNTIL Isabelle2013 IN THIS SEQUENCE (SEE Test_Some2.thy):0
179 use "Knowledge/gcd_poly.sml" (*type error 'nth' etc*)
180 use "Knowledge/gcd_poly_winkler.sml"*)
181 (*use "Knowledge/rational.sml" WN120317.TODO postponed to joint work with dmeindl *)
182 use "Knowledge/equation.sml"
183 use "Knowledge/root.sml"
184 use "Knowledge/lineq.sml"
185 (*use "Knowledge/rooteq.sml" some complicated equations not recovered from 2002 *)
186 use "Knowledge/rateq.sml" (*some complicated equations not recovered from 2002 *)
187 use "Knowledge/rootrat.sml"
188 use "Knowledge/rootrateq.sml"(*ome complicated equations not recovered from 2002 *)
189 use "Knowledge/partial_fractions.sml"
190 use "Knowledge/polyeq.sml"
191 (*use "Knowledge/rlang.sml" much to clean up, not urgent due to similar tests *)
192 use "Knowledge/calculus.sml"
193 use "Knowledge/trig.sml"
194 (*use "Knowledge/logexp.sml" not included as stuff for presentation of authoring*)
195 use "Knowledge/diff.sml"
196 use "Knowledge/integrate.sml"
197 use "Knowledge/eqsystem.sml"
198 use "Knowledge/test.sml"
199 use "Knowledge/polyminus.sml"
200 use "Knowledge/vect.sml"
201 use "Knowledge/diffapp.sml" (* postponed to dev. specification | TP-prog. *)
202 use "Knowledge/biegelinie.sml"
203 use "Knowledge/algein.sml"
204 use "Knowledge/diophanteq.sml"
205 use "Knowledge/Inverse_Z_Transform/inverse_z_transform.sml"
206 use "Knowledge/isac.sml"
207 use "Knowledge/build_thydata.sml"
208 ML {*"%%%%%%%%%%%%%%%%% end Knowledge.thy %%%%%%%%%%%%%%%%%%%%";*}
209 ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
210 ML {*"%%%%%%%%%%%%%%%%% all tests successful %%%%%%%%%%%%%%%%%";*}
211 ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
214 (*========== inhibit exn 110628 ================================================
215 ============ inhibit exn 110628 ==============================================*)
217 (*-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.
218 -.-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*)