"Testing dim" 

clear
A = ((1,2,3),(4,5,6))
check(dim(A,1) == 2)
check(dim(A,2) == 3)
check(dim(A) == 2)
check(dim(x) == 1)
