From 140d6c8e7948710a764965075bfaa700efd09802 Mon Sep 17 00:00:00 2001
From: zwelch <zwelch@b42882b7-edfa-0310-969c-e2dbd0fdcd60>
Date: Wed, 27 May 2009 06:44:43 +0000
Subject: Move TCL script files -- Step 1 of 2: - Move
 src/target/{interface,target,board,test}/ into src/tcl/ - Remove existing
 rules in src/Makefile.am and src/target/Makefile.am. - Add Makefile.am
 handling of *.cfg and *.tcl files in top Makefile.am:   - Add dist-hook to
 include such files under src/tcl in the distribution.   - Add
 install-data-hook to install contents of '$(top_srcdir)/src/tcl/'.   - Add
 uninstall-hook to remove the installed script files. - Change paths to
 (un)install script files in '$(pkgdatadir)/scripts'.

git-svn-id: svn://svn.berlios.de/openocd/trunk@1918 b42882b7-edfa-0310-969c-e2dbd0fdcd60
---
 src/tcl/test/selftest.cfg | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/tcl/test/selftest.cfg

(limited to 'src/tcl/test/selftest.cfg')

diff --git a/src/tcl/test/selftest.cfg b/src/tcl/test/selftest.cfg
new file mode 100644
index 00000000..d1a00aed
--- /dev/null
+++ b/src/tcl/test/selftest.cfg
@@ -0,0 +1,17 @@
+
+add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"
+
+proc selftest {tmpfile address size} {
+
+   for {set i 0} {$i < $size } {set i [expr $i+4]} {
+       mww [expr $address+$i] $i
+   }
+
+   for {set i 0} {$i < 10 } {set i [expr $i+1]} {
+    puts "Test iteration $i"
+    dump_image $tmpfile $address $size
+	verify_image $tmpfile $address bin
+	load_image $tmpfile $address bin
+   }
+
+}
\ No newline at end of file
-- 
cgit v1.2.3