Test for int64 as native call return type.

rakudo · Apr 4, 2015 · 6b27502 · 6b27502
1 parent 5692768
commit 6b27502
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/t/04-nativecall/03-simple-returns.c b/t/04-nativecall/03-simple-returns.c
@@ -3,8 +3,10 @@
 
 #ifdef WIN32
 #define DLLEXPORT __declspec(dllexport)
+typedef signed __int64 int64_t;
 #else
 #define DLLEXPORT extern
+#include <inttypes.h>
 #endif
 
 DLLEXPORT int ReturnInt()
@@ -41,3 +43,8 @@ DLLEXPORT char * ReturnNullString()
 {
     return NULL;
 }
+
+DLLEXPORT int64_t ReturnInt64()
+{
+    return 0xFFFFFFFFFF;
+}
diff --git a/t/04-nativecall/03-simple-returns.t b/t/04-nativecall/03-simple-returns.t
@@ -4,7 +4,7 @@ use lib 'lib';
 use NativeCall;
 use Test;
 
-plan(7);
+plan(8);
 
 compile_test_lib('03-simple-returns');
 
@@ -28,3 +28,6 @@ is ReturnString(), "epic cuteness", 'returning string works';
 
 sub ReturnNullString returns Str is native('./03-simple-returns') { * }
 nok ReturnNullString().defined, 'returning null string pointer';
+
+sub ReturnInt64() returns int64 is native('./03-simple-returns') { * }
+is ReturnInt64(), 0xFFFFFFFFFF, 'returning int64 works';