author | Claus Gittinger <cg@exept.de> |
Thu, 14 Apr 2016 19:08:20 +0200 | |
changeset 1393 | 50384f233a0f |
parent 1260 | 0b8fafd06650 |
child 1447 | 2351db93aa5b |
child 1499 | 26a16a04219b |
permissions | -rw-r--r-- |
1259 | 1 |
"{ Package: 'exept:regression' }" |
2 |
||
3 |
"{ NameSpace: RegressionTests }" |
|
4 |
||
5 |
TestCase subclass:#DirectoryStreamTest |
|
6 |
instanceVariableNames:'' |
|
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'tests-Regression-Streams' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!DirectoryStreamTest methodsFor:'cleanup'! |
|
14 |
||
15 |
tearDown |
|
16 |
self testDirName recursiveRemove |
|
17 |
! ! |
|
18 |
||
19 |
!DirectoryStreamTest methodsFor:'helpers'! |
|
20 |
||
21 |
testDirName |
|
22 |
^ 'testDir' asFilename |
|
23 |
! ! |
|
24 |
||
25 |
!DirectoryStreamTest methodsFor:'tests'! |
|
26 |
||
27 |
test01 |
|
28 |
"basic open for appending." |
|
29 |
||
1260
0b8fafd06650
class: RegressionTests::DirectoryStreamTest
Claus Gittinger <cg@exept.de>
parents:
1259
diff
changeset
|
30 |
|s dir t| |
1259 | 31 |
|
32 |
dir := self testDirName. |
|
33 |
dir asFilename makeDirectory. |
|
34 |
s := DirectoryStream directoryNamed:dir. |
|
35 |
||
36 |
self assert:s atEnd. |
|
37 |
self assert:s nextLine isNil. |
|
38 |
||
39 |
s close. |
|
40 |
||
41 |
self assert:dir asFilename directoryContents size == 0. |
|
42 |
||
43 |
(dir asFilename construct:'file1') writingFileDo:[:s | s nextPutAll:'foo']. |
|
44 |
||
45 |
dir := self testDirName. |
|
46 |
dir asFilename makeDirectory. |
|
47 |
s := DirectoryStream directoryNamed:dir. |
|
48 |
||
49 |
self assert:s atEnd not. |
|
1260
0b8fafd06650
class: RegressionTests::DirectoryStreamTest
Claus Gittinger <cg@exept.de>
parents:
1259
diff
changeset
|
50 |
self assert:(t := s nextLine) = 'file1'. |
0b8fafd06650
class: RegressionTests::DirectoryStreamTest
Claus Gittinger <cg@exept.de>
parents:
1259
diff
changeset
|
51 |
self assert:s atEnd. |
1259 | 52 |
self assert:s nextLine isNil. |
53 |
||
54 |
s close. |
|
55 |
||
56 |
self assert:dir asFilename directoryContents size == 1. |
|
57 |
||
58 |
" |
|
59 |
self new test01 |
|
60 |
" |
|
61 |
! ! |
|
62 |
||
63 |
!DirectoryStreamTest class methodsFor:'documentation'! |
|
64 |
||
65 |
version |
|
66 |
^ '$Header$' |
|
67 |
! |
|
68 |
||
69 |
version_CVS |
|
70 |
^ '$Header$' |
|
71 |
! ! |
|
72 |