Merge pull request #3 from LucoMoro/DDCommand-test

Add tests for DDCommand + subclasses

src/DiscOrDance-Tests/DDCommandTest.class.st

@@ -0,0 +1,15 @@
+"
+A DDCommandTest is a test class for testing the behavior of DDCommand
+"
+Class {
+	#name : #DDCommandTest,
+	#superclass : #TestCase,
+	#category : #'DiscOrDance-Tests-Commands'
+}
+
+{ #category : #test }
+DDCommandTest >> testExecute [
+	| aCommand |
+	aCommand := DDCommand new.
+	self should: [ aCommand execute ]  raise: SubclassResponsibility.
+]

src/DiscOrDance-Tests/DDExploreCleanedCommandTest.class.st

@@ -0,0 +1,15 @@
+"
+A DDExploreCleanedCommandTest is a test class for testing the behavior of DDExploreCleanedCommand
+"
+Class {
+	#name : #DDExploreCleanedCommandTest,
+	#superclass : #TestCase,
+	#category : #'DiscOrDance-Tests-Commands'
+}
+
+{ #category : #test }
+DDExploreCleanedCommandTest >> testModelType [
+	| aCommand |
+	aCommand := DDExploreCleanedCommand new.
+	self assert: aCommand modelType equals: #clean.
+]

src/DiscOrDance-Tests/DDExploreCommandTest.class.st

@@ -0,0 +1,15 @@
+"
+A DDExploreCommandTest is a test class for testing the behavior of DDExploreCommand
+"
+Class {
+	#name : #DDExploreCommandTest,
+	#superclass : #TestCase,
+	#category : #'DiscOrDance-Tests-Commands'
+}
+
+{ #category : #test }
+DDExploreCommandTest >> testModelType [
+	| aCommand |
+	aCommand := DDExploreCommand new.
+	self should: [ aCommand modelType ]  raise: SubclassResponsibility.
+]

src/DiscOrDance-Tests/DDExploreCustomCommandTest.class.st

@@ -0,0 +1,15 @@
+"
+A DDExploreCustomCommandTest is a test class for testing the behavior of DDExploreCustomCommand
+"
+Class {
+	#name : #DDExploreCustomCommandTest,
+	#superclass : #TestCase,
+	#category : #'DiscOrDance-Tests-Commands'
+}
+
+{ #category : #tests }
+DDExploreCustomCommandTest >> testModelType [
+	| aCommand |
+	aCommand := DDExploreCustomCommand new.
+	self assert: aCommand modelType equals: #custom.
+]

src/DiscOrDance-Tests/DDExploreRawCommandTest.class.st

@@ -0,0 +1,15 @@
+"
+A DDExploreRawCommandTest is a test class for testing the behavior of DDExploreRawCommand
+"
+Class {
+	#name : #DDExploreRawCommandTest,
+	#superclass : #TestCase,
+	#category : #'DiscOrDance-Tests-Commands'
+}
+
+{ #category : #test }
+DDExploreRawCommandTest >> testModelType [
+	| aCommand |
+	aCommand := DDExploreRawCommand new.
+	self assert: aCommand modelType equals: #raw.
+]

src/DiscOrDance-Tests/DDScrapeCommandTest.class.st

@@ -0,0 +1,28 @@
+"
+A DDScrapeCommandTest is a test class for testing the behavior of DDScrapeCommand
+"
+Class {
+	#name : #DDScrapeCommandTest,
+	#superclass : #TestCase,
+	#category : #'DiscOrDance-Tests-Commands'
+}
+
+{ #category : #test }
+DDScrapeCommandTest >> testConfiguration [
+	| aCommand aConfiguration |
+	aCommand := DDScrapeCommand new. 
+	aConfiguration := DDGlobalConfiguration new.
+	aCommand configuration: aConfiguration.
+
+	self assert: aCommand configuration equals: aConfiguration.
+]
+
+{ #category : #tests }
+DDScrapeCommandTest >> testNilConfiguration [
+	| aCommand aConfiguration |
+	aCommand := DDScrapeCommand new. 
+	aConfiguration := nil.
+	aCommand configuration: aConfiguration.
+
+	self should: [ aCommand configuration ] raise: Error.
+]

src/DiscOrDance-Tests/DDServerCommandTest.class.st

@@ -0,0 +1,28 @@
+"
+A DDServerCommandTest is a test class for testing the behavior of DDServerCommand
+"
+Class {
+	#name : #DDServerCommandTest,
+	#superclass : #TestCase,
+	#category : #'DiscOrDance-Tests-Commands'
+}
+
+{ #category : #tests }
+DDServerCommandTest >> testNilServerName [
+	| aCommand |
+	aCommand := DDServerCommand new. 
+	"aCommand serverName: nil." "This is not necessary."
+
+	self should: [aCommand serverName] raise: Error.
+]
+
+{ #category : #test }
+DDServerCommandTest >> testServerName [
+	| aCommand |
+	aCommand := DDServerCommand new. 
+	aCommand serverName: 'server-name'.
+
+	self assert: aCommand serverName equals: 'server-name'.
+
+
+]