Mercurial > hg > isophonics-drupal-site
annotate vendor/pear/archive_tar/tests/longfilename.phpt @ 19:fa3358dc1485 tip
Add ndrum files
author | Chris Cannam |
---|---|
date | Wed, 28 Aug 2019 13:14:47 +0100 |
parents | af1871eacc83 |
children |
rev | line source |
---|---|
Chris@18 | 1 --TEST-- |
Chris@18 | 2 test trimming of characters in long filenames |
Chris@18 | 3 --SKIPIF-- |
Chris@18 | 4 --FILE-- |
Chris@18 | 5 <?php |
Chris@18 | 6 require_once dirname(__FILE__) . '/setup.php.inc'; |
Chris@18 | 7 $dirname = dirname(__FILE__) . '/longfilenamedir/'; |
Chris@18 | 8 for ($i = 0; $i < 8; $i++) { |
Chris@18 | 9 $dirname .= str_pad('', 64, 'a') . '/'; |
Chris@18 | 10 } |
Chris@18 | 11 $longfilename = $dirname . "b "; |
Chris@18 | 12 mkdir($dirname, 0777, true); |
Chris@18 | 13 touch($longfilename); |
Chris@18 | 14 $tar = new Archive_Tar(dirname(__FILE__) . '/testlongfilename.tar'); |
Chris@18 | 15 $tar->addModify(array($longfilename), '', dirname(__FILE__)); |
Chris@18 | 16 $tar = new Archive_Tar(dirname(__FILE__) . '/testlongfilename.tar'); |
Chris@18 | 17 $files = $tar->listContent(); |
Chris@18 | 18 $file = reset($files); |
Chris@18 | 19 $lastChar = $file['filename'][strlen($file['filename']) - 1]; |
Chris@18 | 20 $phpunit->assertEquals(' ', $lastChar, 'should contain space as last character'); |
Chris@18 | 21 echo 'tests done'; |
Chris@18 | 22 ?> |
Chris@18 | 23 --CLEAN-- |
Chris@18 | 24 <?php |
Chris@18 | 25 $dirname = dirname(__FILE__); |
Chris@18 | 26 unlink($dirname . '/testlongfilename.tar'); |
Chris@18 | 27 system("rm -r $dirname/longfilenamedir"); |
Chris@18 | 28 ?> |
Chris@18 | 29 --EXPECT-- |
Chris@18 | 30 tests done |