First attempt at using unit testing in R

Using the test that framework.
Final Code

Tested  Code with

a <- makeCacheMatrix(B)    ##  create & initialize
a$getinverse()   ##  NULL
cacheSolve(a)

C = matrix(c (2.3, 4.1, 5.2, 1.1, -0.9, 4.1, 5.2, 1.1, -0.9 ),
nrow=3,ncol=3)
iC = solve(C)
a <- makeCacheMatrix()   ##  reuse name for new object
a$set(C)     ##  initialize
a$getinverse()   ##  NULL
cacheSolve(a)
a$getinverse()
cacheSolve(a)