--- a/core/tests/RGCommentTest.st	Fri Dec 18 12:22:51 2020 +0000
+++ b/core/tests/RGCommentTest.st	Wed Dec 23 08:46:20 2020 +0000
@@ -1,3 +1,6 @@
+"
+COPYRIGHT (c) 2020 LabWare
+"
 "{ Package: 'stx:goodies/ring/core/tests' }"
 
 "{ NameSpace: Smalltalk }"
@@ -9,8 +12,15 @@
 	category:'Ring-Tests-Core'
 !
 
-RGCommentTest comment:''
-!
+!RGCommentTest class methodsFor:'documentation'!
+
+copyright
+"
+COPYRIGHT (c) 2020 LabWare
+
+
+"
+! !
 
 !RGCommentTest methodsFor:'tests'!
 
@@ -56,8 +66,9 @@
     self assert: comment unresolvedProperties isEmpty.
     self assert: comment content equals: ''.
     self assert: comment author equals: ''.
-    self assert: (comment time isKindOf: DateAndTime).
-    
+    self assert: (comment time isKindOf: Timestamp).
+
+    "Modified: / 22-12-2020 / 20:13:04 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 testNewComment
@@ -84,8 +95,8 @@
     self assert: (comment hasUnresolvedAll: #(time name)).
     self assert: comment author equals: 'FullAuthorName'.
     
-    time := DateAndTime now.
-    self assert: comment time equals: DateAndTime new.
+    time := Timestamp now.
+    self assert: comment time equals: Timestamp epoch.
     comment time: time.
     self assert: (comment hasUnresolved: #name).
     self assert: comment time equals: time.
@@ -117,10 +128,17 @@
     self assert: (comment hasUnresolvedAll: #(time name)).
     self assert: comment author equals: 'FullAuthorName'.
     
-    time := DateAndTime now.
-    self assert: comment time equals: DateAndTime new.
+    time := Timestamp now.
+    self assert: comment time equals: Timestamp epoch.
     comment time: time.
     self assert: (comment hasUnresolved: #name).
     self assert: comment time equals: time.
 ! !
 
+!RGCommentTest class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+