start on unit test for PEAR_Common

diff --git a/pear/tests/pear_common_analyzeSC.phpt b/pear/tests/pear_common_analyzeSC.phpt
new file mode 100644 (file)
index 0000000..8a70096
--- /dev/null
+++ b/pear/tests/pear_common_analyzeSC.phpt
@@ -0,0 +1,128 @@
+--TEST--
+PEAR_Common::analyzeSourceCode test
+--SKIPIF--
+<?php
+if (!function_exists('token_get_all')) {
+    echo 'skip';
+}
+?>
+--FILE--
+<?php
+
+require_once "PEAR/Common.php";
+
+$x = PEAR_Common::analyzeSourceCode('=+"\\//452');
+echo "first test: returns false with non-existing filename? ";
+echo $x ? "no\n" : "yes\n";
+
+$testdir = dirname(__FILE__) . DIRECTORY_SEPARATOR . 'pear_common_analyzeSCtest';
+mkdir($testdir);
+
+$test1 = '
+<?php
+::error();
+?>
+';
+$fp = fopen($testdir . DIRECTORY_SEPARATOR . 'test1.php', 'w');
+fwrite($fp, $test1);
+fclose($fp);
+
+$ret = PEAR_Common::analyzeSourceCode($testdir . DIRECTORY_SEPARATOR . 'test1.php');
+echo "second test: returns false with invalid PHP? ";
+echo $ret ? "no\n" : "yes\n";
+unlink($testdir . DIRECTORY_SEPARATOR . 'test1.php');
+
+$test3 = '
+<?php
+class test
+{
+    class test2 {
+    }
+}
+?>
+';
+$fp = fopen($testdir . DIRECTORY_SEPARATOR . 'test3.php', 'w');
+fwrite($fp, $test3);
+fclose($fp);
+
+$ret = PEAR_Common::analyzeSourceCode($testdir . DIRECTORY_SEPARATOR . 'test3.php');
+echo "fourth test: returns false with invalid PHP? ";
+echo $ret ? "no\n" : "yes\n";
+unlink($testdir . DIRECTORY_SEPARATOR . 'test3.php');
+
+$test4 = '
+<?php
+function test()
+{
+    class test2 {
+    }
+}
+?>
+';
+$fp = fopen($testdir . DIRECTORY_SEPARATOR . 'test4.php', 'w');
+fwrite($fp, $test4);
+fclose($fp);
+
+$ret = PEAR_Common::analyzeSourceCode($testdir . DIRECTORY_SEPARATOR . 'test4.php');
+echo "fifth test: returns false with invalid PHP? ";
+echo $ret ? "no\n" : "yes\n";
+unlink($testdir . DIRECTORY_SEPARATOR . 'test4.php');
+
+$test5 = '
+<?php
+function test()
+{
+}
+class test2 {
+    function test2() {
+    }
+}
+
+?>
+';
+$fp = fopen($testdir . DIRECTORY_SEPARATOR . 'test5.php', 'w');
+fwrite($fp, $test5);
+fclose($fp);
+
+$ret = PEAR_Common::analyzeSourceCode($testdir . DIRECTORY_SEPARATOR . 'test5.php');
+echo "sixth test: returns false with valid PHP? ";
+echo $ret ? "no\n" : "yes\n";
+var_dump($ret);
+unlink($testdir . DIRECTORY_SEPARATOR . 'test5.php');
+
+rmdir($testdir);
+?>
+--GET--
+--POST--
+--EXPECT--
+first test: returns false with non-existing filename? yes
+second test: returns false with invalid PHP? yes
+fourth test: returns false with invalid PHP? yes
+fifth test: returns false with invalid PHP? yes
+sixth test: returns false with valid PHP? no
+array(5) {
+  ["declared_classes"]=>
+  array(1) {
+    [0]=>
+    string(5) "test2"
+  }
+  ["declared_methods"]=>
+  array(1) {
+    ["test2"]=>
+    array(1) {
+      [0]=>
+      string(5) "test2"
+    }
+  }
+  ["declared_functions"]=>
+  array(1) {
+    [0]=>
+    string(4) "test"
+  }
+  ["used_classes"]=>
+  array(0) {
+  }
+  ["inheritance"]=>
+  array(0) {
+  }
+}
\ No newline at end of file