equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:goodies/regression' }" |
3 "{ Package: 'stx:goodies/regression' }" |
2 |
4 |
3 "{ NameSpace: RegressionTests }" |
5 "{ NameSpace: RegressionTests }" |
4 |
6 |
5 TestCase subclass:#ZipArchiveTests |
7 TestCase subclass:#ZipArchiveTests |
6 instanceVariableNames:'' |
8 instanceVariableNames:'' |
7 classVariableNames:'' |
9 classVariableNames:'' |
8 poolDictionaries:'' |
10 poolDictionaries:'' |
9 category:'tests-Regression-Files and Encodings' |
11 category:'tests-Regression-File Formats' |
10 ! |
12 ! |
11 |
13 |
12 |
14 |
13 !ZipArchiveTests methodsFor:'tests'! |
15 !ZipArchiveTests methodsFor:'tests'! |
14 |
16 |
452 |
454 |
453 "Created: / 25-01-2011 / 22:55:46 / cg" |
455 "Created: / 25-01-2011 / 22:55:46 / cg" |
454 ! |
456 ! |
455 |
457 |
456 test01_notWorking |
458 test01_notWorking |
|
459 "verifies a concrete bug to be fixed" |
|
460 |
457 |archive fileContents| |
461 |archive fileContents| |
458 |
462 |
459 archive := ZipArchive readingFrom:(self badZipArchiveDataFile readStream). |
463 archive := ZipArchive readingFrom:(self badZipArchiveDataFile readStream). |
460 fileContents := archive extract:'str.dat'. |
464 fileContents := archive extract:'str.dat'. |
461 self assert:(fileContents asString = (self strDatFromZipArchiveDataFile copyReplaceString:Character cr asString withString:String crlf)) |
465 self assert:(fileContents asString = (self strDatFromZipArchiveDataFile copyReplaceString:Character cr asString withString:String crlf)) |
462 |
466 |
463 "Created: / 25-01-2011 / 22:49:10 / cg" |
467 "Created: / 25-01-2011 / 22:49:10 / cg" |
|
468 "Modified (comment): / 24-03-2019 / 13:28:42 / Claus Gittinger" |
464 ! ! |
469 ! ! |
465 |
470 |
466 !ZipArchiveTests class methodsFor:'documentation'! |
471 !ZipArchiveTests class methodsFor:'documentation'! |
467 |
472 |
468 version_CVS |
473 version_CVS |