adds 12 tests

Ride-Tests/RideCoreTest.class.st

@@ -0,0 +1,94 @@
+Class {
+	#name : #RideCoreTest,
+	#superclass : #RideTest,
+	#category : #'Ride-Tests'
+}
+
+{ #category : #tests }
+RideCoreTest >> testCamelCaseToSnakeCase [
+
+	self assert: 'Some' asSnakeCase equals: 'some'.
+	self assert: 'SomeName' asSnakeCase equals: 'some_name'.
+	self assert: 'SomeLongerName' asSnakeCase equals: 'some_longer_name'
+]
+
+{ #category : #tests }
+RideCoreTest >> testDebugMode [
+
+	self deny: Ride isDebugMode.
+	self assert: RideServer defaultDebugMode equals: 0
+]
+
+{ #category : #tests }
+RideCoreTest >> testDefaultHttpBind [
+
+
+	self assert: RideServer defaultHttpBind equals: '0.0.0.0'
+]
+
+{ #category : #tests }
+RideCoreTest >> testDefaultHttpPort [
+
+	self assert: RideServer defaultHttpPort equals: 3004
+]
+
+{ #category : #tests }
+RideCoreTest >> testDefaultMAXAGE [
+
+	self assert: RideServer defaultMAXAGE equals: 60 * 60
+]
+
+{ #category : #tests }
+RideCoreTest >> testDefaultSMAXAGE [
+
+	self assert: RideServer defaultSMAXAGE equals: 120 * 60
+]
+
+{ #category : #tests }
+RideCoreTest >> testDefaultWebSocketPort [
+
+	self assert: RideServer defaultWebSocketPort equals: 3008
+]
+
+{ #category : #tests }
+RideCoreTest >> testHasWebSocket [
+
+	self deny: RideServer hasWebSocket
+]
+
+{ #category : #tests }
+RideCoreTest >> testHttpBind [
+
+	self assert: RideServer httpBind equals: '0.0.0.0'
+]
+
+{ #category : #tests }
+RideCoreTest >> testHttpPort [
+
+	self assert: RideServer httpPort equals: 3004
+]
+
+{ #category : #tests }
+RideCoreTest >> testSettings [
+
+	self
+		assert: RideServer new settings asDictionary
+		equals: {  } asDictionary
+]
+
+{ #category : #tests }
+RideCoreTest >> testSnakeCaseRouteToCamelCasePresenterName [
+
+	self
+		assert: (RideNameNormalizer presenterNameFromURISegment: 'some')
+		equals: 'SomePresenter'.
+	self
+		assert:
+		(RideNameNormalizer presenterNameFromURISegment: 'some_thing')
+		equals: 'SomeThingPresenter'.
+	self
+		assert:
+		(RideNameNormalizer presenterNameFromURISegment:
+			 'some_thing_modeled')
+		equals: 'SomeThingModeledPresenter'
+]

Ride-Tests/RideTest.class.st

@@ -3,28 +3,3 @@ Class {
 	#superclass : #TestCase,
 	#category : #'Ride-Tests'
 }
-
-{ #category : #tests }
-RideTest >> testCamelCaseToSnakeCase [
-
-	self assert: 'Some' asSnakeCase equals: 'some'.
-	self assert: 'SomeName' asSnakeCase equals: 'some_name'.
-	self assert: 'SomeLongerName' asSnakeCase equals: 'some_longer_name'
-]
-
-{ #category : #tests }
-RideTest >> testSnakeCaseRouteToCamelCasePresenterName [
-
-	self
-		assert: (RideNameNormalizer presenterNameFromURISegment: 'some')
-		equals: 'SomePresenter'.
-	self
-		assert:
-		(RideNameNormalizer presenterNameFromURISegment: 'some_thing')
-		equals: 'SomeThingPresenter'.
-	self
-		assert:
-		(RideNameNormalizer presenterNameFromURISegment:
-			 'some_thing_modeled')
-		equals: 'SomeThingModeledPresenter'
-]

Ride/ManifestRide.class.st

@@ -6,3 +6,10 @@ Class {
 	#superclass : #PackageManifest,
 	#category : #'Ride-Manifest'
 }
+
+{ #category : #'code-critics' }
+ManifestRide class >> ruleSentNotImplementedRuleV1FalsePositive [
+
+	<ignoreForCoverage>
+	^ #(#(#(#RGPackageDefinition #(#Ride)) #'2024-03-02T21:33:29.969701-03:00') )
+]