- Restore in amor.tcl

2007-02-23 14:32:56 +00:00
parent aff2758916
commit b3a2d26064
6 changed files with 33 additions and 14 deletions
--- a/test/nxscripttest.tcl
+++ b/test/nxscripttest.tcl
@@ -89,6 +89,17 @@ test nxscript-1.13 {Writing sicsdata } -body {
    testNoError "nxscript putsicsdata testsd data"
 } -result OK

+test nxscript-1.14 {Writing slabs } -body {
+    data clear
+    data putfloat 0 1.1
+    testNoError "nxscript putslab testslab [list 0] [list 1] data"
+    data putfloat 0 2.2
+    testNoError "nxscript putslab testslab [list 1] [list 1] data"
+    data putfloat 0 3.3
+    testNoError "nxscript putslab testslab [list 2] [list 1] data"
+} -result OK
+
+
 test nxscript-1.20 {Close file} -body {
    testOK "nxscript close"
 } -result OK