add even more tests

Author: Remi-Gau

src/keyboard/checkAbortGetResponse.m

@@ -0,0 +1,9 @@
+function checkAbortGetResponse(responseEvents, cfg)
+
+    if isfield(responseEvents, 'keyName') > 0 && ...
+            any( ...
+            strcmpi({responseEvents(:).keyName}, cfg.keyboard.escapeKey) ...
+            )
+        errorAbortGetReponse;
+    end
+end

src/keyboard/getResponse.m

@@ -169,16 +169,6 @@
 
 end
 
-function checkAbortGetResponse(responseEvents, cfg)
-
-    if isfield(responseEvents, 'keyName') > 0 && ...
-            any( ...
-            strcmpi({responseEvents(:).keyName}, cfg.keyboard.escapeKey) ...
-            )
-        errorAbortGetReponse(responseEvents);
-    end
-end
-
 function talkToMe(action, cfg)
 
     verbose = false;

tests/test_checkAbortGetResponse.m

@@ -0,0 +1,20 @@
+function test_suite = test_checkAbortGetResponse %#ok<*STOUT>
+    try % assignment of 'localfunctions' is necessary in Matlab >= 2016
+        test_functions = localfunctions(); %#ok<*NASGU>
+    catch % no problem; early Matlab versions can use initTestSuite fine
+    end
+    initTestSuite;
+end
+
+function test_checkAbortGetResponseBasic()
+    
+    responseEvents(1).keyName = 'a';
+    responseEvents(2).keyName = '2';
+    responseEvents(3).keyName = 'ESCAPE';
+    
+    cfg.keyboard.escapeKey = 'ESCAPE';
+    
+    assertExceptionThrown(@()checkAbortGetResponse(responseEvents, cfg), ...
+        'getResponse:abortRequested');
+     
+end

tests/test_generateNewDotPositions.m

@@ -0,0 +1,20 @@
+function test_suite = test_generateNewDotPositions %#ok<*STOUT>
+    try % assignment of 'localfunctions' is necessary in Matlab >= 2016
+        test_functions = localfunctions(); %#ok<*NASGU>
+    catch % no problem; early Matlab versions can use initTestSuite fine
+    end
+    initTestSuite;
+end
+
+function test_generateNewDotPositionsBasic()
+    
+    cfg.dot.matrixWidth = 400;
+    dotNumber = 200;
+    
+    newPositions = generateNewDotPositions(cfg, dotNumber);
+    
+    assertEqual([200, 2], size(newPositions))
+    
+    assertTrue(all(all([newPositions(:) <= 400, newPositions(:) >= 0])))
+     
+end