source: tests/minmax.cfa

Last change on this file was a738c68, checked in by Andrew Beach <ajbeach@…>, 7 months ago

Update max/min so n-ary version doesn't match against the 2 argument case. Also added a test.

  • Property mode set to 100644
File size: 2.6 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
7// minmax.cfa --
8//
9// Author           : Peter A. Buhr
10// Created On       : Wed May 27 17:56:53 2015
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Sat Aug 15 08:28:01 2020
13// Update Count     : 54
14//
15
16#include <fstream.hfa>
17#include <stdlib.hfa>                                                                           // min, max
18
19int main( void ) {
20        // char does not have less or greater than.
21        int ?<?( char op1, char op2 ) { return (int)op1 < (int)op2; }
22        int ?>?( char op1, char op2 ) { return (int)op1 > (int)op2; }
23
24        sout | "char\t\t\t"                                     | 'z' | ' ' | 'a' | "\tmin " | min( 'z', 'a' );
25        sout | "signed int\t\t"                         | 4 | -3 | "\tmin" | min( 4, -3 );
26        sout | "unsigned int\t\t"                       | 4u | 3u | "\tmin" | min( 4u, 3u );
27        sout | "signed long int\t\t"            | 4l | -3l | "\tmin" | min( 4l, -3l );
28        sout | "unsigned long int\t"            | 4ul | 3ul | "\tmin" | min( 4ul, 3ul );
29        sout | "signed long long int\t"         | 4ll | -3ll | "\tmin" | min( 4ll, -3ll );
30        sout | "unsigned long long int\t"       | 4ull | 3ull | "\tmin" | min( 4ull, 3ull );
31        sout | "float\t\t\t"                            | 4.0f | 3.1f | "\tmin" | min( 4.0f, 3.1f );
32        sout | "double\t\t\t"                           | 4.0 | 3.1 | "\tmin" | min( 4.0, 3.1 );
33        sout | "long double\t\t"                        | 4.0l | 3.1l | "\tmin" | min( 4.0l, 3.1l );
34
35        sout | nl;
36
37        sout | "char\t\t\t"                                     | 'z' | ' ' | 'a' | "\tmax " | max( 'z', 'a' );
38        sout | "signed int\t\t"                         | 4 | -3 | "\tmax" | max( 4, -3 );
39        sout | "unsigned int\t\t"                       | 4u | 3u | "\tmax" | max( 4u, 3u );
40        sout | "signed long int\t\t"            | 4l | -3l | "\tmax" | max( 4l, -3l );
41        sout | "unsigned long int\t"            | 4ul | 3ul | "\tmax" | max( 4ul, 3ul );
42        sout | "signed long long int\t"         | 4ll | -3ll | "\tmax" | max( 4ll, -3ll );
43        sout | "unsigned long long int\t"       | 4ull | 3ull | "\tmax" | max( 4ull, 3ull );
44        sout | "float\t\t\t"                            | 4.0f | 3.1f | "\tmax" | max( 4.0f, 3.1f );
45        sout | "double\t\t\t"                           | 4.0 | 3.1 | "\tmax" | max( 4.0, 3.1 );
46        sout | "long double\t\t"                        | 4.0l | 3.1l | "\tmax" | max( 4.0l, 3.1l );
47
48        sout | nl;
49
50        sout | "3 arguments";
51        sout | 2 | 3 | 4 | "\tmin" | min(2, 3, 4) | "\tmax" | max(2, 3, 4);
52        sout | 4 | 2 | 3 | "\tmin" | min(4, 2, 3) | "\tmax" | max(4, 2, 3);
53        sout | 3 | 4 | 2 | "\tmin" | min(3, 4, 2) | "\tmax" | max(3, 4, 2);
54
55        sout | "4 arguments";
56        sout | 3 | 2 | 5 | 4 | "\tmin" | min(3, 2, 5, 4) | "\tmax" | max(3, 2, 5, 4);
57        sout | 5 | 3 | 4 | 2 | "\tmin" | min(5, 3, 4, 2) | "\tmax" | max(5, 3, 4, 2);
58} // main
59
60// Local Variables: //
61// tab-width: 4 //
62// compile-command: "cfa minmax.cfa" //
63// End: //
Note: See TracBrowser for help on using the repository browser.