source: tests/vector.cfa @ 0f5da65

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprpthread-emulationqualifiedEnum
Last change on this file since 0f5da65 was 200fcb3, checked in by Peter A. Buhr <pabuhr@…>, 6 years ago

add auto newline to sout, change endl to nl

  • Property mode set to 100644
File size: 1.4 KB
Line 
1//
2// Cforall Version 1.0.0 Copyright (C) 2016 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// vector.cfa --
8//
9// Author           : Thierry Delisle
10// Created On       : Mon Jul  4 23:36:19 2016
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Tue Dec  4 22:02:39 2018
13// Update Count     : 29
14//
15
16#include <fstream.hfa>
17#include <vector.hfa>
18
19#undef assert
20#define assert(x)                                                               \
21        do {                                                                            \
22                if ( !(x) ) {                                                   \
23                        sout | "CHECK failed :" | #x | "at" | __FILE__ | " :" | __LINE__;       \
24                        abort();                                                        \
25                }                                                                               \
26        } while( 0 == 1 )
27
28int main() {
29        vector( int ) iv;
30
31        assert( empty( &iv ) );
32        assert( size( &iv ) == 0 );
33        sout | size( &iv );
34
35        push_back( &iv, 1 );
36        assert( size( &iv ) == 1 );
37        sout | size( &iv );
38
39        push_back( &iv, 2 );
40        assert( size( &iv ) == 2 );
41        sout | size( &iv );
42
43        push_back( &iv, 3 );
44        assert( size( &iv ) == 3 );
45        sout | size( &iv );
46
47        assert( !empty( &iv ) );
48        assert( size( &iv ) == 3 );
49        assert( at( &iv, 0 ) == 1 );
50        assert( (&iv)[0] == 1 );
51        assert( at( &iv, 1 ) == 2 );
52        assert( (&iv)[1] == 2 );
53        assert( at( &iv, 2 ) == 3 );
54        assert( (&iv)[2] == 3 );
55
56        clear( &iv );
57
58        assert( empty( &iv ) );
59        assert( size( &iv ) == 0 );
60        sout | size( &iv );
61}
62
63// Local Variables: //
64// tab-width: 4 //
65// compile-command: "cfa vector.cfa" //
66// End: //
Note: See TracBrowser for help on using the repository browser.