Update NEWS files
[synfig.git] / ETL / test / value.cpp
1 /*! ========================================================================
2 ** Extended Template and Library Test Suite
3 ** Generic Value Test
4 ** $Id$
5 **
6 ** Copyright (c) 2002 Adrian Bentley
7 **
8 ** This package is free software; you can redistribute it and/or
9 ** modify it under the terms of the GNU General Public License as
10 ** published by the Free Software Foundation; either version 2 of
11 ** the License, or (at your option) any later version.
12 **
13 ** This package is distributed in the hope that it will be useful,
14 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16 ** General Public License for more details.
17 **
18 ** === N O T E S ===========================================================
19 **
20 ** ========================================================================= */
21
22 /* === H E A D E R S ======================================================= */
23
24 #include <ETL/value>
25 #include <stdio.h>
26
27 /* === M A C R O S ========================================================= */
28
29 using namespace etl;
30
31 /* === C L A S S E S ======================================================= */
32
33 /* === P R O C E D U R E S ================================================= */
34
35 /* === E N T R Y P O I N T ================================================= */
36
37 struct stupidv
38 {
39         float x,y;
40
41         stupidv(float xin=0, float yin=0) :x(xin),y(yin) {}
42         void print() const
43         {
44                 printf("(x=%f,y=%f)\n",x,y);
45         }
46 };
47
48 struct stupidp
49 {
50         float z,w;
51
52         stupidp(float zin=0, float win=0) :z(zin),w(win) {}
53
54         void print() const
55         {
56                 printf("(z=%f,w=%f)\n",z,w);
57         }
58 };
59
60 template <>
61 class etl::value_store_type<stupidp>
62 {
63         typedef stupidv value_type;
64 };
65
66 int main()
67 {
68         try
69         {
70         value   v(10.0); //construction
71         value   v2;              //default construct...
72
73         //get type...
74         printf("type of 10.0: %s\n", v.type().name());
75
76         v2 = 1; //assignment
77         printf("type of 1: %s\n", v2.type().name());
78
79         //extract int test
80
81         int *pi = value_cast<int>(&v2);
82         printf("v2 is an int(%p)\n", pi);
83         printf("        %d\n", value_cast<int>(v2));
84
85         printf("        const version: %d\n", value_cast<int>(value(5)));
86
87         v = 'c'; //assignment again...
88         printf("type of c: %s\n", v.type().name());
89
90         v2 = v; //value assignment
91         printf("type of v2 , v: %s , %s\n", v2.type().name(), v.type().name());
92
93         //random type test
94         v = stupidv(0,1);
95         printf("type of vec: %s\n", v.type().name());
96
97         //type cast with binary change test
98         value_cast<stupidp>(&v)->print();
99         value_cast<stupidv>(stupidp(5,10)).print(); //copy test
100
101         printf("type of v: %s\n", v.type().name());
102         printf("type of v2: %s\n", v2.type().name());
103         v.swap(v2);
104         printf("type of v: %s\n", v.type().name());
105         printf("type of v2: %s\n", v2.type().name());
106
107         // test the exception throwing...
108         value_cast<int>(stupidp(6,66));
109
110         }catch(const etl::bad_value_cast &e)
111         {
112                 printf("        Exploded: %s\n",e.what());
113         }catch(...)
114         {
115                 printf("        Exploded\n");
116         }
117
118         return 0;
119 }