author | Claus Gittinger <cg@exept.de> |
Thu, 03 Nov 2016 13:22:28 +0100 | |
changeset 1014 | 8e77e7bafd66 |
parent 807 | 5bcea0565b1b |
child 1121 | c5661215109c |
permissions | -rw-r--r-- |
7 | 1 |
"{ Package: 'stx:goodies/monticello/test' }" |
2 |
||
3 |
MCRepositoryTest subclass:#MCDirectoryRepositoryTest |
|
4 |
instanceVariableNames:'directory' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
807
5bcea0565b1b
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
7
diff
changeset
|
7 |
category:'SCM-Monticello-Tests' |
7 | 8 |
! |
9 |
||
10 |
||
11 |
!MCDirectoryRepositoryTest methodsFor:'as yet unclassified'! |
|
12 |
||
13 |
addVersion: aVersion |
|
14 |
| file | |
|
15 |
file _ FileStream newFileNamed: (directory fullNameFor: aVersion fileName). |
|
16 |
aVersion fileOutOn: file. |
|
17 |
file close. |
|
18 |
! |
|
19 |
||
20 |
directory |
|
21 |
directory ifNil: |
|
22 |
[directory _ FileDirectory default directoryNamed: 'mctest'. |
|
23 |
directory assureExistence]. |
|
24 |
^ directory |
|
25 |
! |
|
26 |
||
27 |
setUp |
|
28 |
repository _ MCDirectoryRepository new directory: self directory |
|
29 |
! |
|
30 |
||
31 |
tearDown |
|
32 |
self directory recursiveDelete |
|
33 |
! ! |
|
34 |
||
35 |
!MCDirectoryRepositoryTest class methodsFor:'documentation'! |
|
36 |
||
37 |
version |
|
807
5bcea0565b1b
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
7
diff
changeset
|
38 |
^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCDirectoryRepositoryTest.st,v 1.2 2013-05-29 00:00:31 vrany Exp $' |
7 | 39 |
! ! |
807
5bcea0565b1b
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
7
diff
changeset
|
40 |