New testing files

2 files changed, 34 insertions, 0 deletions

diff --git a/etc/isa/message-test.ML b/etc/isa/message-test.ML
new file mode 100644
index 00000000..4afd7120
--- /dev/null
+++ b/etc/isa/message-test.ML
@@ -0,0 +1,16 @@
+(* Testing different kinds of markup in Isabelle output *)
+
+(* ordinary output between prompts *)
+print "ordinary";
+print "ordinary\n";   (* final newline no difference *)
+
+(* eager annotation: displayed as soon as it's seen *)
+writeln "eager to be seen!";
+
+print "more ordinary\n";
+
+Goal "P-->P";
+
+(* C-c RET to here should show eager annotation, as well as
+   updating goals buffer properly. *)
+error "something went wrong";  
diff --git a/etc/isa/xsym.ML b/etc/isa/xsym.ML
new file mode 100644
index 00000000..797bad69
--- /dev/null
+++ b/etc/isa/xsym.ML
@@ -0,0 +1,18 @@
+(* a few token characters to exercise X-Symbol *)
+
+Goal "A \\<and> B  \\<longrightarrow> B \\<and> A";
+by (rtac impI 1);
+by (etac conjE 1);
+by (rtac conjI 1);
+by (assume_tac 1);
+by (assume_tac 1);
+qed "and_comms";
+
+3;
+
+4;
+
+print "hello";
+
+writeln "hello";
+error "hello";