From d5cb64ccb24d48d4d0ab57395f6b1d87bcfe66d6 Mon Sep 17 00:00:00 2001
From: Julien Ammous <schmurfy@gmail.com>
Date: Mon, 3 Jun 2013 11:28:41 +0200
Subject: [PATCH] added failing test

---
 test/string1.rb | 6 ++++++
 1 file changed, 6 insertions(+)

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