test rw variables (NativeRefs)

rakudo · Apr 3, 2015 · 9fbaf1e · 9fbaf1e
1 parent 00674de
commit 9fbaf1e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/t/04-nativecall/14-rw-attrs.c b/t/04-nativecall/14-rw-attrs.c
@@ -34,3 +34,7 @@ DLLEXPORT char GetCharOfStruct(MyStruct *obj) {
 DLLEXPORT float GetFloatOfStruct(MyStruct *obj) {
     return obj->floatval;
 }
+
+DLLEXPORT void SetFloat(float *flt) {
+    *flt = 6.66;
+}
diff --git a/t/04-nativecall/14-rw-attrs.t b/t/04-nativecall/14-rw-attrs.t
@@ -4,7 +4,7 @@ use lib 'lib';
 use NativeCall;
 use Test;
 
-plan 16;
+plan 17;
 
 compile_test_lib('14-rw-attrs');
 
@@ -50,5 +50,8 @@ is_approx GetDoubleOfStruct($s), 43.3, 'C confirms (double)';
 is        GetCharOfStruct($s),   44,   'C confirms (char)';
 is_approx GetFloatOfStruct($s),  45.5, 'C confirms (float)';
 
+sub SetFloat(num32 is rw) is native('./14-rw-attrs') { * }
+my num32 $a; SetFloat($a);
+is_approx $a, 6.66, 'Perl\'s rw variable was set by C (float)';
 
 # vim:ft=perl6