# 1) sort an array

a = mkarray(5, 4, 7);
b = qsort(a);

if ((int) b != 3 || b[0] != 4 || b[1] != 5 || b[2] != 7 || a[0] != 5) exit(1);


# 2) check sortedness of array

a = mkarray(1, 2, 3);
b = mkarray(3, 2, 1);
p = is_sorted(a);
q = is_sorted(b);

if (!p || q) exit(2);


# 3) unset array element

a = mkarray(1, 2, 3);
b = array_unset(a, 1);

if ((int) b != 3 || b[1] != () || a[1] != 2) exit(3);


# 4) remove voids from array

a = mkarray(1, (), 3);
b = array_compact(a);

if ((int) b != 2 || b[0] != 1 || b[1] != 3) exit(4);


# 5) merge two arrays

a = mkarray(1);
b = mkarray(2, 3);
c = array_merge(a, b);

if ((int) c != 3 || c[0] != 1 || c[1] != 2 || c[2] != 3) exit(5);


# 6) merge array and scalar value

a = mkarray(1);
b = 2;
c = array_merge(a, b);

if ((int) c != 2 || c[0] != 1 || c[1] != 2) exit(6);


# 7) reverse array

a = mkarray(2, 1);
b = array_reverse(a);

if ((int) b != 2 || b[0] != 1 || b[1] != 2) exit(7);


print("7 subtests ");
