added some unit tests to check that the functions seem to be doing what they are supposed to

Author: UltraBob

run_tests.R

@@ -0,0 +1,11 @@
+library("RUnit")
+
+source('cachematrix.R')
+
+test.suite <- defineTestSuite("testTesting",
+                              dirs = file.path("tests"),
+                              testFileRegexp = '^\\d+\\.R')
+
+test.result <- runTestSuite(test.suite)
+
+printTextProtocol(test.result)

tests/1.R

@@ -0,0 +1,23 @@
+test.testTesting <- function() {
+    checkTrue(TRUE) 
+}
+
+test.MCM <- function() {
+    testMatrix <- matrix(c(4,2,7,6),2,2)
+    newmat <- matrix(c(1,2,3,4),2,2)
+    testMCM <- makeCacheMatrix(testMatrix)
+    checkEquals(testMatrix, testMCM$get())
+    checkEquals(NULL,testMCM$getInverse())
+    testMCM$set(newmat)
+    checkEquals(newmat, testMCM$get())
+    checkEquals(NULL, testMCM$getInverse())
+    newSol <- cacheSolve(testMCM)
+    checkEquals(matrix(c(-2,1,1.5,-0.5),2,2),newSol)
+    checkEquals(newSol, testMCM$getInverse())
+    testMCM$set(testMatrix)
+    checkEquals(NULL,testMCM$getInverse())
+    testSol <- cacheSolve(testMCM)
+    checkEquals(matrix(c(0.6,-0.2,-0.7,0.4),2,2),testSol)
+    checkTrue(!is.null(testMCM$getInverse()))
+    checkEquals(testMCM$getInverse(),testSol)
+}