@@ -7,6 +7,13 @@ module PropertyTests {
77
88 config const numTests = 50 ;
99
10+ // Helper procs for property tests (intentionally ignore formal)
11+ @chplcheck.ignore(" UnusedFormal" )
12+ proc alwaysTrue (x: int ) { return true ; }
13+
14+ @chplcheck.ignore(" UnusedFormal" )
15+ proc alwaysFalse (x: int ) { return false ; }
16+
1017 proc main () {
1118 writeln (" quickchpl Property System Unit Tests" );
1219 writeln (" =" * 50 );
@@ -19,11 +26,7 @@ module PropertyTests {
1926 writeln (" Testing Basic Property (always passes):" );
2027 {
2128 var gen = intGen(- 100 , 100 );
22- var prop = property(
23- " integers exist" ,
24- gen,
25- proc (x: int ) { return true ; }
26- );
29+ var prop = property(" integers exist" , gen, alwaysTrue);
2730
2831 var result = check(prop, numTests);
2932
@@ -137,7 +140,8 @@ module PropertyTests {
137140 failed += 1 ;
138141 }
139142
140- var failResult = quickCheck(intGen(1 , 100 ), proc (x: int ) { return x < 0 ; });
143+ var failResult = quickCheck(intGen(1 , 100 ),
144+ proc (x: int ) { return x < 0 ; });
141145 if !failResult {
142146 writeln (" ✓ quickCheck correctly returns false for failing property" );
143147 passed += 1 ;
@@ -155,7 +159,9 @@ module PropertyTests {
155159 var prop = property(
156160 " addition is commutative" ,
157161 gen,
158- proc (pair: (int , int )) { return pair(0 ) + pair(1 ) == pair(1 ) + pair(0 ); }
162+ proc (pair: (int , int )) {
163+ return pair(0 ) + pair(1 ) == pair(1 ) + pair(0 );
164+ }
159165 );
160166
161167 var result = check(prop, numTests);
@@ -196,7 +202,8 @@ module PropertyTests {
196202 writeln (" Testing TestResult Structure:" );
197203 {
198204 var gen = intGen(0 , 10 );
199- var prop = property(" test property" , gen, proc (x: int ) { return x >= 0 ; });
205+ var prop = property(" test property" , gen,
206+ proc (x: int ) { return x >= 0 ; });
200207 var result = check(prop, 25 );
201208
202209 if result.propertyName == " test property" {
@@ -222,10 +229,10 @@ module PropertyTests {
222229 {
223230 var results: list(TestResult);
224231
225- var r1 = new TestResult(passed= true , numTests= 10 , numPassed = 10 , numFailed = 0 ,
226- propertyName= " p1" );
227- var r2 = new TestResult(passed= true , numTests= 10 , numPassed = 10 , numFailed = 0 ,
228- propertyName= " p2" );
232+ var r1 = new TestResult(passed= true , numTests= 10 ,
233+ numPassed = 10 , numFailed = 0 , propertyName= " p1" );
234+ var r2 = new TestResult(passed= true , numTests= 10 ,
235+ numPassed = 10 , numFailed = 0 , propertyName= " p2" );
229236 results.pushBack(r1);
230237 results.pushBack(r2);
231238
@@ -237,8 +244,8 @@ module PropertyTests {
237244 failed += 1 ;
238245 }
239246
240- var r3 = new TestResult(passed= false , numTests= 10 , numPassed = 5 , numFailed = 5 ,
241- propertyName= " p3" );
247+ var r3 = new TestResult(passed= false , numTests= 10 ,
248+ numPassed = 5 , numFailed = 5 , propertyName= " p3" );
242249 results.pushBack(r3);
243250
244251 if !allPassed(results) {
0 commit comments