spamspan_test.inc in SpamSpan filter 5

File

test/spamspan_test.inc

<?php

//  A simple test framework for testing the spamspan regexp
//  This should be run from the command line as php spamspan_test.inc
require_once 'simpletest/unit_tester.php';
require_once 'simpletest/reporter.php';
require_once '../spamspan.module';
class Main extends UnitTestCase {
  function checkEmail($prefix = '', $suffix = '', $original = "", $shouldbe = '') {

    // Simple utility function to check that email within text is converted
    $this
      ->assertEqual($prefix . $shouldbe . $suffix, spamspan($prefix . $original . $suffix, ""));
  }
  function testNoEmail() {

    // test that strings without emails a passed unchanged
    $noemails = array(
      'no email here',
      'oneword',
      '',
      'notan@email',
      'notan@email either',
      'some text and notan.email@something here',
    );
    while ($text = each($noemails)) {
      $this
        ->assertEqual(spamspan($text, ""), $text);
    }
  }
  function testEmail() {

    // check that emails in odd places are properly converted
    // a list of address, together with what they should look like
    $emails = array(
      '[e-mail]' => '<span class="spamspan"><span class="u">user</span> [at] <span class="d">example [dot] com</span></span>',
      '[e-mail]' => '<span class="spamspan"><span class="u">user</span> [at] <span class="d">example [dot] co [dot] uk</span></span>',
      '[e-mail]' => '<span class="spamspan"><span class="u">user</span> [at] <span class="d">example [dot] museum</span></span>',
      '[e-mail]' => '<span class="spamspan"><span class="u">user [dot] user</span> [at] <span class="d">example [dot] com</span></span>',
      'user\'[e-mail]' => '<span class="spamspan"><span class="u">user\'user</span> [at] <span class="d">example [dot] com</span></span>',
      '[e-mail]' => '<span class="spamspan"><span class="u">user-user</span> [at] <span class="d">example [dot] com</span></span>',
      '[e-mail]' => '<span class="spamspan"><span class="u">user_user</span> [at] <span class="d">example [dot] com</span></span>',
      '[e-mail]' => '<span class="spamspan"><span class="u">user+user</span> [at] <span class="d">example [dot] com</span></span>',
    );
    print "Test for bare email\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("", "", $original, $shouldbe);
    }
    print "Test for email with text at the start\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("some text here ", "", $original, $shouldbe);
    }
    print "Test for email with text at the end\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("", " some text here", $original, $shouldbe);
    }
    print "Test for email with text at the start and end\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("some text here ", " some text here", $original, $shouldbe);
    }
    print "Test for email with tags at the start and end\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("<p>", "</p>", $original, $shouldbe);
    }
    print "Test for email with trailing commas\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("some text here. ", ", Next sentence", $original, $shouldbe);
    }
    print "Test for email with trailing full stop\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("some text here. ", ". Next sentence", $original, $shouldbe);
    }
    print "Test for email with preceding tag\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("<p>", "</p>", $original, $shouldbe);
    }
    print "Test for email with preceding tag, and no closing tag\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("<dt>", ". no tag here", $original, $shouldbe);
    }
    print "Test for brackets\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("(", ")", $original, $shouldbe);
    }
    print "Test for angle brackets\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("<", ">", $original, $shouldbe);
    }
    print "Test for newlines\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail("\n", "\n", $original, $shouldbe);
    }
    print "Test for spaces\n";
    foreach ($emails as $original => $shouldbe) {
      $this
        ->checkEmail(" ", " ", $original, $shouldbe);
    }
  }
  function testMailto() {
    $this
      ->assertEqual(spamspan_convertmailto("<a href='mailto:[e-mail]'></a>"), "[e-mail]");
    $this
      ->assertEqual(spamspan_convertmailto("<a href='[e-mail]'></a>"), "<a href='[e-mail]'></a>");
    $this
      ->assertEqual(spamspan_convertmailto("<a href='mailto:[e-mail]'>some text</a>text"), "[e-mail]");
    $this
      ->assertEqual(spamspan_convertmailto("<a href='mailto:[e-mail]'></a>"), "[e-mail]");
    $this
      ->assertEqual(spamspan_convertmailto("<a attribute='something' href='mailto:[e-mail]' attribute='something'></a>"), "[e-mail]");
    $this
      ->assertEqual(spamspan_convertmailto('<a href="mailto:[e-mail]">some text</a>'), "[e-mail]");

    // ignore parameters
    $this
      ->assertEqual(spamspan_convertmailto('<a href="mailto:[e-mail]">some text</a>'), "[e-mail]");

    // allow nested tags
    $this
      ->assertEqual(spamspan_convertmailto('<a href="mailto:[e-mail]"><em>some text</em></a>'), "[e-mail]");
  }

}

// set up a dummy function, because variable_get is not available outside drupal
function variable_get($one, $two) {
  return $two;
}
$test =& new Main();
$test
  ->run(new TextReporter());

Functions

Name	Description
variable_get

Classes

Name	Description
Main