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!"