Skip to content

Commit

Permalink
Name: PlayerST-SergeStinckwich.39
Browse files Browse the repository at this point in the history
Author: SergeStinckwich
Time: 27 May 2012, 10:02:11.577 pm
UUID: b74d575e-4dbf-483c-ab9e-addf75233ed6
Ancestors: PlayerST-SergeStinckwich.38

- Modify tests to use the new style
- 20 green tests
  • Loading branch information
SergeStinckwich committed May 27, 2012
1 parent e5e357c commit c013550
Show file tree
Hide file tree
Showing 56 changed files with 96 additions and 47 deletions.
2 changes: 2 additions & 0 deletions PlayerST.package/AbstractPositionDevice.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -11,4 +12,5 @@
"pools" : [
],
"super" : "PlayerDevice",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/LaserInterface.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -16,4 +17,5 @@
"pools" : [
],
"super" : "PlayerDevice",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerBoundingBox2d.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "SergeStinckwich 3/24/2009 14:50",
Expand All @@ -12,4 +13,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerClient.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Kernel",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
"InterfaceCodeStrings",
"PlayerActarrayCode",
Expand Down Expand Up @@ -71,4 +72,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerClientDemo.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Kernel",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "zz 2/5/2009 15:15",
Expand All @@ -11,4 +12,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
Expand Up @@ -4,10 +4,10 @@ testDecodingByteArrayAsAPlayerDevAddr
b := #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ) asByteArray.
pda := playerClient decodeDevAddressFrom: b.
self
assert: [pda host = 0].
assert: pda host = 0.
self
assert: [pda robot = 0].
assert: pda robot = 0.
self
assert: [pda interf = 0].
assert: pda interf = 0.
self
assert: [pda index = 0]
assert: pda index = 0
@@ -1,4 +1,4 @@
testing
testDefaultHostIsLocalhost
self
assert: [playerClient defaultHost = '127.0.0.1']
assert: playerClient defaultHost = '127.0.0.1'
@@ -1,4 +1,4 @@
testing
testDefaultPortIs6665
self
assert: [playerClient defaultPort == 6665]
assert: playerClient defaultPort == 6665
@@ -1,7 +1,7 @@
testing
testHeaderSizeIs40
self assert:
[ (playerClient
(playerClient
headerWithType: playerClient playerMsgtypeReq
subType: playerClient playerPlayerReqDevList
size: 0) size = 40 ]
size: 0) size = 40
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerClientTest.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Tests",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -11,4 +12,5 @@
"pools" : [
],
"super" : "TestCase",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerDevAddr.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Kernel",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "zz 2/4/2009 18:00",
Expand All @@ -14,4 +15,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerDevice.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Kernel",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "zz 2/6/2009 10:40",
Expand All @@ -15,4 +16,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerLaserData.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -20,4 +21,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -12,4 +13,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerMsgHdr.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Kernel",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -16,4 +17,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerPose2d.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "SergeStinckwich 3/24/2009 14:44",
Expand All @@ -13,4 +14,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerPose3d.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "SergeStinckwich 3/24/2009 14:47",
Expand All @@ -16,4 +17,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerPosition2dData.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "SergeStinckwich 3/24/2009 14:13",
Expand All @@ -13,4 +14,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerPosition2dGeom.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "SergeStinckwich 3/24/2009 14:16",
Expand All @@ -12,4 +13,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerSimulationData.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -11,4 +12,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerSonarData.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -12,4 +13,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerWifiData.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -19,4 +20,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/PlayerWifiLink.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -19,4 +20,5 @@
"pools" : [
],
"super" : "Object",
"traitcomposition" : "{}",
"type" : "normal" }
@@ -1,4 +1,4 @@
as yet unclassified
constants
getData
"Get the Position2D data."
^ pp2ddata
@@ -1,3 +1,3 @@
as yet unclassified
constants
getGeom
^ pp2dgeom
@@ -1,4 +1,4 @@
as yet unclassified
constants
handleResponse: aPlayermsgHdr
"Handle acknowledgement response messages."
aPlayermsgHdr subType = self playerPosition2dReqGetGeom
Expand Down
@@ -1,4 +1,4 @@
as yet unclassified
constants
isDataReady
readyPp2ddata
ifTrue: [readyPp2ddata := false.
Expand Down
@@ -1,4 +1,4 @@
as yet unclassified
constants
isGeomReady
readyPp2dgeom
ifTrue: [readyPp2dgeom := false.
Expand Down
@@ -1,4 +1,4 @@
as yet unclassified
WifiBot-Player
readDataWithPlayerMsgHeader: aHeader
"Read the position2d data values (state or geom)."
aHeader subType = self playerPosition2dDataState
Expand Down
@@ -1,4 +1,4 @@
as yet unclassified
constants
speed: aSpeedValue withTurnRate: aTurnValue
| pp |
pp := PlayerPose2d new.
Expand Down
2 changes: 2 additions & 0 deletions PlayerST.package/PositionDevice2D.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "zz 2/6/2009 11:07",
Expand All @@ -14,4 +15,5 @@
"pools" : [
],
"super" : "AbstractPositionDevice",
"traitcomposition" : "{}",
"type" : "normal" }
2 changes: 2 additions & 0 deletions PlayerST.package/SimulationInterface.class/properties.json
Expand Up @@ -2,6 +2,7 @@
"category" : "PlayerST-Interfaces",
"classinstvars" : [
],
"classtraitcomposition" : "{}",
"classvars" : [
],
"commentStamp" : "",
Expand All @@ -14,4 +15,5 @@
"pools" : [
],
"super" : "PlayerDevice",
"traitcomposition" : "{}",
"type" : "normal" }
@@ -1,2 +1,2 @@
as yet unclassified
constants
handleResponse: aPlayerMsgHdr
@@ -1,4 +1,4 @@
as yet unclassified
constants
isDataReady
readyPsdata
ifTrue: [readyPsdata := false.
Expand Down
@@ -1,4 +1,4 @@
as yet unclassified
constants
isGeomReady
readyPsgeom
ifTrue: [readyPsgeom := false.
Expand Down

0 comments on commit c013550

Please sign in to comment.