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