Mercurial > octave-dspies
view test/classdef/test_classdef.m @ 15952:9c7e1c633e47 classdef
Include classdef tests in Makefile.am
* test/Makefile.am: Include classdef tests.
* test/classdef/test_classdef.m: Renamed test/classdef/test_classes.m.
author | Ben Abbott <bpabbott@mac.com> |
---|---|
date | Mon, 14 Jan 2013 22:56:54 -0500 |
parents | test/classdef/test_classes.m@dd4258398a59 |
children | de240df20290 |
line wrap: on
line source
## Copyright (C) 2013 Ben Abbott ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. %% Test script for classdef OOP. %% Requires the path to contain the test classes. %% %% Note: This script and all classes are also intended to run %% in MATLAB to test compatibility. Don't break that! %% %% To Do: This script tests to ensure that things done correctly work %% corrrectly. It should also check that things done incorrectly %% error properly. %% %% The classes used for the tests reside in the test/classdef with others %% in the test directory. %% %% The classes provide the ability to test most of the major features %% of the classdef OOP facilities. There are a number of classes, mostly %% kind of the same, that create a hierarchy. %% Basic classdef tests %!shared p, i, amt %! p = foo_payment (4, 4*12, 50e3); %! i = p.rate / (12 * 100); %! amt = (p.principle * i) / (1 - (1 + i)^(-p.term)); %!assert (class (p), "foo_payment"); %!assert (p.term, 48); %!assert (p.rate, 4.0); %!assert (p.principle, 50e3); %!assert (p.amount, amt, eps ()) %!xtest %! assert (amount (p), amt, eps ()) %!xtest %! xassert (properties (p), {'rate'; 'term'; 'principle'}) %!xtest %! xassert (methods (p), {'amount'; 'foo_payment'})