source: trunk/oldtest/src/matlab/test_make_metric.m @ 2038

% ----------------------------------------------------------------------
%  TEST: Matlab's Rappture Library Test Functions.
%
%   [err] = test_make_metric(unitName)
%
%
% ======================================================================
%  AUTHOR:  Derrick Kearney, Purdue University
%  Copyright (c) 2004-2005  Purdue Research Foundation
%
%  See the file "license.terms" for information on usage and
%  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
% ======================================================================

function [err] = test_make_metric(unitName)
    err = 1;
    disp(sprintf('\n\nTESTING rpUnitsMakeMetric\n'));
    [unitHandle,err] = rpUnitsFind(unitName);
    if ~err && unitHandle
        [err] = rpUnitsMakeMetric(unitHandle);
        if ~err
            [unitHandle,err] = rpUnitsFind(['c',unitName]);
            if ~err
                [retStr,err] = rpUnitsGetUnitsName(unitHandle);
                if ~err
                    disp(sprintf ('centi-%s = %s\n', unitName,retStr));
                else
                    disp(sprintf('Error in rpUnitsGetUnitsName testing rpUnitsMakeMetric\n'));
                end
            else
                disp(sprintf('Error in rpUnitsFind testing rpUnitsMakeMetric\n'));
            end
        else
            disp(sprintf('Error within rpUnitsMakeMetric function\n'));
        end
    else
        disp(sprintf ('rpUnitsFind FAILED while testing rpUnitsGetUnits\n'));
    end
return