1 ! Copyright (C) 2010 Erik Charlebois.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien.c-types alien.enums alien.enums.private
4 alien.syntax sequences tools.test words ;
7 ENUM: color_t red { green 3 } blue ;
8 ENUM: instrument_t < ushort trombone trumpet ;
10 { { red green blue 5 } }
11 [ { 0 3 4 5 } [ <color_t> ] map ] unit-test
14 [ { red green blue 5 } [ enum>number ] map ] unit-test
16 { { -1 trombone trumpet } }
17 [ { -1 0 1 } [ <instrument_t> ] map ] unit-test
20 [ { -1 trombone trumpet } [ enum>number ] map ] unit-test
23 [ color_t "c-type" word-prop enum-c-type? ] unit-test
26 [ ushort "c-type" word-prop enum-c-type? ] unit-test
29 [ color_t "c-type" word-prop base-type>> ] unit-test
32 [ instrument_t "c-type" word-prop base-type>> ] unit-test
34 { V{ { red 0 } { green 3 } { blue 4 } } }
35 [ color_t "c-type" word-prop members>> ] unit-test
37 ENUM: colores { rojo red } { verde green } { azul blue } { colorado rojo } ;
39 [ { 0 3 4 0 } ] [ { rojo verde azul colorado } [ enum>number ] map ] unit-test
41 SYMBOLS: couleurs rouge vert bleu jaune azure ;
51 [ { 0 3 4 14 4 } ] [ { rouge vert bleu jaune azure } [ enum>number ] map ] unit-test