* first set of test scripts also suitable for U-Boot1

git-svn-id: https://svn.pengutronix.de/svn/ptxdist/trunks/ptxdist-trunk@8744 33e552b5-05e3-0310-8538-816dae2090ed

1 files changed, 32 insertions, 0 deletions

diff --git a/tests/setenv.kermit b/tests/setenv.kermit
new file mode 100755
index 000000000..eb02ccbab
--- /dev/null
+++ b/tests/setenv.kermit
@@ -0,0 +1,32 @@
+#!/usr/bin/kermit +
+
+#Read the library
+take \%1
+
+#Set up the line
+ptx_init \%2
+
+ptx_uboot_enter_shell
+
+ptx_test_start "Setting new environment"
+ptx_uboot_exec "printenv" 10
+
+open read \%3
+if failure {
+	writeln ERROR "FAILED! Could not open \%3."
+	exit 1
+}
+
+while true {
+	read \%l
+	if fail break
+	ptx_uboot_exec "\%l" 5
+}
+
+close read
+
+ptx_uboot_exec "printenv"
+#ptx_uboot_exec "saveenv"
+ptx_test_end
+
+ptx_exit