--- a/RegressionTests__FilenameTests.st Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__FilenameTests.st Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -14,9 +14,9 @@
tearDown
filename notNil ifTrue:[
- filename exists ifTrue:[
- filename remove
- ]
+ filename exists ifTrue:[
+ filename remove
+ ]
].
"Created: / 21-02-2013 / 17:56:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -35,7 +35,7 @@
filename := 'abcd' asFilename.
"Create the file"
- filename writingFileDo:[:s|].
+ filename writingFileDo:[:s|].
path := filename pathName.
"Make sure it is all ascii"
@@ -66,7 +66,7 @@
filename := 'unix' asFilename.
"Create the file"
- filename writingFileDo:[:s|].
+ filename writingFileDo:[:s|].
path := filename pathName.
"Make sure it is all ascii"
@@ -76,16 +76,16 @@
locale := OperatingSystem getEnvironment: 'LANG'.
[
- OperatingSystem setEnvironment: 'LANG' to: 'C'.
- OperatingSystem initialize. "/reinitialize locale definitions
+ OperatingSystem setEnvironment: 'LANG' to: 'C'.
+ OperatingSystem initialize. "/reinitialize locale definitions
- self assert: path asFilename exists.
- self assert: path asUnicode16String asFilename exists.
- self assert: path asUnicode32String asFilename exists.
+ self assert: path asFilename exists.
+ self assert: path asUnicode16String asFilename exists.
+ self assert: path asUnicode32String asFilename exists.
] ensure:[
- OperatingSystem setEnvironment: 'LANG' to: locale.
- OperatingSystem initialize. "/reinitialize locale definitions
+ OperatingSystem setEnvironment: 'LANG' to: locale.
+ OperatingSystem initialize. "/reinitialize locale definitions
]
"Created: / 21-02-2013 / 17:56:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"