diff --git a/test/string1.rb b/test/string1.rb
index ab60b4b..2b40a7f 100644
--- a/test/string1.rb
+++ b/test/string1.rb
@@ -4,4 +4,10 @@
 
   CFunc::call(CFunc::Void, "strcpy", ptr, str)
   assert_equal "STRING", ptr.to_s
+  
+  
+  ptr2 = CFunc::UInt8[4]
+  CFunc::call(CFunc::Void, "strcpy", ptr2, "too long")
+  assert_equal "too ", ptr2.to_s
+  
 end