Add ZnLogEventTest with some sanity elementary unit tests

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/clientId.st

@@ -0,0 +1,3 @@
+accessing
+clientId
+	^ 'client-1'

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/request.st

@@ -0,0 +1,3 @@
+accessing
+request
+	^ ZnRequest get: 'http://foo.com/test'

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/response.st

@@ -0,0 +1,3 @@
+accessing
+response
+	^ ZnResponse ok: (ZnEntity text: 'OK')

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/serverId.st

@@ -0,0 +1,3 @@
+accessing
+serverId
+	^ 'server-1'

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/testClientTransactionEvent.st

@@ -0,0 +1,19 @@
+testing
+testClientTransactionEvent
+	| event |
+	(event := ZnClientTransactionEvent new)
+		clientId: self clientId;
+		request: self request;
+		response: self response;
+		requestDuration: self timing requestDuration;
+		responseDuration: self timing responseDuration.
+	self assert: event id isInteger.
+	self assert: event processId isInteger.
+	self assert: event timestamp <= DateAndTime now.
+	self assert: event clientId equals: self clientId.
+	self assert: event request uri equals: self request uri.
+	self assert: event request method equals: self request method.
+	self assert: event response code equals: self response code.
+	self assert: event duration equals: self timing requestDuration + self timing responseDuration.
+	self assert: event printString isString.
+	^ event

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/testServerTransactionEvent.st

@@ -0,0 +1,18 @@
+testing
+testServerTransactionEvent
+	| event |
+	(event := ZnServerTransactionEvent new)
+		serverId: self serverId;
+		request: self request;
+		response: self response;
+		timing: self timing.
+	self assert: event id isInteger.
+	self assert: event processId isInteger.
+	self assert: event timestamp <= DateAndTime now.
+	self assert: event serverId equals: self serverId.
+	self assert: event request uri equals: self request uri.
+	self assert: event request method equals: self request method.
+	self assert: event response code equals: self response code.
+	self assert: event duration equals: self timing totalDuration.
+	self assert: event printString isString.
+	^ event

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/testSimplifiedClientTransactionEvent.st

@@ -0,0 +1,20 @@
+testing
+testSimplifiedClientTransactionEvent
+	| event |
+	(event := ZnSimplifiedClientTransactionEvent new)
+		clientId: self clientId;
+		request: self request;
+		response: self response;
+		requestDuration: self timing requestDuration;
+		responseDuration: self timing responseDuration.
+	self assert: event id isInteger.
+	self assert: event processId isInteger.
+	self assert: event timestamp <= DateAndTime now.
+	self assert: event clientId equals: self clientId.
+	self assert: event url equals: self request uri.
+	self assert: event method equals: self request method.
+	self assert: event responseCode equals: self response code.
+	self assert: event size equals: self response contentLength.
+	self assert: event duration equals: self timing requestDuration + self timing responseDuration.
+	self assert: event printString isString.
+	^ event

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/testSimplifiedServerTransactionEvent.st

@@ -0,0 +1,19 @@
+testing
+testSimplifiedServerTransactionEvent
+	| event |
+	(event := ZnSimplifiedServerTransactionEvent new)
+		serverId: self serverId;
+		request: self request;
+		response: self response;
+		timing: self timing.
+	self assert: event id isInteger.
+	self assert: event processId isInteger.
+	self assert: event timestamp <= DateAndTime now.
+	self assert: event serverId equals: self serverId.
+	self assert: event url equals: self request uri.
+	self assert: event method equals: self request method.
+	self assert: event responseCode equals: self response code.
+	self assert: event size equals: self response contentLength.
+	self assert: event duration equals: self timing totalDuration.
+	self assert: event printString isString.
+	^ event

repository/Zinc-Tests.package/ZnLogEventTest.class/instance/timing.st

@@ -0,0 +1,6 @@
+accessing
+timing
+	^ ZnServerTransactionTiming new
+			requestDuration: 1;
+			responseDuration: 2;
+			yourself

repository/Zinc-Tests.package/ZnUnixSocketClientTest.class/properties.json → repository/Zinc-Tests.package/ZnLogEventTest.class/properties.json

@@ -6,6 +6,6 @@
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [ ],
-	"name" : "ZnUnixSocketClientTest",
+	"name" : "ZnLogEventTest",
 	"type" : "normal"
 }