help-smalltalk
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Help-smalltalk] [PATCH 1/5] sunit: Fix TestCase new printString signals


From: Holger Hans Peter Freyther
Subject: [Help-smalltalk] [PATCH 1/5] sunit: Fix TestCase new printString signals an exception
Date: Sun, 9 Sep 2012 23:56:58 +0200

From: Holger Hans Peter Freyther <address@hidden>

Use testSelector printString as this works when testSelector
is a String/Symbol or an UndefinedObject.

2012-08-03  Holger Hans Peter Freyther  <address@hidden>

        * packages/sunit/SUnit.st: Use testSelector printString as
        the testSelector may be an UndefinedObject.
        * packages/sunit/SUnitTest.st: Add #testPrintString.
---
 packages/sunit/ChangeLog     |    6 ++++++
 packages/sunit/SUnit.st      |    2 +-
 packages/sunit/SUnitTests.st |    9 +++++++++
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/packages/sunit/ChangeLog b/packages/sunit/ChangeLog
index 8449214..56a52cf 100644
--- a/packages/sunit/ChangeLog
+++ b/packages/sunit/ChangeLog
@@ -1,3 +1,9 @@
+2012-08-03  Holger Hans Peter Freyther  <address@hidden>
+
+       * packages/sunit/SUnit.st: Use testSelector printString as
+       the testSelector may be an UndefinedObject.
+       * packages/sunit/SUnitTest.st: Add #testPrintString.
+
 2010-12-04  Paolo Bonzini  <address@hidden>
 
        * package.xml: Remove now superfluous <file> tags.
diff --git a/packages/sunit/SUnit.st b/packages/sunit/SUnit.st
index bb814f9..58b3ab0 100644
--- a/packages/sunit/SUnit.st
+++ b/packages/sunit/SUnit.st
@@ -1104,7 +1104,7 @@ When you are writing a test case method, send #assert: 
aBoolean when you want to
        aStream
            nextPutAll: self class printString;
            nextPutAll: '>>#';
-           nextPutAll: testSelector
+           nextPutAll: testSelector printString.
     ]
 ]
 
diff --git a/packages/sunit/SUnitTests.st b/packages/sunit/SUnitTests.st
index d1160a1..166ee89 100644
--- a/packages/sunit/SUnitTests.st
+++ b/packages/sunit/SUnitTests.st
@@ -276,6 +276,15 @@ if the tests are hard to write, something is probably 
wrong with the design".'>
            assert: aResult errorCount = anErrorCount
     ]
 
+    testPrintString [
+        <category: 'Testing'>
+        "Make sure that a new test can be printed"
+
+        self
+            shouldnt: [TestCase new printString] raise: Exception;
+            assert: TestCase new printString = 'TestCase>>#nil'.
+    ]
+
     isLogging [
        <category: 'Logging'>
        ^true
-- 
1.7.10.4




reply via email to

[Prev in Thread] Current Thread [Next in Thread]