<< Click to Display Table of Contents >> Navigation:  3. Script Language > Arrays and Data-Structures > ARS. - Array's > ARS. - Arrays

---

MiniRobotLanguage (MRL)

 

Test-Script

Testing Script Sample

 

 

Intention

 

This Script is used to verify the functionality of the ARS. - Command.

 

 

 

SAV.Save|$$LAA|$$LAB|$$LAC|$$LAD|$$COL|$$COA|$$ARR|$$RES

' Testet QUE.

'

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

'

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

$$MSG=(0) Teste ARS.New

ARS.New|$$ARR

JIZ.$$ARR|Lab_failed

ARS.Validate|$$ARR|$$RES

JIZ.$$RES|Lab_failed

ARS.End|$$ARR

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

$$MSG=(1) Teste ARS.DNew

ARS.DNew|$$ARR

JIZ.$$ARR|Lab_failed

ARS.Validate|$$ARR|$$RES

JIZ.$$RES|Lab_failed

ARS.End|$$ARR

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

$$MSG=(2) Teste ARS.Validate mit ungültigem Handle

VAR.$$ARR=123434

ARS.Validate|$$ARR|$$RES

JNZ.$$RES|Lab_failed

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

$$MSG=(3) Teste ARS.Add/Append mir "s" und Clear

$$NUM=5

ARS.New|$$ARR|s

JIZ.$$ARR|Lab_failed

FOR.$$RES|1|$$NUM

  VAR.$$LAA=Text_$$RES

  VAR.$$LAB=X$$RESX

  ARS.Add|$$ARR|$$LAA

  ARS.Insert|$$ARR|1|$$LAB

NEX.

ARS.Count|$$ARR|$$RES

JIV.$$RES!($$NUM*2)|Lab_failed

ARS.Clear|$$ARR

ARS.Count|$$ARR|$$RES

JNZ.$$RES|Lab_failed

ARS.End|$$ARR

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

$$MSG=(4) Teste ARS.Add/Append mir "i" und Clear

$$NUM=5

ARS.New|$$ARR|i

JIZ.$$ARR|Lab_failed

FOR.$$RES|1|$$NUM

  ARS.Add|$$ARR|$$RES

  CAL.$$LAC=$$NUM-$$RES

  ARS.Insert|$$ARR|1|$$LAC

NEX.

ARS.Count|$$ARR|$$RES

JIV.$$RES!($$NUM*2)|Lab_failed

ARS.Clear|$$ARR

ARS.Count|$$ARR|$$RES

JNZ.$$RES|Lab_failed

ARS.End|$$ARR

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

$$MSG=(5) Teste ARS.Add/Append mir "f" und Clear

$$NUM=5

ARS.New|$$ARR|f

JIZ.$$ARR|Lab_failed

FOR.$$RES|1|$$NUM

  ARS.Add|$$ARR|$$RES

  CAL.$$LAC=$$NUM-$$RES/1.33

  ARS.Insert|$$ARR|1|$$LAC

NEX.

ARS.Count|$$ARR|$$RES

JIV.$$RES!($$NUM*2)|Lab_failed

ARS.Clear|$$ARR

ARS.Count|$$ARR|$$RES

JNZ.$$RES|Lab_failed

ARS.End|$$ARR

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

$$MSG=(6) Teste ARS.Insert

$$LAA=Hallo

$$NUM=5

ARS.New|$$ARR|s

JIZ.$$ARR|Lab_failed

ARS.Insert|$$ARR|$$NUM|$$LAA

ARS.Count|$$ARR|$$LAD

JIV.$$LAD!6|Lab_failed

'ARS.Show|$$ARR

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

$$MSG=(7) Teste ARS.Get

$$LAA=Hallo

ARS.New|$$ARR|s

JIZ.$$ARR|Lab_failed

ARS.Add|$$ARR|$$LAA

ARS.Count|$$ARR|$$LAD

JIV.$$LAD!1|Lab_failed

ARS.Get|$$ARR|1|$$LAB

JIV.$$LAB!$$LAA|Lab_failed

ARS.End|$$ARR

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

$$MSG=(8) Teste ARS.Get

$$NUM=5

ARS.New|$$ARR|s

FOR.$$RES|1|$$NUM

  VAR.$$LAA=Text_$$RES

  ARS.Add|$$ARR|$$LAA

NEX.

FOR.$$RES|1|$$NUM

  VAR.$$LAA=Text_$$RES

  ARS.Get|$$ARR|$$RES|$$LAB

  JIV.$$LAB!$$LAA|Lab_failed

NEX.

ARS.End|$$ARR

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

$$MSG=(9) Teste ARS.Get

$$NUM=5

ARS.New|$$ARR|s

FOR.$$RES|1|$$NUM

  VAR.$$LAA=Text_$$RES

  ARS.Add|$$ARR|$$LAA

NEX.

$$LAC=1

FOR.$$RES|$$NUM|1|-1  

  VAR.$$LAA=Text_$$LAC

  ARS.Set|$$ARR|$$RES|$$LAA

  ARS.Get|$$ARR|$$RES|$$LAD

  JIV.$$LAA!$$LAD|Lab_failed

  VIC.$$LAC  

NEX.

 

$$MSG=(10) Teste ARS.Del

ARS.Del|$$ARR|1

ARS.Del|$$ARR|3

$$RES=4

VAR.$$LAA=Text_$$RES

ARS.Get|$$ARR|1|$$LAB

JIV.$$LAB!$$LAB|Lab_failed

 

$$RES=3

VAR.$$LAA=Text_$$RES

ARS.Get|$$ARR|2|$$LAB

JIV.$$LAB!$$LAB|Lab_failed

 

$$RES=1

VAR.$$LAA=Text_$$RES

ARS.Get|$$ARR|3|$$LAB

JIV.$$LAB!$$LAB|Lab_failed

 

ARS.Count|$$ARR|$$LAD

JIV.$$LAD!3|Lab_failed

ARS.End|$$ARR

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

$$MSG=(11) Teste ARS.Get

$$NUM=5

ARS.New|$$ARR|s

 

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

$$MSG=(12) Teste ARS.ToList

$$NUM=5

ARS.New|$$ARR|s

JIZ.$$ARR|Lab_failed

FOR.$$RES|1|$$NUM

  VAR.$$LAA=Text_$$RES

  ARS.Add|$$ARR|$$LAA

NEX.

ARS.Count|$$ARR|$$NUM

JIV.$$NUM!5|Lab_failed

ARS.ToList|$$ARR|$$LST

LST.Count|$$LST|$$NUM

JIV.$$NUM!5|Lab_failed

LST.End All

ARS.End All

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

$$MSG=(13) Teste ARS.ToQue

$$NUM=5

ARS.New|$$ARR|s

JIZ.$$ARR|Lab_failed

FOR.$$RES|1|$$NUM

  VAR.$$LAA=Text_$$RES

  ARS.Add|$$ARR|$$LAA

NEX.

ARS.Count|$$ARR|$$NUM

JIV.$$NUM!5|Lab_failed

ARS.ToQue|$$ARR|$$QUE

QUE.Count|$$QUE|$$NUM

JIV.$$NUM!5|Lab_failed

QUE.End All

ARS.End All

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

$$MSG=(14) Teste ARS.ToStck

$$NUM=5

ARS.New|$$ARR|s

JIZ.$$ARR|Lab_failed

FOR.$$RES|1|$$NUM

  VAR.$$LAA=Text_$$RES

  ARS.Add|$$ARR|$$LAA

NEX.

ARS.Count|$$ARR|$$NUM

JIV.$$NUM!5|Lab_failed

ARS.To Stack|$$ARR|$$STK

STK.Count|$$STK|$$NUM

JIV.$$NUM!5|Lab_failed

'ARS.Show|$$ARR|-

STK.End All

ARS.End All

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

 

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

 

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

:Lab_passed

SAV.Restore

$$RES=108

ENR.

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

 

:Lab_failed

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

$$RES=0

ENR.

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