--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/suite/main.c	Thu Mar 19 22:24:28 2015 +0100
@@ -0,0 +1,188 @@
+/*
+
+ Package: dyncall
+ Library: test
+ File: test/suite/main.c
+ Description: 
+ License:
+
+   Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+
+#include "../../dyncall/dyncall.h"
+#include "config.h"
+#include "../../dyncall/dyncall_value.h"
+#include <math.h>
+#include <stdlib.h>
+#include "../common/platformInit.h"
+#include "../common/platformInit.c" /* Impl. for functions only used in this translation unit */
+
+
+int       getId();
+DCpointer getFunc(int x);
+DCValue*  getArg(int pos);
+
+
+typedef double precise;
+
+
+DCbool     valueBool    [NARGS];
+DCshort    valueShort   [NARGS];
+DCchar     valueChar    [NARGS];
+DCint      valueInt     [NARGS];
+DClonglong valueLongLong[NARGS];
+DCdouble   valueDouble  [NARGS];
+DCpointer  valuePointer [NARGS];
+DCfloat    valueFloat   [NARGS];
+
+enum {
+  ID_DOUBLE = 0,
+  ID_LONGLONG,
+  ID_INT,
+  ID_POINTER,
+  ID_BOOL,
+  ID_FLOAT
+};
+
+DCbool equals(int select, int pos, void* data)
+{
+  switch(select)
+  {
+    case ID_BOOL:     return ( getArg(pos)->B == valueBool    [pos] ); break;
+    case ID_INT:      return ( getArg(pos)->i == valueInt     [pos] ); break;
+    case ID_LONGLONG: return ( getArg(pos)->l == valueLongLong[pos] ); break;
+    case ID_DOUBLE:   return ( getArg(pos)->d == valueDouble  [pos] ); break;
+    case ID_POINTER:  return ( getArg(pos)->p == valuePointer [pos] ); break;
+    case ID_FLOAT:    return ( getArg(pos)->f == valueFloat   [pos] ); break;
+  }
+  return DC_FALSE;
+}
+
+
+void clearValues();
+
+
+void init()
+{
+  int i;
+  for(i=0; i<NARGS; ++i)
+  {
+    valueBool[i]     = (DCbool)((i % 1) ? DC_TRUE : DC_FALSE);
+    valueInt[i]      = (DCint)     (i);
+    valueLongLong[i] = (DClonglong)(i);
+    valueDouble[i]   = (DCdouble)  (i);
+    valuePointer[i]  = (DCpointer) (ptrdiff_t) (i);
+    valueFloat[i]    = (DCfloat)   (i);
+  } 
+}
+
+
+void push(DCCallVM* pCall, int select, int pos)
+{
+  switch(select) 
+  {
+    case ID_BOOL: dcArgBool    ( pCall, valueBool    [pos] ); break;
+    case ID_INT: dcArgInt     ( pCall, valueInt     [pos] ); break;
+    case ID_LONGLONG: dcArgLongLong( pCall, valueLongLong[pos] ); break;
+    case ID_DOUBLE: dcArgDouble  ( pCall, valueDouble  [pos] ); break;
+    case ID_POINTER: dcArgPointer ( pCall, valuePointer [pos] ); break;
+    case ID_FLOAT: dcArgFloat   ( pCall, valueFloat   [pos] ); break;
+  }
+}
+
+
+#define assert(x) if (!(x)) return DC_FALSE
+
+
+DCbool test(int x)
+{
+  int y = x;
+  int selects[NARGS] = { 0, };
+  int pos, i;
+
+  DCCallVM* pCall = dcNewCallVM(4096);
+  dcReset(pCall);
+  clearValues();
+
+  for(pos = 0; y>0; ++pos) 
+  {
+    int select = (y-1) % NTYPES; 
+    selects[pos] = select;
+    push(pCall,select,pos);
+    y = (y-1) / NTYPES;
+  }
+  dcCallVoid(pCall,getFunc(x));
+  
+  assert( getId() == x );
+  
+  for(i = 0;i<pos;++i) {
+    assert( equals( selects[i], i, getArg(i) ) );      
+  }
+  
+  dcFree(pCall);
+  return DC_TRUE;
+}
+
+
+int powerfact(int x, int n)
+{
+  if(n==0) return 0;
+  return (int)(pow((double)x,n)+powerfact(x,n-1));
+}
+
+
+DCbool run_range(int from, int to)
+{
+  DCbool tr = DC_TRUE, r;
+  int i;
+  for(i=from; i<to; ++i) {
+    printf("%d:",i);
+    r = test(i);
+    printf("%d\n", r);
+    tr &= r;
+  }
+  return tr;
+}
+
+
+int main(int argc, char* argv[])
+{
+  DCbool success = DC_FALSE;
+
+  dcTest_initPlatform();
+
+  init();
+  if (argc == 2) {
+    int index = atoi(argv[1]);
+    success = run_range( index, index+1 ); 
+  } else if (argc == 3) {
+    int from = atoi(argv[1]);
+    int to   = atoi(argv[2])+1;
+    success = run_range(from,to);
+  } else {
+    int ncalls = powerfact(NTYPES,NARGS)+1;
+    success = run_range(0,ncalls);
+  }
+
+  printf("result: suite: %s\n", success ? "1" : "0");
+
+  dcTest_deInitPlatform();
+
+  return (success) ? 0 : -1;
+}