Mercurial > hg > isophonics-drupal-site
annotate vendor/pear/archive_tar/tests/longsymlinks.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 symbolic link targets |
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__) . '/longsymlink/'; |
Chris@18 | 8 $longfilename = $dirname . str_repeat("b", 120) . " "; |
Chris@18 | 9 $symlinkfilename = $dirname . "a"; |
Chris@18 | 10 mkdir($dirname, 0777, true); |
Chris@18 | 11 touch($longfilename); |
Chris@18 | 12 symlink($longfilename, $symlinkfilename); |
Chris@18 | 13 $tar = new Archive_Tar(dirname(__FILE__) . '/testlongsymlink.tar'); |
Chris@18 | 14 $tar->addModify(array($longfilename, $symlinkfilename), '', dirname(__FILE__)); |
Chris@18 | 15 $tar = new Archive_Tar(dirname(__FILE__) . '/testlongsymlink.tar'); |
Chris@18 | 16 $files = $tar->listContent(); |
Chris@18 | 17 $file = end($files); |
Chris@18 | 18 $lastChar = $file['link'][strlen($file['link']) - 1]; |
Chris@18 | 19 $phpunit->assertEquals(' ', $lastChar, 'should contain space as last character'); |
Chris@18 | 20 echo 'tests done'; |
Chris@18 | 21 ?> |
Chris@18 | 22 --CLEAN-- |
Chris@18 | 23 <?php |
Chris@18 | 24 $dirname = dirname(__FILE__); |
Chris@18 | 25 unlink($dirname . '/testlongsymlink.tar'); |
Chris@18 | 26 system("rm -r $dirname/longsymlink"); |
Chris@18 | 27 ?> |
Chris@18 | 28 --EXPECT-- |
Chris@18 | 29 tests done |