if ($pos === false) {
    $pos = strlen($testfile);
}
$testfile = substr($testfile, 0, $pos);
$result = TagFilter::Run($testfile, $options);
echo $result . "\n\n";
echo "-------------------\n\n";
echo "Testing Word HTML cleanup\n";
echo "-------------------------\n";
$testfile = file_get_contents("test_word.txt");
$pos = strpos($testfile, "@EXIT@");
if ($pos === false) {
    $pos = strlen($testfile);
}
$testfile = substr($testfile, 0, $pos);
$result = TagFilter::Run($testfile, $options);
echo $result . "\n\n";
echo "-------------------------\n\n";
$html = new simple_html_dom();
$web = new WebBrowser();
$result = $web->Process("http://www.barebonescms.com/");
if (!$result["success"]) {
    echo "[FAIL] An error occurred.  " . $result["error"] . "\n";
} else {
    if ($result["response"]["code"] != 200) {
        echo "[FAIL] An unexpected response code was returned.  " . $result["response"]["line"] . "\n";
    } else {
        echo "[PASS] The expected response was returned.\n";
        $html->load($result["body"]);
        $rows = $html->find('a[href]');
        foreach ($rows as $row) {