Changeset 62

Show
Ignore:
Timestamp:
04/22/09 22:12:31 (3 years ago)
Author:
mgalloy
Message:

Updated MGUNIT_WRAPPER to use MG_Options. Need to add MGcoHashTable to distribution.

Location:
trunk/mgunit
Files:
4 modified

Legend:

Unmodified
Added
Removed

  • trunk/mgunit/Makefile

    r55 r62  
    5353        cp src/style.css mgunit-src-$(RELEASE)/ 
    5454        cp src/dist_tools/mg_src_root.pro mgunit-src-$(RELEASE)/ 
     55        cp src/dist_tools/mg_options__define.pro mgunit-src-$(RELEASE)/ 
    5556        cp src/cmdline_tools/mg_ansicode.pro mgunit-src-$(RELEASE)/ 
    5657        cp src/mgunit-templates.xml mgunit-src-$(RELEASE)/ 

  • trunk/mgunit/mgunit_build.pro

    r40 r62  
    1616; create the sav file 
    1717save, filename='mgunit.sav', /routines, $ 
    18   description='MGunit unit testing framework' 
     18      description='MGunit unit testing framework' 
    1919 
    2020exit 

  • trunk/mgunit/mgunit_compile.pro

    r40 r62  
    99.compile mg_ansicode 
    1010.compile mg_src_root 
     11.compile mg_options 

  • trunk/mgunit/src/mgunit_wrapper.pro

    r60 r62  
    1010  !quiet = 1 
    1111   
    12   args = command_line_args(count=nargs) 
    13   if (nargs gt 0L) then mgunit, args 
     12  opts = obj_new('mg_options') 
     13   
     14  opts->addOption, 'color', 'c', /boolean, help='use color output' 
     15  opts->addOption, 'filename', help='log filename' 
     16  opts->addOption, 'gui', 'g', /boolean, help='start a GUI to run the tests' 
     17  opts->addOption, 'html', 'm', /boolean, help='produce HTML output' 
     18   
     19  opts->parseArgs 
     20  params = opts->get(/params, n_params=nparams) 
     21 
     22  if (nparams gt 0L && ~opts->get('help')) then begin 
     23    filename = opts->get('filename', present=filenamePresent) 
     24    if (filenamePresent) then begin 
     25      mgunit, params, $ 
     26              color=opts->get('color'), $ 
     27              filename=opts->get('filename'), $ 
     28              gui=opts->get('gui'), $ 
     29              html=opts->get('html') 
     30    endif else begin 
     31      mgunit, params, $ 
     32              color=opts->get('color'), $ 
     33              gui=opts->get('gui'), $ 
     34              html=opts->get('html') 
     35    endelse 
     36  endif 
     37   
     38  obj_destroy, opts 
    1439end