author | Walther Neuper <neuper@ist.tugraz.at> |
Sun, 18 Sep 2011 15:21:46 +0200 | |
branch | decompose-isar |
changeset 42272 | dcc5d2601cf7 |
parent 42255 | 6201b34bd323 |
child 42278 | 753c1a5fe3aa |
permissions | -rw-r--r-- |
neuper@41982 | 1 |
(* Title: run tests on a particular test file |
neuper@41943 | 2 |
Author: Walther Neuper 101001 |
neuper@41943 | 3 |
(c) copyright due to lincense terms. |
neuper@42248 | 4 |
12345678901234567890123456789012345678901234567890123456789012345678901234567890 |
neuper@42248 | 5 |
10 20 30 40 50 60 70 80 |
neuper@41943 | 6 |
*) |
neuper@41943 | 7 |
|
neuper@41943 | 8 |
theory Test_Some imports Isac begin |
neuper@41943 | 9 |
|
neuper@42272 | 10 |
use"../../../test/Tools/isac/Knowledge/polyeq.sml" |
neuper@42272 | 11 |
|
neuper@42272 | 12 |
ML {* |
neuper@42272 | 13 |
(*GOON: polyeq first ML, test 1 above, and the all below piecewiese*) |
neuper@42272 | 14 |
*} |
neuper@42272 | 15 |
ML {* |
neuper@42272 | 16 |
val t = @{term "(2::real)*r*2.14"}; |
neuper@42272 | 17 |
term2str t; |
neuper@42272 | 18 |
*} |
neuper@42272 | 19 |
ML {* |
neuper@42272 | 20 |
|
neuper@42272 | 21 |
*} |
neuper@42272 | 22 |
ML {* |
neuper@42272 | 23 |
|
neuper@42272 | 24 |
*} |
neuper@42272 | 25 |
ML {* |
neuper@42272 | 26 |
|
neuper@42272 | 27 |
*} |
neuper@42142 | 28 |
|
akargl@42188 | 29 |
ML {* |
neuper@42248 | 30 |
val c = []; |
neuper@42248 | 31 |
print_depth 5; |
neuper@42248 | 32 |
*} |
neuper@42255 | 33 |
ML {* |
neuper@42248 | 34 |
|
neuper@42248 | 35 |
*} |
neuper@42272 | 36 |
ML {* |
neuper@42272 | 37 |
|
neuper@42272 | 38 |
*} |
neuper@42272 | 39 |
ML {* |
neuper@42272 | 40 |
|
neuper@42272 | 41 |
*} |
neuper@42272 | 42 |
ML {* |
neuper@42272 | 43 |
|
neuper@42272 | 44 |
*} |
neuper@42272 | 45 |
ML {* |
neuper@42272 | 46 |
|
neuper@42272 | 47 |
*} |
neuper@42248 | 48 |
ML{* |
neuper@42248 | 49 |
*} |
neuper@42248 | 50 |
ML{* |
neuper@42248 | 51 |
*} |
neuper@42255 | 52 |
ML {* (*=================*) |
neuper@42129 | 53 |
*} |
neuper@42129 | 54 |
ML{* |
neuper@42129 | 55 |
"~~~~~ fun , args:"; val () = (); |
t@42115 | 56 |
*} |
neuper@41943 | 57 |
end |
neuper@41943 | 58 |
|
neuper@41943 | 59 |
|
neuper@42248 | 60 |
(*============ inhibit exn WN110906 ============================================== |
neuper@42248 | 61 |
============ inhibit exn WN110906 ==============================================*) |
neuper@41943 | 62 |
|
neuper@41943 | 63 |
|
neuper@41943 | 64 |
(*-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-. |
neuper@41943 | 65 |
-.-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*) |
neuper@42141 | 66 |