>From 084a6ceac788a3c317e451698257364adfb5845a Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <address@hidden>
Date: Mon, 18 Oct 2010 09:13:46 +0200
Subject: [PATCH] Add test code for the new asCData selector

Test it on the ByteArray and the String.
---
 ChangeLog         |    6 ++++++
 tests/cobjects.ok |   13 +++++++++++++
 tests/cobjects.st |   22 ++++++++++++++++++++++
 3 files changed, 41 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index f307718..3506244 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2010-10-17  Holger Hans Peter Freyther  <address@hidden>
+
+	* tests/cobject.st: Add client code for ByteArray>>#asCData and
+	String>>#asCData.
+	* tests/cobject.ok: Update the result.
+
 2010-10-17  Paolo Bonzini <address@hidden>
 
 	* kernel/String.st: Document NULL-termination of output of
diff --git a/tests/cobjects.ok b/tests/cobjects.ok
index f241507..d05d3f1 100644
--- a/tests/cobjects.ok
+++ b/tests/cobjects.ok
@@ -136,3 +136,16 @@ Execution begins...
 'abc'
 'def'
 returned value is CPtr new: 1 "<0>"
+
+Execution begins...
+1
+2
+3
+returned value is nil
+
+Execution begins...
+$1
+$2
+$3
+$<0>
+returned value is nil
diff --git a/tests/cobjects.st b/tests/cobjects.st
index 25688ba..a902461 100644
--- a/tests/cobjects.st
+++ b/tests/cobjects.st
@@ -202,5 +202,27 @@ Eval [
     c
 ]
 
+" Play with conversion for ByteArray"
+Eval [
+    c := #(1 2 3) asByteArray.
+    d := c asCData.
+    (d at: 0) printNl.
+    (d at: 1) printNl.
+    (d at: 2) printNl.
+    d free.
+    d free.
+]
+
+" Plat with conversion for String"
+Eval [
+    c := '123' asCData.
+    (c at: 0) printNl.
+    (c at: 1) printNl.
+    (c at: 2) printNl.
+    (c at: 3) printNl.
+    c free.
+    c free.
+]
+
 " ### need a lot more!"
 
-- 
1.7.3.1