LST.-List Array

<< Click to Display Table of Contents >>

Navigation:  3. Script Language > Arrays and Data-Structures > LST. - List Arrays >

LST.-List Array

LST. - Testscript

Previous Top Next

MiniRobotLanguage (MRL)

 

LST.-Testing-Script

You can test the LST.-Commands

 

 

Intention

 

Here you can see many calls to LST.-Commands.

 

'================================================================================

' Test Script for LST Commands

'================================================================================

 

'-----------------------------------------------------------

$$MSG=(1) Test LST.New with default type

LST.New|$$LST

JIZ.$$LST|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(2) Test LST.New with String type

LST.New|$$LST|s

JIZ.$$LST|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(3) Test LST.New with Integer type

LST.New|$$LST|i

JIZ.$$LST|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(4) Test LST.New with Float type

LST.New|$$LST|f

JIZ.$$LST|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(5) Test LST.Validate with valid handle

LST.New|$$LST

LST.Validate|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(6) Test LST.Validate with invalid handle

LST.New|$$LST

LST.End|$$LST

LST.Validate|$$LST|$$RES

JIV.$$RES!0|Lab_failed

'-----------------------------------------------------------

$$MSG=(7) Test LST.Clear

LST.New|$$LST

LST.Add|$$LST|Hello

LST.Clear|$$LST

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(8) Test LST.Count

LST.New|$$LST

LST.Add|$$LST|Hello

LST.Add|$$LST|World

LST.Count|$$LST|$$RES

JIV.$$RES!2|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(9) Test LST.Add with String type

LST.New|$$LST|s

LST.Add|$$LST|Hello

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(10) Test LST.Add with Integer type

LST.New|$$LST|i

LST.Add|$$LST|123

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(11) Test LST.Add with Float type

LST.New|$$LST|f

LST.Add|$$LST|3.14

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(12) Test LST.Ins with String type

LST.New|$$LST|s

LST.Ins|$$LST|Hello

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(13) Test LST.Ins with Integer type

LST.New|$$LST|i

LST.Ins|$$LST|123

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(14) Test LST.Ins with Float type

LST.New|$$LST|f

LST.Ins|$$LST|3.14

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(15) Test LST.First

LST.New|$$LST

LST.Add|$$LST|Hello

LST.First|$$LST|$$RES

JIZ.$$RES|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(16) Test LST.Last

LST.New|$$LST

LST.Add|$$LST|Hello

LST.Last|$$LST|$$RES

JIZ.$$RES|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(17) Test LST.Next

LST.New|$$LST

LST.Add|$$LST|Hello

LST.Add|$$LST|World

LST.First|$$LST|$$NOD

LST.Next|$$NOD|$$RES

JIZ.$$RES|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(18) Test LST.Prev

LST.New|$$LST

LST.Add|$$LST|Hello

LST.Add|$$LST|World

LST.Last|$$LST|$$NOD

LST.Prev|$$NOD|$$RES

JIZ.$$RES|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(19) Test LST.Get

LST.New|$$LST

LST.Add|$$LST|Hello

LST.First|$$LST|$$NOD

JIZ.$$NOD|Lab_failed

'-----------------------------------------------------------

LST.Get|$$LST|$$NOD|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(20) Test LST.Set

LST.New|$$LST

LST.Add|$$LST|Hello

LST.First|$$LST|$$NOD

LST.Set|$$LST|$$NOD|World

LST.Get|$$LST|$$NOD|$$RES

JIS.$$RES!World|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(21) Test LST.InsPrev

LST.New|$$LST

LST.Add|$$LST|World

LST.First|$$LST|$$NOD

LST.InsPrev|$$LST|$$NOD|Hello

LST.First|$$LST|$$NOD

LST.Get|$$LST|$$NOD|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(22) Test LST.InsNext

LST.New|$$LST

LST.Add|$$LST|Hello

LST.First|$$LST|$$NOD

LST.InsNext|$$LST|$$NOD|World

LST.Next|$$LST|$$NOD|$$RES

LST.Get|$$LST|$$RES|$$VAL

JIS.$$VAL!World|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(23) Test LST.DelPrev

LST.New|$$LST

LST.Add|$$LST|Hello

LST.Add|$$LST|World

LST.Last|$$LST|$$NOD

LST.DelPrev|$$LST|$$NOD

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(24) Test LST.DelNext

LST.New|$$LST

LST.Add|$$LST|Hello

LST.Add|$$LST|World

LST.First|$$LST|$$NOD

LST.DelNext|$$LST|$$NOD

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(25) Test LST.StkPush

LST.New|$$LST

LST.StkPush|$$LST|Hello

LST.Count|$$LST|$$RES

JIV.$$RES!1|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(26) Test LST.StkPeek

LST.New|$$LST

LST.StkPush|$$LST|Hello

LST.StkPeek|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(27) Test LST.StkPop

LST.New|$$LST

LST.StkPush|$$LST|Hello

LST.StkPop|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(28) Test LST.End

LST.New|$$LST

LST.End|$$LST

LST.Validate|$$LST|$$RES

JIV.$$RES!0|Lab_failed

'-----------------------------------------------------------

$$MSG=(29) Test LST.EndAll

LST.New|$$LST

LST.New|$$LSA

LST.EndAll

LST.Validate|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.Validate|$$LSA|$$RES

JIV.$$RES!0|Lab_failed

'-----------------------------------------------------------

$$MSG=(30) Test LST.GetType

LST.New|$$LST|s

LST.GetType|$$LST|$$RES

' 1 corresponds to String type

JIV.$$RES!1|Lab_failed  

LST.End|$$LST

 

LST.New|$$LST|i

LST.GetType|$$LST|$$RES

' 2 corresponds to Integer type

JIV.$$RES!2|Lab_failed  

LST.End|$$LST

 

LST.New|$$LST|f

LST.GetType|$$LST|$$RES

' 3 corresponds to Float type

JIV.$$RES!3|Lab_failed  

LST.End|$$LST

'-----------------------------------------------------------

' Test Scripts for Stack, Queue, and Deque Operations

'-----------------------------------------------------------

$$MSG=(31) Test LST.StkPush with String type

LST.New|$$LST|s

LST.StkPush|$$LST|Hello

LST.StkPeek|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(32) Test LST.StkPush with Integer type

LST.New|$$LST|i

LST.StkPush|$$LST|123

LST.StkPeek|$$LST|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(33) Test LST.StkPush with Float type

LST.New|$$LST|f

LST.StkPush|$$LST|3.14

LST.StkPeek|$$LST|$$RES

JIV.$$RES!3.14|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(34) Test LST.StkPeek with multiple pushes

LST.New|$$LST

LST.StkPush|$$LST|First

LST.StkPush|$$LST|Second

LST.StkPeek|$$LST|$$RES

JIS.$$RES!Second|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(35) Test LST.StkPop with single value

LST.New|$$LST

LST.StkPush|$$LST|Hello

LST.StkPop|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(36) Test LST.StkPop with multiple values

LST.New|$$LST

LST.StkPush|$$LST|First

LST.StkPush|$$LST|Second

LST.StkPop|$$LST|$$RES

JIS.$$RES!Second|Lab_failed

LST.StkPop|$$LST|$$RES

JIS.$$RES!First|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(37) Test LST.QuePush with String type

LST.New|$$LST|s

LST.QuePush|$$LST|Hello

LST.QuePeek|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(38) Test LST.QuePush with Integer type

LST.New|$$LST|i

LST.QuePush|$$LST|123

LST.QuePeek|$$LST|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(39) Test LST.QuePush with Float type

LST.New|$$LST|f

LST.QuePush|$$LST|3.14

LST.QuePeek|$$LST|$$RES

JIV.$$RES!3.14|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(40) Test LST.QuePeek with multiple values

LST.New|$$LST

LST.QuePush|$$LST|First

LST.QuePush|$$LST|Second

LST.QuePeek|$$LST|$$RES

JIS.$$RES!First|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(41) Test LST.QuePop with single value

LST.New|$$LST

LST.QuePush|$$LST|Hello

LST.QuePop|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(42) Test LST.QuePop with multiple values

LST.New|$$LST

LST.QuePush|$$LST|First

LST.QuePush|$$LST|Second

LST.QuePop|$$LST|$$RES

JIS.$$RES!First|Lab_failed

LST.QuePop|$$LST|$$RES

JIS.$$RES!Second|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(43) Test LST.PushFirst with String type

LST.New|$$LST|s

LST.PushFirst|$$LST|Hello

LST.PeekFirst|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(44) Test LST.PushFirst with Integer type

LST.New|$$LST|i

LST.PushFirst|$$LST|123

LST.PeekFirst|$$LST|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(45) Test LST.PushFirst with Float type

LST.New|$$LST|f

LST.PushFirst|$$LST|3.14

LST.PeekFirst|$$LST|$$RES

JIV.$$RES!3.14|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(46) Test LST.PushLast with String type

LST.New|$$LST|s

LST.PushLast|$$LST|Hello

LST.PeekLast|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(47) Test LST.PushLast with Integer type

LST.New|$$LST|i

LST.PushLast|$$LST|123

LST.PeekLast|$$LST|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(48) Test LST.PushLast with Float type

LST.New|$$LST|f

LST.PushLast|$$LST|3.14

LST.PeekLast|$$LST|$$RES

JIV.$$RES!3.14|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(49) Test LST.PeekFirst with multiple values

LST.New|$$LST

LST.PushFirst|$$LST|First

LST.PushLast|$$LST|Last

LST.PeekFirst|$$LST|$$RES

JIS.$$RES!First|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(50) Test LST.PeekLast with multiple values

LST.New|$$LST

LST.PushFirst|$$LST|First

LST.PushLast|$$LST|Last

LST.PeekLast|$$LST|$$RES

JIS.$$RES!Last|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(51) Test LST.PopFirst with single value

LST.New|$$LST

LST.PushFirst|$$LST|Hello

LST.PopFirst|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(52) Test LST.PopFirst with multiple values

LST.New|$$LST

LST.PushFirst|$$LST|First

LST.PushLast|$$LST|Last

LST.PopFirst|$$LST|$$RES

JIS.$$RES!First|Lab_failed

LST.PopFirst|$$LST|$$RES

JIS.$$RES!Last|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(53) Test LST.PopLast with single value

LST.New|$$LST

LST.PushLast|$$LST|Hello

LST.PopLast|$$LST|$$RES

JIS.$$RES!Hello|Lab_failed

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(54) Test LST.PopLast with multiple values

LST.New|$$LST

LST.PushFirst|$$LST|First

LST.PushLast|$$LST|Last

LST.PopLast|$$LST|$$RES

JIS.$$RES!Last|Lab_failed

LST.PopLast|$$LST|$$RES

JIS.$$RES!First|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(55) Test LST.PushFirst and LST.PushLast together

LST.New|$$LST

LST.PushFirst|$$LST|First

LST.PushLast|$$LST|Last

LST.PeekFirst|$$LST|$$REA

LST.PeekLast|$$LST|$$REB

JIS.$$REA!First|Lab_failed

JIS.$$REB!Last|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(56) Test LST.PopFirst and LST.PopLast together

LST.New|$$LST

LST.PushFirst|$$LST|First

LST.PushLast|$$LST|Last

LST.PopFirst|$$LST|$$REA

LST.PopLast|$$LST|$$REB

JIS.$$REA!First|Lab_failed

JIS.$$REB!Last|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(57) Test LST.StkPush and LST.QuePush together

LST.New|$$LST

LST.StkPush|$$LST|Stack

LST.QuePush|$$LST|Queue

LST.StkPeek|$$LST|$$REA

LST.QuePeek|$$LST|$$REB

JIS.$$REB!Stack|Lab_failed

JIS.$$REA!Queue|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(58) Test LST.PopFirst on empty list

LST.New|$$LST|i

LST.PopFirst|$$LST|$$RES

' Should return null or empty

JNZ.$$RES|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(59) Test LST.PopLast on empty list

LST.New|$$LST

LST.PopLast|$$LST|$$RES

' Should return null or empty

JIS.$$RES|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(60) Test LST.StkPop on empty list

LST.New|$$LST

LST.StkPop|$$LST|$$RES

' Should return null or empty

JIS.$$RES|Lab_failed  

LST.End|$$LST

'-----------------------------------------------------------

'-----------------------------------------------------------

$$MSG=(61) Test LST.Clone with String type

LST.New|$$LST|s

LST.Add|$$LST|Hello

LST.Clone|$$LST|$$LSA

LST.Validate|$$LSA|$$RES

JIV.$$RES!1|Lab_failed

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(62) Test LST.Store and LST.Restore with String type

LST.New|$$LST|s

LST.Add|$$LST|Hello

LST.Store|$$LST|$$STR

LST.New|$$LSA|s

LST.Restore|$$LSA|$$STR

LST.Get|$$LSA|$$NOD|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(63) Test LST.FileStore and LST.FileRestore with String type

$$PAT=?exeloc\lst_store.txt

LST.New|$$LST|s

LST.Add|$$LST|Hello

LST.FileStore|$$LST|$$PAT

LST.New|$$LSA|s

LST.FileRestore|$$LSA|$$PAT

LST.Get|$$LSA|$$NOD|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(64) Test LST.BuildStr with multiple strings

LST.New|$$LST|s

LST.Add|$$LST|Hello

LST.Add|$$LST|World

LST.BuildStr|$$LST|$$STR

JIS.$$STR!HelloWorld|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(65) Test LST.TextLoad and LST.TextSave

LST.New|$$LST|s

LST.Add|$$LST|Hello

LST.TextSave|$$LST|$$PAT

LST.New|$$LSA|s

LST.TextLoad|$$LSA|$$PAT

LST.Get|$$LSA|$$NOD|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(66) Test LST.TextGet and LST.TextSet

LST.New|$$LST|s

LST.Add|$$LST|Hello

LST.TextGet|$$LST|$$STR

LST.New|$$LSA|s

LST.TextSet|$$LSA|$$STR

LST.Get|$$LSA|$$NOD|$$RES

JIS.$$RES!Hello|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(67) Test LST.GetFiles

LST.New|$$LST|s

LST.GetFiles|$$LST|C:\temp|*.txt

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(68) Test LST.GetPaths

LST.New|$$LST|s

LST.GetPaths|$$LST|C:\temp|*.txt

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(69) Test LST.Clone with Integer type

LST.New|$$LST|i

LST.gty|$$LST|$$TYP

LST.Add|$$LST|123

LST.Clone|$$LST|$$LSA

LST.Validate|$$LSA|$$RES

JIV.$$RES!1|Lab_failed

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(70) Test LST.Store and LST.Restore with Integer type

LST.New|$$LST|i

LST.Add|$$LST|123

LST.Store|$$LST|$$STR

LST.New|$$LSA|i

LST.Restore|$$LSA|$$STR

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(71) Test LST.FileStore and LST.FileRestore with Integer type

$$PAT=?exeloc\lst_store.txt

DEL.$$PAT

LST.New|$$LST|i

LST.Add|$$LST|123

LST.FileStore|$$LST|$$PAT

LST.New|$$LSA|i

LST.FileRestore|$$LSA|$$PAT

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(72) Test LST.BuildStr with multiple integers

LST.New|$$LST

LST.Add|$$LST|123

LST.Add|$$LST|456

LST.BuildStr|$$LST|$$STR

JIS.$$STR!123456|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(73) Test LST.TextLoad and LST.TextSave

$$PAT=?exeloc\lst_store.txt

DEL.$$PAT

LST.New|$$LST

LST.Add|$$LST|123

LST.TextSave|$$LST|$$PAT

LST.New|$$LSA

LST.TextLoad|$$LSA|$$PAT

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(74) Test LST.TextGet and LST.TextSet 

LST.New|$$LST

LST.Add|$$LST|123

LST.TextGet|$$LST|$$STR

LST.New|$$LSA

LST.TextSet|$$LSA|$$STR

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!123|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(75) Test LST.GetFiles 

$$PAT=?exeloc\

LST.New|$$LST

LST.GetFiles|$$LST|$$PAT|*.*

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(76) Test LST.GetPaths 

$$PAT=?exeloc\

LST.New|$$LST

LST.GetPaths|$$LST|$$PAT|*.*

LST.Count|$$LST|$$RES

JIV.$$RES!0|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(77) Test LST.Clone with Float type

LST.New|$$LST|f

LST.Add|$$LST|3.14

LST.Clone|$$LST|$$LSA

LST.Validate|$$LSA|$$RES

JIV.$$RES!1|Lab_failed

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!3.14|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(78) Test LST.Store and LST.Restore with Float type

LST.New|$$LST|f

LST.Add|$$LST|3.14

LST.Store|$$LST|$$STR

LST.New|$$LSA|f

LST.Restore|$$LSA|$$STR

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!3.14|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(79) Test LST.FileStore and LST.FileRestore 

$$PAT=?exeloc\lst_store.txt

DEL.$$PAT

LST.New|$$LST

LST.Add|$$LST|3.14

LST.FileStore|$$LST|$$PAT

LST.New|$$LSA

LST.FileRestore|$$LSA|$$PAT

LST.First|$$LSA|$$NOD

LST.Get|$$LSA|$$NOD|$$RES

JIV.$$RES!3.14|Lab_failed

LST.End|$$LST

LST.End|$$LSA

'-----------------------------------------------------------

$$MSG=(80) Test LST.BuildStr with multiple floats

LST.New|$$LST

LST.Add|$$LST|3.14

LST.Add|$$LST|2.71

LST.BuildStr|$$LST|$$STR

JIS.$$STR!3.142.71|Lab_failed

LST.End|$$LST

'-----------------------------------------------------------

$$MSG=(81) Test LST.adl 

LST.New|$$LST

LST.Add|$$LST|Itsme

LST.Add|$$LST|2.71

LST.dlm|$$LST||$$RES

$$LAB=Itsme;2.71

JIS.$$RES!$$LAB|Lab_failed

'-----------------------------------------------------------

$$MSG=(82) Test LST.adl with FP Type

LST.New|$$LST|f

LST.Add|$$LST|3.141

LST.Add|$$LST|2.716

LST.dlm|$$LST||$$RES

$$LAB=3.141;2.716

JIS.$$RES!$$LAB|Lab_failed

'-----------------------------------------------------------

$$MSG=(83) Test LST.adl with FP Type

$$LOP=50

LST.New|$$LSF|f

LST.New|$$LSI|i

LST.New|$$LSS|s

FOR.$$LAA|1|$$LOP

  LST.Add|$$LSF|3.141

  LST.Add|$$LSI|21716

  LST.Add|$$LSS|Hello

NEX.

LST.dlm|$$LSF|;|$$RET

LST.Clear|$$LSF

LST.Count|$$LSF|$$LAA

JNZ.$$LAA|Lab_failed

 

LST.Import|$$LSF|$$RET|;

LST.Count|$$LSF|$$LAA

JIV.$$LAA!$$LOP|Lab_failed

 

LST.dlm|$$LSI|;|$$RET

LST.Clear|$$LSI

LST.Count|$$LSI|$$LAA

JNZ.$$LAA|Lab_failed

 

LST.Import|$$LSI|$$RET|;

LST.Count|$$LSF|$$LAA

JIV.$$LAA!$$LOP|Lab_failed

 

LST.dlm|$$LSS|;|$$RET

LST.Clear|$$LSS

LST.Count|$$LSS|$$LAA

JNZ.$$LAA|Lab_failed

 

LST.Import|$$LSS|$$RET|;

LST.Count|$$LSF|$$LAA

JIV.$$LAA!$$LOP|Lab_failed

 

LST.ENDall

'-----------------------------------------------------------

:Lab_passed

SAV.Restore

$$RES=108

ENR.

'===========================================================

 

:Lab_failed

MBX. Fehler in $script$ $crlf$bei $$MSG

$$RES=0

ENR.

'-----------------------------------------------------------