source: trunk/oldtest/src/octave/test_get_units.m @ 3177

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

function [err] = test_get_units(unitName)
    err = 1;
    printf("\n\nTESTING rpUnitsGetUnits\n");
    [unitHandle,err] = rpUnitsFind(unitName);
    if !err && unitHandle
        [retStr,err] = rpUnitsGetUnits(unitHandle);
        if !err
            if retStr != ''
                printf ("units of %s = %s\n", unitName,retStr);
            else
                printf ("rpUnitsGetUnits FAILED\n");
            end
        else
            printf("Error within rpUnitsGetUnits function\n");
        end
    else
        printf ("rpUnitsFind FAILED while testing rpUnitsGetUnits\n");
    end
end