--- a/RegressionTests__TimeAndDateTest.st Tue Nov 18 12:53:54 2014 +0100
+++ b/RegressionTests__TimeAndDateTest.st Tue Nov 18 17:25:00 2014 +0100
@@ -701,6 +701,34 @@
"
self new test_15_misc
"
+!
+
+test_16_readingOtherFormats
+ | ts |
+
+ "/ european format
+ ts := Timestamp readFrom: '16-09-2013 00:42:35' readStream.
+
+ self assert: ts day = 16.
+ self assert: ts month = 9.
+ self assert: ts year = 2013.
+ self assert: ts hours = 0.
+ self assert: ts minutes = 42.
+ self assert: ts seconds = 35.
+
+ "/ us format
+ ts := Timestamp readFrom: '11/21/2013 00:42:35' readStream.
+
+ self assert: ts day = 21.
+ self assert: ts month = 11.
+ self assert: ts year = 2013.
+ self assert: ts hours = 0.
+ self assert: ts minutes = 42.
+ self assert: ts seconds = 35.
+
+ "
+ self new test_16_readingOtherFormats
+ "
! !
!TimeAndDateTest class methodsFor:'documentation'!