fix issue#659
2012-09-14 Thomas Girard
* tests/cobjects.st: Add CBoolean test case for issue#659.
* tests/cobjects.ok: Regenerate.
* kernel/CObject.st: Add missing CBoolean class>>#type.
diff --git a/kernel/CObject.st b/kernel/CObject.st
index 7db8d0d..f757699 100644
--- a/kernel/CObject.st
+++ b/kernel/CObject.st
@@ -1541,6 +1541,13 @@ CByte subclass: CBoolean [
+ CBoolean class >> type [
+ "Answer a CType for the receiver"
+
+
+ ^CBooleanType
+ ]
+
value [
"Get the receiver's value - answer true if it is != 0, false if it is 0."
diff --git a/tests/cobjects.ok b/tests/cobjects.ok
index bfaaa55..c90ee87 100644
--- a/tests/cobjects.ok
+++ b/tests/cobjects.ok
@@ -163,3 +163,7 @@ $2
$3
$<0>
returned value is nil
+
+Execution begins...
+true
+returned value is nil
diff --git a/tests/cobjects.st b/tests/cobjects.st
index 9aa1a51..79c95a8 100644
--- a/tests/cobjects.st
+++ b/tests/cobjects.st
@@ -238,5 +238,12 @@ Eval [
c free.
]
+" Play with conversion for Boolean"
+Eval [
+ c := CBoolean value: true.
+ c value printNl.
+ c free.
+]
+
" ### need a lot more!"