RegressionTests__TimeAndDateTest.st
changeset 1244 850ca3a30a23
parent 1233 c72fec37a673
child 1277 8cebe2c950ad
--- 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'!