[TWiki-Dev] twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test ExtendedActionSetTests.pm,NONE,1.1 README.txt,NONE,1.1

[<cra...@us...>]

Update of /cvsroot/twikiplugins/twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test
In directory sc8-pr-cvs1:/tmp/cvs-serv17777/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test

Added Files:
	ExtendedActionSetTests.pm README.txt 
Log Message:
Fixes for problems reported by Petric Frank

--- NEW FILE: ExtendedActionSetTests.pm ---
# Tests for module ActionSet.pm
use lib ('fakewiki');
use lib ('../../../..');
use TWiki::Plugins::ActionTrackerPlugin::Action;
use TWiki::Plugins::ActionTrackerPlugin::ActionSet;
use TWiki::Plugins::ActionTrackerPlugin::Attrs;
use TWiki::Plugins::ActionTrackerPlugin::Format;
use Assert;
use TWiki::TestMaker;
use TWiki::Func;

# tests of actionset when action fields have been extended
{ package ExtendedActionSetTests;

  my $actions;

  # Build the fixture
  sub setUp {
    TWiki::TestMaker::init("ActionTrackerPlugin");
    ActionTrackerPlugin::Action::forceTime("2 Jan 2002");
    ActionTrackerPlugin::Action::extendTypes("|ap,text,12|");
    $actions = new ActionTrackerPlugin::ActionSet();
    $action = new ActionTrackerPlugin::Action("Test", "Topic", 0,
			  "who=A,due=1-Jan-02,open",
			  "Test_Main_A_open_late");
    $actions->add($action);
    $action = new ActionTrackerPlugin::Action("Test", "Topic", 1,
			  "ap=1 who=Main.A,due=1-Jan-02,closed=1-dec-01",
			  "Test_Main_A_closed_ontime");
    $actions->add($action);
    $action = new ActionTrackerPlugin::Action("Test", "Topic", 2,
			  "ap=2 who=Blah.B,due=\"29 Jan 2010\",open",
			  "Test_Blah_B_open_ontime");
    $actions->add($action);
  }

  sub tearDown {
    ActionTrackerPlugin::Action::unextendTypes();
  }

  sub testSort {
    my $chosen = $actions->search("state=open sort=\"\$ap,\$due\"");
    my $fmt = new ActionTrackerPlugin::Format("|AP|","|\$ap|","\$ap");
    my $s = $chosen->formatAsString($fmt);
    Assert::sEquals($s,"2\n\$ap\n");
  }
}

1;

--- NEW FILE: README.txt ---
The test module has a number of modules and entry points. Each module is a test class in the spirit of JUnit, and contains a set of test functions that address a specific piece of functionality, usually one of the main perl modules. The modules can be run independently using perl -w <module>.pl for example

perl -w ActionTests.pl.

The submodule directory 'faketwiki' fakes the functions of a TWiki and is used to build test fixtures. It is a long way from implementing the full functionality of TWiki!

This all ought to be converted to use PerlUnit.