From: <de...@de...> - 2010-01-19 13:06:47
|
Author: SopanShewale Date: 2010-01-19 06:46:50 -0600 (Tue, 19 Jan 2010) New Revision: 18293 Trac url: http://develop.twiki.org/trac/changeset/18293 Modified: twiki/trunk/UnitTestContrib/test/unit/Fn_REVINFO.pm Log: Item6377: Fixing Test Cases - trunk and release branches Modified: twiki/trunk/UnitTestContrib/test/unit/Fn_REVINFO.pm =================================================================== --- twiki/trunk/UnitTestContrib/test/unit/Fn_REVINFO.pm 2010-01-19 12:21:42 UTC (rev 18292) +++ twiki/trunk/UnitTestContrib/test/unit/Fn_REVINFO.pm 2010-01-19 12:46:50 UTC (rev 18293) @@ -33,7 +33,7 @@ my $ui = $this->{twiki}->handleCommonTags( '%REVINFO%', $this->{test_web}, $this->{test_topic}); my $guest = TWiki::Func::getWikiName(); - unless ($ui =~ /^r1 - \d+ \w+ \d+ - \d+:\d+:\d+ - $this->{users_web}\.$guest$/) { + unless ($ui =~ /^r1 - \d+-\d+-\d+ - \d+:\d+:\d+ - $this->{users_web}\.$guest$/) { $this->assert(0, $ui); } } @@ -43,7 +43,7 @@ my $ui = $this->{twiki}->handleCommonTags( '%REVINFO%', $this->{test_web}, 'GlumDrop'); - unless ($ui =~ /^r1 - \d+ \w+ \d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { + unless ($ui =~ /^r1 - \d+-\d+-\d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { $this->assert(0, $ui); } } @@ -53,7 +53,7 @@ my $ui = $this->{twiki}->handleCommonTags( '%REVINFO{topic="GlumDrop"}%', $this->{test_web}, 'GlumDrop'); - unless ($ui =~ /^r1 - \d+ \w+ \d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { + unless ($ui =~ /^r1 - \d+-\d+-\d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { $this->assert(0, $ui); } } @@ -62,7 +62,7 @@ my $ui = $this->{twiki}->handleCommonTags( '%REVINFO{topic="%BASEWEB%.GlumDrop"}%', $this->{test_web}, 'GlumDrop'); - unless ($ui =~ /^r1 - \d+ \w+ \d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { + unless ($ui =~ /^r1 - \d+-\d+-\d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { $this->assert(0, $ui); } } @@ -94,7 +94,7 @@ my $ui = $this->{twiki}->handleCommonTags( '%REVINFO{topic="GropeGroup" web="'.$this->{users_web}.'"}%', $this->{test_web}, $this->{test_topic}); - unless ($ui =~ /^r1 - \d+ \w+ \d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { + unless ($ui =~ /^r1 - \d+-\d+-\d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { $this->assert(0, $ui); } } @@ -105,7 +105,7 @@ my $ui = $this->{twiki}->handleCommonTags( '%REVINFO{topic="'.$this->{users_web}.'.GropeGroup"}%', $this->{test_web}, $this->{test_topic}); - unless ($ui =~ /^r1 - \d+ \w+ \d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { + unless ($ui =~ /^r1 - \d+-\d+-\d+ - \d+:\d+:\d+ - $this->{users_web}\.$this->{test_user_wikiname}$/) { $this->assert(0, $ui); } } |