new failing test for commitWrite()

diff --git a/ext/phar/tests/phar_commitwrite.phpt b/ext/phar/tests/phar_commitwrite.phpt
new file mode 100644 (file)
index 0000000..e96daf5
--- /dev/null
+++ b/ext/phar/tests/phar_commitwrite.phpt
@@ -0,0 +1,30 @@
+--TEST--
+Phar::commitWrite()
+--SKIPIF--
+<?php if (!extension_loaded("phar")) print "skip"; ?>
+--INI--
+phar.require_hash=0
+phar.readonly=0
+--FILE--
+<?php
+$p = new Phar(dirname(__FILE__) . '/brandnewphar.phar', 0, 'brandnewphar.phar');
+$p['file1.txt'] = 'hi';
+$p->commitWrite();
+var_dump($p->getStub());
+$p->commitWrite("<?php
+function __autoload($class)
+{
+    include 'phar://' . str_replace('_', '/', $class);
+}
+Phar::mapPhar('myphar.phar');
+include 'phar://myphar.phar/startup.php';
+__HALT_COMPILER();
+?>");
+var_dump($p->getStub());
+?>
+===DONE===
+--CLEAN--
+<?php 
+unlink(dirname(__FILE__) . '/brandnewphar.phar');
+?>
+--EXPECT--
\ No newline at end of file