Create cachematrix_test.R

Added test.