1 files changed, 34 insertions, 0 deletions
diff --git a/examples/dbgtest.tcl b/examples/dbgtest.tcl
new file mode 100644
index 0000000..ef6b56f
--- /dev/null
+++ b/examples/dbgtest.tcl
@@ -0,0 +1,34 @@
+# An example script useful for testing the Jim debugger
+# Taken from http://www.nist.gov/msidlibrary/doc/libes93c.ps
+
+set b 1
+
+proc p4 {x} {
+    return [
+        expr 5+[expr 1+$x]]
+}
+
+set z [
+    expr 1+[expr 2+[p4 $b]]
+]
+
+proc p3 {} {
+    set m 0
+}
+
+proc p2 {} {
+    set c 4
+    p3
+    set d 5
+}
+
+proc p1 {} {
+    set a 2
+    p2
+    set a 3
+    set a 5
+}
+
+p1
+set k 7
+p1