Skip to content

Commit

Permalink
Item9317: Perltidy + perlcritic
Browse files Browse the repository at this point in the history
git-svn-id: http://svn.foswiki.org/trunk@8297 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
  • Loading branch information
PaulHarvey authored and PaulHarvey committed Jul 25, 2010
1 parent a6682f3 commit 6abf793
Showing 1 changed file with 43 additions and 10 deletions.
53 changes: 43 additions & 10 deletions UnitTestContrib/test/unit/ZoneTests.pm
@@ -1,8 +1,10 @@
package ZoneTests;
use FoswikiFnTestCase;
our @ISA = qw( FoswikiFnTestCase );

use strict;
use warnings;

use FoswikiFnTestCase;
our @ISA = qw( FoswikiFnTestCase );

sub new {
my $self = shift()->SUPER::new(@_);
Expand All @@ -21,6 +23,8 @@ sub test_1 {
Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test", { format => '$item' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_2 {
Expand All @@ -36,6 +40,8 @@ sub test_2 {
my $result =
$this->{session}->_renderZone( "test", { format => '$item $tag' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_3 {
Expand All @@ -53,6 +59,8 @@ sub test_3 {

$result = $this->{session}->_renderZone( "test", { format => '$item' } );
$this->assert_equals( '', $result );

return;
}

sub test_4 {
Expand All @@ -69,6 +77,8 @@ sub test_4 {
$this->{session}
->_renderZone( "test", { format => 'item=$item tag=$tag' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_5 {
Expand All @@ -94,6 +104,8 @@ sub test_5 {
$this->assert_equals( $expect, $result2 );

$this->assert_equals( $result1, $result2 );

return;
}

sub test_6 {
Expand All @@ -111,6 +123,8 @@ HERE
Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test", { format => '$item' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_7 {
Expand All @@ -128,6 +142,8 @@ HERE
Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test", { format => '$item' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_8 {
Expand All @@ -147,6 +163,8 @@ HERE
$this->{session}
->_renderZone( "test", { format => '$item', separator => "" } );
$this->assert_equals( $expect, $result );

return;
}

sub test_9 {
Expand All @@ -164,6 +182,8 @@ HERE
Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test", { format => '$item' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_10 {
Expand All @@ -182,6 +202,8 @@ HERE
Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test", { format => '$item' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_11 {
Expand All @@ -196,8 +218,12 @@ HERE
my $expect = "item=text1 tag=tag1";

Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test", { format => 'item=$item tag=$tag' } );
my $result =
$this->{session}
->_renderZone( "test", { format => 'item=$item tag=$tag' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_12 {
Expand All @@ -212,8 +238,12 @@ HERE
my $expect = "item=text1 tag=tag1";

Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test", { format => 'item=$item tag=$tag' } );
my $result =
$this->{session}
->_renderZone( "test", { format => 'item=$item tag=$tag' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_13 {
Expand All @@ -226,8 +256,10 @@ sub test_13 {
my $expect = "text <!-- tag -->";

Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone( "test");
my $result = $this->{session}->_renderZone("test");
$this->assert_equals( $expect, $result );

return;
}

sub test_addToHEAD_compatibility_1 {
Expand All @@ -243,9 +275,10 @@ HERE
my $expect = "text2\ntext1";

Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone(
"head", { format => '$item' } );
my $result = $this->{session}->_renderZone( "head", { format => '$item' } );
$this->assert_equals( $expect, $result );

return;
}

sub test_addToHEAD_compatibility_2 {
Expand All @@ -261,10 +294,10 @@ HERE
my $expect = "text2\ntext1";

Foswiki::Func::expandCommonVariables( $tml, $topicName, $webName );
my $result = $this->{session}->_renderZone(
"head", { format => '$item' } );
my $result = $this->{session}->_renderZone( "head", { format => '$item' } );
$this->assert_equals( $expect, $result );

return;
}

1;

0 comments on commit 6abf793

Please sign in to comment.