Mercurial > hg > octave-nkf
annotate test/@Blork/get.m @ 9381:f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
* test: Add class directories for testing.
* ov-class.cc: Add tests.
author | Robert T. Short <octave@phaselockedsystems.com> |
---|---|
date | Tue, 23 Jun 2009 14:13:47 -0400 |
parents | |
children |
rev | line source |
---|---|
9381
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
1 function [ v ] = get( s, propName ) |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
2 |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
3 switch propName |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
4 case 'bleek' |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
5 v = s.bleek; |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
6 otherwise |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
7 error([propName, ' is not a valid Blork property']); |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
8 end |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
9 |
f9ab19428cd8
* run-octave.in: Exclude @-files from path. Remove CVS exclusions.
Robert T. Short <octave@phaselockedsystems.com>
parents:
diff
changeset
|
10 end |