basis/alien/prettyprint/prettyprint-tests.factor

   1 USING: alien.c-types alien.prettyprint alien.syntax\r
   2 io.streams.string see tools.test prettyprint\r
   3 io.encodings.ascii ;\r
   4 IN: alien.prettyprint.tests\r
   5 \r
   6 CONSTANT: FOO 10\r
   7 \r
   8 FUNCTION: int function_test ( float x, int[4][FOO] y, char* z, ushort *w ) ;\r
   9 \r
  10 [ "USING: alien.c-types alien.syntax ;\r
  11 IN: alien.prettyprint.tests\r
  12 FUNCTION: int function_test\r
  13     ( float x, int[4][FOO] y, char* z, ushort* w ) ; inline\r
  14 " ] [\r
  15     [ \ function_test see ] with-string-writer\r
  16 ] unit-test\r
  17 \r
  18 FUNCTION-ALIAS: function-test int function_test\r
  19     ( float x, int[4][FOO] y, char* z, ushort *w ) ;\r
  20 \r
  21 [ "USING: alien.c-types alien.syntax ;\r
  22 IN: alien.prettyprint.tests\r
  23 FUNCTION-ALIAS: function-test int function_test\r
  24     ( float x, int[4][FOO] y, char* z, ushort* w ) ; inline\r
  25 " ] [\r
  26     [ \ function-test see ] with-string-writer\r
  27 ] unit-test\r
  28 \r
  29 TYPEDEF: c-string[ascii] string-typedef\r
  30 TYPEDEF: char[1][2][3] array-typedef\r
  31 \r
  32 [ "USING: alien.c-types alien.syntax ;\r
  33 IN: alien.prettyprint.tests\r
  34 TYPEDEF: c-string[ascii] string-typedef\r
  35 " ] [\r
  36     [ \ string-typedef see ] with-string-writer\r
  37 ] unit-test\r
  38 \r
  39 [ "USING: alien.c-types alien.syntax ;\r
  40 IN: alien.prettyprint.tests\r
  41 TYPEDEF: char[1][2][3] array-typedef\r
  42 " ] [\r
  43     [ \ array-typedef see ] with-string-writer\r
  44 ] unit-test\r
  45 \r
  46 C-TYPE: opaque-c-type\r
  47 \r
  48 [ "USING: alien.syntax ;\r
  49 IN: alien.prettyprint.tests\r
  50 C-TYPE: opaque-c-type\r
  51 " ] [\r
  52     [ \ opaque-c-type see ] with-string-writer\r
  53 ] unit-test\r
  54 \r
  55 TYPEDEF: pointer: int pint\r
  56 \r
  57 [ "USING: alien.c-types alien.syntax ;\r
  58 IN: alien.prettyprint.tests\r
  59 TYPEDEF: int* pint\r
  60 " ] [\r
  61     [ \ pint see ] with-string-writer\r
  62 ] unit-test\r
  63 \r
  64 [ "pointer: int" ] [ pointer: int unparse ] unit-test\r
  65 \r
  66 CALLBACK: void callback-test ( int x, float[4] y ) ;\r
  67 \r
  68 [ "USING: alien.c-types alien.syntax ;\r
  69 IN: alien.prettyprint.tests\r
  70 CALLBACK: void callback-test ( int x, float[4] y ) ;\r
  71 " ] [\r
  72     [ \ callback-test see ] with-string-writer\r
  73 ] unit-test\r