Mercurial > hg > ltpda

comparison testing/utp_1.1/utps/pest/utp_pest_copy.m @ 44:409a22968d5e default

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add unit tests
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Tue, 06 Dec 2011 18:42:11 +0100
parents
children
comparison
equal deleted inserted replaced
43:bc767aaa99a8 44:409a22968d5e
1 % UTP_PEST_COPY a set of UTPs for the pest/copy method
2 %
3 % M Hewitson 06-08-08
4 %
5 % $Id: utp_pest_copy.m,v 1.1 2010/02/07 15:11:03 ingo Exp $
6 %
7
8 % <MethodDescription>
9 %
10 % The copy method of the pest class copies the input object depending of the
11 % second input.
12 %
13 % </MethodDescription>
14
15 function results = utp_pest_copy(varargin)
16
17 % Check the inputs
18 if nargin == 0
19
20 % Some keywords
21 class = 'pest';
22 mthd = 'copy';
23
24 results = [];
25 disp('******************************************************');
26 disp(['**** Running UTPs for ' class '/' mthd]);
27 disp('******************************************************');
28
29 % Exception list for the UTPs:
30 [ple1,ple2,ple3,ple4,ple5,ple6] = get_test_ples();
31
32 % Run the tests
33 results = [results utp_69(class, 1, 1, ple2)];
34 results = [results utp_69(class, 1, 3, ple2)];
35 results = [results utp_69(class, 2, 3, ple2)];
36
37 disp('Done.');
38 disp('******************************************************');
39
40 elseif nargin == 1 % Check for UTP functions
41 if strcmp(varargin{1}, 'isutp')
42 results = 1;
43 else
44 results = 0;
45 end
46 else
47 error('### Incorrect inputs')
48 end
49
50 end