155 lines
7.1 KiB
QBasic
155 lines
7.1 KiB
QBasic
Include "unittest_lib.bas"
|
|
|
|
cat("Arrays")
|
|
Dim num_array1D[7]
|
|
Dim str_array1D$[11]
|
|
Dim usr_array1D[22] As Empty
|
|
|
|
Dim num_array2D[4, 6]
|
|
Dim str_array2D$[3, 9]
|
|
Dim usr_array2D[2,5] As Empty
|
|
|
|
Dim num_array3D[13,11,6]
|
|
Dim str_array3D[11,22,7]
|
|
Dim usr_array3D[12,5,14] As Empty
|
|
|
|
Print "*** ArrayDim() Test ***"
|
|
Print ""
|
|
|
|
Print "num_array1D[] dimensions: expected=1, returned="; ArrayDim(num_array1D)
|
|
Print "str_array1D[] dimensions: expected=1, returned="; ArrayDim(str_array1D)
|
|
Print "usr_array1D[] dimensions: expected=1, returned="; ArrayDim(usr_array1D)
|
|
|
|
Print ""
|
|
|
|
Print "num_array2D[] dimensions: expected=2, returned="; ArrayDim(num_array2D)
|
|
Print "str_array2D[] dimensions: expected=2, returned="; ArrayDim(str_array2D)
|
|
Print "usr_array2D[] dimensions: expected=2, returned="; ArrayDim(usr_array2D)
|
|
|
|
Print ""
|
|
|
|
Print "num_array3D[] dimensions: expected=3, returned="; ArrayDim(num_array3D)
|
|
Print "str_array3D[] dimensions: expected=3, returned="; ArrayDim(str_array3D)
|
|
Print "usr_array3D[] dimensions: expected=3, returned="; ArrayDim(usr_array3D)
|
|
|
|
Print ""
|
|
|
|
Print "*** ArraySize() Test ***"
|
|
Print ""
|
|
|
|
Print "num_array1D[] Size: expected=7,0,0, returned="; ArraySize(num_array1D,1); ","; ArraySize(num_array1D,2); ","; ArraySize(num_array1D,3)
|
|
Print "str_array1D[] Size: expected=11,0,0, returned="; ArraySize(str_array1D,1); ","; ArraySize(str_array1D,2); ","; ArraySize(str_array1D,3)
|
|
Print "usr_array1D[] Size: expected=22,0,0, returned="; ArraySize(usr_array1D,1); ","; ArraySize(usr_array1D,2); ","; ArraySize(usr_array1D,3)
|
|
|
|
Print ""
|
|
|
|
Print "num_array2D[] Size: expected=4,6,0, returned="; ArraySize(num_array2D,1); ","; ArraySize(num_array2D,2); ","; ArraySize(num_array2D,3)
|
|
Print "str_array2D[] Size: expected=3,9,0, returned="; ArraySize(str_array2D,1); ","; ArraySize(str_array2D,2); ","; ArraySize(str_array2D,3)
|
|
Print "usr_array2D[] Size: expected=2,5,0, returned="; ArraySize(usr_array2D,1); ","; ArraySize(usr_array2D,2); ","; ArraySize(usr_array2D,3)
|
|
|
|
Print ""
|
|
|
|
Print "num_array3D[] Size: expected=13,11,6, returned="; ArraySize(num_array3D,1); ","; ArraySize(num_array3D,2); ","; ArraySize(num_array3D,3)
|
|
Print "str_array3D[] Size: expected=11,22,7, returned="; ArraySize(str_array3D,1); ","; ArraySize(str_array3D,2); ","; ArraySize(str_array3D,3)
|
|
Print "usr_array3D[] Size: expected=12,5,14, returned="; ArraySize(usr_array3D,1); ","; ArraySize(usr_array3D,2); ","; ArraySize(usr_array3D,3)
|
|
|
|
Print ""
|
|
|
|
Print "*** ArrayCopy() Test ***"
|
|
Print ""
|
|
|
|
Dim num_array_copy1D_smaller[3]
|
|
Dim num_array_copy1D_bigger[21]
|
|
|
|
Dim str_array_copy1D_smaller$[3]
|
|
Dim str_array_copy1D_bigger$[21]
|
|
|
|
num_array1D[0] = -4
|
|
num_array1D[1] = 12
|
|
num_array1D[2] = 9
|
|
num_array1D[6] = 99
|
|
|
|
str_array1D$[0] = "zero"
|
|
str_array1D$[4] = "FoUr"
|
|
str_array1D$[9] = "NINE"
|
|
str_array1D$[10] = "ten"
|
|
|
|
Type Test_Type1
|
|
Dim x[5]
|
|
Dim y[7,5]
|
|
Dim txt_var1$
|
|
Dim txt_var2$[14]
|
|
End Type
|
|
|
|
Type Test_Type2
|
|
Dim t2_var1[7,5] As Test_Type1
|
|
Dim v1[25]
|
|
Dim txt_var1$
|
|
End Type
|
|
|
|
Type Test_Type3
|
|
Dim tst_t[7,5,9] As Test_Type2
|
|
Dim tst_t2 As Test_Type2
|
|
Dim x, y[6,5], z[21]
|
|
Dim txt_var1$[8,7]
|
|
End Type
|
|
|
|
Dim type_array[10] As Test_Type3
|
|
Dim type_array_copy1D_smaller[3] As Test_Type3
|
|
Dim type_array_copy1D_bigger[19] As Test_Type3
|
|
|
|
type_array[0].tst_t[3,4,7].t2_var1[5,3].txt_var2$[7] = "test type array Case One"
|
|
type_array[0].tst_t[3,4,7].t2_var1[5,3].y[4,2] = 42
|
|
type_array[9].tst_t[6,4,8].t2_var1[5,3].txt_var2$[7] = "test type array Case Two"
|
|
type_array[0].tst_t[3,4,7].v1[4] = 29.54
|
|
type_array[9].txt_var1$[5,6] = "test type array Case Three"
|
|
|
|
ArrayCopy(num_array1D, num_array_copy1D_smaller)
|
|
ArrayCopy(num_array1D, num_array_copy1D_bigger)
|
|
|
|
ArrayCopy(str_array1D, str_array_copy1D_smaller)
|
|
ArrayCopy(str_array1D, str_array_copy1D_bigger)
|
|
|
|
ArrayCopy(type_array, type_array_copy1D_smaller)
|
|
ArrayCopy(type_array, type_array_copy1D_bigger)
|
|
|
|
Print "num_array_copy1D_smaller[] Size: expected=7,0,0, returned="; ArraySize(num_array_copy1D_smaller,1); ","; ArraySize(num_array_copy1D_smaller,2); ","; ArraySize(num_array_copy1D_smaller,3)
|
|
Print "num_array_copy1D_smaller[0] Value: expected=-4, returned="; num_array_copy1D_smaller[0]
|
|
Print "num_array_copy1D_smaller[1] Value: expected=12, returned="; num_array_copy1D_smaller[1]
|
|
Print "num_array_copy1D_smaller[6] Value: expected=99, returned="; num_array_copy1D_smaller[6]
|
|
Print ""
|
|
Print "num_array_copy1D_bigger[] Size: expected=7,0,0, returned="; ArraySize(num_array_copy1D_bigger,1); ","; ArraySize(num_array_copy1D_bigger,2); ","; ArraySize(num_array_copy1D_bigger,3)
|
|
Print "num_array_copy1D_bigger[0] Value: expected=-4, returned="; num_array_copy1D_bigger[0]
|
|
Print "num_array_copy1D_bigger[1] Value: expected=12, returned="; num_array_copy1D_bigger[1]
|
|
Print "num_array_copy1D_bigger[6] Value: expected=99, returned="; num_array_copy1D_bigger[6]
|
|
Print ""
|
|
Print dash_line$
|
|
Print ""
|
|
|
|
Print "str_array_copy1D_smaller[] Size: expected=11,0,0, returned="; ArraySize(str_array_copy1D_smaller,1); ","; ArraySize(str_array_copy1D_smaller,2); ","; ArraySize(str_array_copy1D_smaller,3)
|
|
Print "str_array_copy1D_smaller[0] Value: expected=\qzero\q, returned=\q"; str_array_copy1D_smaller[0];"\q"
|
|
Print "str_array_copy1D_smaller[4] Value: expected=\qFoUr\q, returned=\q"; str_array_copy1D_smaller[4];"\q"
|
|
Print "str_array_copy1D_smaller[10] Value: expected=\qten\q, returned=\q"; str_array_copy1D_smaller[10];"\q"
|
|
Print ""
|
|
Print "str_array_copy1D_bigger[] Size: expected=11,0,0, returned="; ArraySize(str_array_copy1D_bigger,1); ","; ArraySize(str_array_copy1D_bigger,2); ","; ArraySize(str_array_copy1D_bigger,3)
|
|
Print "str_array_copy1D_smaller[0] Value: expected=\qzero\q, returned=\q"; str_array_copy1D_bigger[0];"\q"
|
|
Print "str_array_copy1D_smaller[4] Value: expected=\qFoUr\q, returned=\q"; str_array_copy1D_bigger[4];"\q"
|
|
Print "str_array_copy1D_smaller[10] Value: expected=\qten\q, returned=\q"; str_array_copy1D_bigger[10];"\q"
|
|
Print ""
|
|
Print dash_line$
|
|
Print ""
|
|
|
|
Print "type_array_copy1D_smaller[] Size: expected=10,0,0, returned="; ArraySize(type_array_copy1D_smaller,1); ","; ArraySize(type_array_copy1D_smaller,2); ","; ArraySize(type_array_copy1D_smaller,3)
|
|
Print "type_array_copy1D_smaller[] Number Member Value: expected=42, returned="; type_array_copy1D_smaller[0].tst_t[3,4,7].t2_var1[5,3].y[4,2]
|
|
Print "type_array_copy1D_smaller[] Number Member Value: expected=29.54, returned="; type_array_copy1D_smaller[0].tst_t[3,4,7].v1[4]
|
|
Print "type_array_copy1D_smaller[] String Member Value: expected=\qtest type array Case Two\q, returned=\q"; type_array_copy1D_smaller[9].tst_t[6,4,8].t2_var1[5,3].txt_var2$[7];"\q"
|
|
Print ""
|
|
Print "type_array_copy1D_bigger[] Size: expected=10,0,0, returned="; ArraySize(type_array_copy1D_bigger,1); ","; ArraySize(type_array_copy1D_bigger,2); ","; ArraySize(type_array_copy1D_bigger,3)
|
|
Print "type_array_copy1D_bigger[] Number Member Value: expected=42, returned="; type_array_copy1D_bigger[0].tst_t[3,4,7].t2_var1[5,3].y[4,2]
|
|
Print "type_array_copy1D_bigger[] Number Member Value: expected=29.54, returned="; type_array_copy1D_bigger[0].tst_t[3,4,7].v1[4]
|
|
Print "type_array_copy1D_bigger[] String Member Value: expected=\qtest type array Case Two\q, returned=\q"; type_array_copy1D_bigger[9].tst_t[6,4,8].t2_var1[5,3].txt_var2$[7];"\q"
|
|
Print ""
|
|
Print dash_line$
|
|
Print ""
|
|
|