; docformat = 'rst'

;+
; Base test class that all unit tests should inherit from.
;-

pro mgutlibtestcase::setup
  compile_opt strictarr

  mg_heapinfo, n_pointers=nptrs, n_objects=nobjs
  self.nptrs = nptrs
  self.nobjs = nobjs
end


pro mgutlibtestcase::teardown
  compile_opt strictarr

  mg_heapinfo, n_pointers=nptrs, n_objects=nobjs
  assert, nptrs eq self.nptrs && nobjs eq self.nobjs, $
          'leaked %d pointers, %d objects', $
          nptrs - self.nptrs, $
          nobjs - self.nobjs
end


pro mgutlibtestcase__define
  compile_opt strictarr

  define = { MGutLibTestCase, inherits MGutTestCase, $
             nptrs: 0L, $
             nobjs: 0L $
           }
end