Changeset 125 for trunk

Timestamp:

10/17/11 14:54:04 (7 months ago)

Author:

mgalloy

Message:

Adding ability to run a single test method from a test case. Satisfies ticket #9.

Location:

trunk

Files:

• docs/using-mgunit.rst (modified) (2 diffs)
• Makefile (modified) (1 diff)
• src/mguttestcase__define.pro (modified) (1 diff)
• src/mguttestsuite__define.pro (modified) (2 diffs)

trunk/docs/using-mgunit.rst

@@ -68 +68 @@
   end
 
-Running all the test case now results in the following::
+Running the test case now results in the following::
 
   IDL> mgunit, 'findgen_ut'
@@ -81 +81 @@
 
 Both test failures above are expected and present only to demonstrate features of mgunit.
+
+A single test method of a test case can be run using a `.` to separate the test class name from the method name::
+
+  IDL> mgunit, 'findgen_ut.test_basic'
+  "All tests" test suite starting (1 test suite/case, 1 test)
+     "findgen_ut" test case starting (1 test)
+        test_basic: passed (0.000078 seconds)
+     Results: 1 / 1 tests passed, 0 skipped
+  Results: 1 / 1 tests passed, 0 skipped
 
 

trunk/Makefile

@@ -1 @@
-VERSION=1.2
+VERSION=1.3dev
 REVISION=r`svn info | sed -n 's/Revision: \(.*\)/\1/p'`
 RELEASE="$(VERSION)-$(REVISION)"

trunk/src/mguttestcase__define.pro

@@ -343 +343 @@
   ntests = self.ntests
   if (arg_present(testnames)) then testnames = *self.testnames
+end
+
+
+;+
+; Set properties of the object.
+;-
+pro mguttestcase::setProperty, testnames=testnames
+  compile_opt strictarr
+  
+  if (n_elements(testnames) gt 0L) then begin
+    *self.testnames = strlowcase(testnames)
+    self.ntests = n_elements(testnames)
+  endif
 end
 

trunk/src/mguttestsuite__define.pro

@@ -266 +266 @@
   endif else begin
     for t = 0L, n_elements(tests) - 1L do begin
+      dotpos = strpos(tests[t], '.')
+      if (dotpos eq -1L) then begin
+        classname = tests[t]
+      endif else begin
+        classname = strmid(tests[t], 0, dotpos)
+        methodname = strmid(tests[t], dotpos + 1L)
+      endelse
+      
       ; don't add yourself to yourself
-      if (tests[t] eq self.name) then continue
+      if (classname eq self.name) then continue
 
       ; see if test is valid
-      otestcase = self->_makeTestCase(tests[t], error=error)
+      otestcase = self->_makeTestCase(classname, error=error)
       if (error ne 0L) then begin
-        print, 'Error creating ' + tests[t] + ' object: ' + !error_state.msg
+        print, 'Error creating ' + classname + ' object: ' + !error_state.msg
         continue
       endif
@@ -278 +286 @@
       ; test case is OK so now set it up
       otestcase->setLevel, self.level + 1L
+      if (n_elements(methodname) gt 0L) then begin
+        otestcase->setProperty, testnames=[methodname]
+      endif
       self.testcases->add, otestcase
     endfor