Add #getTemporaryDirectory to UnixPlatform and WinPlatform

src/System-Platforms-Tests/UnixPlatformTest.class.st

@@ -0,0 +1,24 @@
+"
+An UnixPlatformTest is a test class for testing the behavior of UnixPlatform
+"
+Class {
+	#name : #UnixPlatformTest,
+	#superclass : #TestCase,
+	#category : #'System-Platforms-Tests-Unix'
+}
+
+{ #category : #tests }
+UnixPlatformTest >> testGetTemporaryDirectoryFromTMPDIR [
+
+	| value |
+	OSPlatform current isUnix ifFalse: [ ^ self skip ].
+
+	value := OSEnvironment current at: 'TMPDIR' ifAbsent: [  ].
+	[
+	| actual expected |
+	expected := '/tmp/foo'.
+	OSEnvironment current at: 'TMPDIR' put: expected.
+	actual := OSPlatform current getTemporaryDirectory.
+	self assert: actual equals: expected ] ensure: [
+		value ifNotNil: [ OSEnvironment current at: 'TMPDIR' put: value ] ]
+]

src/System-Platforms-Tests/Win32EnvironmentTest.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #Win32EnvironmentTest,
 	#superclass : #TestCase,
-	#category : #'System-Platforms-Tests-Win32'
+	#category : #'System-Platforms-Tests-Windows'
 }
 
 { #category : #tests }

src/System-Platforms-Tests/Win32WideStringTest.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #Win32WideStringTest,
 	#superclass : #TestCase,
-	#category : #'System-Platforms-Tests-Win32'
+	#category : #'System-Platforms-Tests-Windows'
 }
 
 { #category : #tests }

src/System-Platforms-Tests/WinPlatformTest.class.st

@@ -0,0 +1,21 @@
+Class {
+	#name : #WinPlatformTest,
+	#superclass : #TestCase,
+	#category : #'System-Platforms-Tests-Windows'
+}
+
+{ #category : #tests }
+WinPlatformTest >> testGetTemporaryDirectoryFromTMP [
+
+	| value |
+	OSPlatform current isWindows ifFalse: [ ^ self skip ].
+
+	value := OSEnvironment current at: 'TMP' ifAbsent: [  ].
+	[
+	| actual expected |
+	expected := 'X:\Temp\'.
+	OSEnvironment current at: 'TMP' put: expected.
+	actual := OSPlatform current getTemporaryDirectory.
+	self assert: actual equals: expected ] ensure: [
+		value ifNotNil: [ OSEnvironment current at: 'TMP' put: value ] ]
+]

src/System-Platforms/UnixPlatform.class.st

@@ -37,6 +37,14 @@ UnixPlatform >> getErrorMessage: errnum [
 	^ self ffiCall: #(char *strerror(int errnum)) module: #LibC
 ]
 
+{ #category : #accessing }
+UnixPlatform >> getTemporaryDirectory [
+
+	| tmpDir |
+	tmpDir := self environment at: 'TMPDIR' ifAbsent: [ '/tmp' ].
+	^ (tmpDir endsWith: $/) ifTrue: [ tmpDir ] ifFalse: [ tmpDir , '/' ]
+]
+
 { #category : #testing }
 UnixPlatform >> isLinux [
 	"Some Linux versions return linux, some linux-gnu, ..."

src/System-Platforms/WinPlatform.class.st

@@ -71,6 +71,29 @@ WinPlatform >> getErrorMessage: anInteger [
     ^ buffer asString
 ]
 
+{ #category : #'file paths' }
+WinPlatform >> getTempPath [
+
+  | buffer length |
+	length := self defaultMaximumPathLength.
+	buffer := (String new: length) asWin32WideString.
+	self getTempPath: length buffer: buffer.
+	^buffer asString
+]
+
+{ #category : #'file paths' }
+WinPlatform >> getTempPath: bufferLength buffer: buffer [
+
+    self ffiCall: #(long GetTempPath2W(long bufferLength,
+                            void*  buffer))
+]
+
+{ #category : #accessing }
+WinPlatform >> getTemporaryDirectory [
+
+	^ self getTempPath 
+]
+
 { #category : #testing }
 WinPlatform >> isWindows [
 	^ true