Ticket #2552: rule_param.jam

File rule_param.jam, 1.8 KB (added by Jonathan Biggar <jon@…>, 14 years ago)

New test case for bjam rules accepting parameters 10-19

Line 
1#~ Copyright 2008 Jonathan Biggar
2#~ Distributed under the Boost Software License, Version 1.0.
3#~ (See accompanying file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt)
4
5ECHO -- Testing parameter passing... ;
6
7rule test_numeric_params
8{
9 assert $(1) : (==) : 1 ;
10 assert $(2) : (==) : 2 ;
11 assert $(3) : (==) : 3 ;
12 assert $(4) : (==) : 4 ;
13 assert $(5) : (==) : 5 ;
14 assert $(6) : (==) : 6 ;
15 assert $(7) : (==) : 7 ;
16 assert $(8) : (==) : 8 ;
17 assert $(9) : (==) : 9 ;
18 assert $(10) : (==) : 10 ;
19 assert $(11) : (==) : 11 ;
20 assert $(12) : (==) : 12 ;
21 assert $(13) : (==) : 13 ;
22 assert $(14) : (==) : 14 ;
23 assert $(15) : (==) : 15 ;
24 assert $(16) : (==) : 16 ;
25 assert $(17) : (==) : 17 ;
26 assert $(18) : (==) : 18 ;
27 assert $(19) : (==) : 19 ;
28}
29
30rule test_named_params ( p1 : p2 : p3 : p4 : p5 : p6 : p7 : p8 : p9 :
31 p10 : p11 : p12 : p13 : p14 : p15 : p16 : p17 : p18 : p19 )
32
33
34{
35 assert $(p1) : (==) : 1 ;
36 assert $(p2) : (==) : 2 ;
37 assert $(p3) : (==) : 3 ;
38 assert $(p4) : (==) : 4 ;
39 assert $(p5) : (==) : 5 ;
40 assert $(p6) : (==) : 6 ;
41 assert $(p7) : (==) : 7 ;
42 assert $(p8) : (==) : 8 ;
43 assert $(p9) : (==) : 9 ;
44 assert $(p10) : (==) : 10 ;
45 assert $(p11) : (==) : 11 ;
46 assert $(p12) : (==) : 12 ;
47 assert $(p13) : (==) : 13 ;
48 assert $(p14) : (==) : 14 ;
49 assert $(p15) : (==) : 15 ;
50 assert $(p16) : (==) : 16 ;
51 assert $(p17) : (==) : 17 ;
52 assert $(p18) : (==) : 18 ;
53 assert $(p19) : (==) : 19 ;
54}
55
56test_numeric_params 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 :
57 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 ;
58
59test_named_params 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 :
60 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 ;