[TWiki-Dev] twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki TestMaker.pm,1.2,1.3

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

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

Modified Files:
	TestMaker.pm 
Log Message:
Extensive mods and new test; as described in ActionTrackerPlugin.txt

Index: TestMaker.pm
===================================================================
RCS file: /cvsroot/twikiplugins/twikiplugins/ActionTrackerPlugin/lib/TWiki/Plugins/ActionTrackerPlugin/test/fakewiki/TWiki/TestMaker.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** TestMaker.pm	27 Apr 2003 18:04:56 -0000	1.2
--- TestMaker.pm	4 May 2003 13:12:23 -0000	1.3
***************
*** 13,16 ****
--- 13,17 ----
      chop($pwd);
      purge();
+     TWiki::testinit();
      setPreferencesValue("WIKITOOLNAME","mailsender");
      setPreferencesValue("WIKIWEBMASTER","wikiwebmaster");
***************
*** 28,35 ****
      my $plugin = shift;
      my $ucw = uc($plugin);
!     open PF,"<".TWiki::TestMaker::pwd()."/../../../../../data/TWiki/$plugin.txt";
      while (<PF>) {
        if ($_ =~ /^\s+\* Set (\w+) = ([^\r\n]+)/o) {
! 	$prefs{"${ucw}_$1"} = $2;_
        }
      }
--- 29,40 ----
      my $plugin = shift;
      my $ucw = uc($plugin);
!     my $pwd = `pwd`;
!     chop($pwd);
!     my ($p,$f,$l) = caller(1);
!     print STDERR "Prefs from $pwd/../../../../../data/TWiki/$plugin.txt\n";
!     open PF,"<$pwd/../../../../../data/TWiki/$plugin.txt";
      while (<PF>) {
        if ($_ =~ /^\s+\* Set (\w+) = ([^\r\n]+)/o) {
! 	$prefs{"${ucw}_$1"} = $2;
        }
      }