view release on metacpan or  search on metacpan

t/Any_Renderer.t  view on Meta::CPAN

ASSERT ( "\$dd_var = [\n            1,\n            2,\n            3\n          ];\n" eq $renderer->render ( [ 1, 2, 3 ] ), "Using options" );

#############################################################
# Error trapping
#############################################################

eval
{
  new Any::Renderer ();
};
ASSERT ( $@, "No rendering format requested request throws an error?" );

eval
{
  new Any::Renderer ( "!!!");
};
ASSERT ( $@, "Invalid rendering format request throws an error?" );

sub intersects {
  my($lhs, $rhs) = @_;
  foreach (keys %$lhs) {
    return 0 if(exists $rhs->{$_} && ! EQUAL($lhs->{$_}, $rhs->{$_}));
  }
  return 1;
}

# vim: ft=perl

t/Any_Renderer_Template.t  view on Meta::CPAN

    
    # run the same again to test template caching
    $renderer = new Any::Renderer::Template ( $format, \%options );
    ASSERT ( "Hello World!\n" eq $renderer->render ( { 'greeting' => 'Hello', 'entity' => 'World' } ), "Text::MicroMason file template (w/Cache)." );
    
    $options { 'NoCache' } = 1;
    $renderer = new Any::Renderer::Template ( $format, \%options );
    ASSERT ( "Hello World!\n" eq $renderer->render ( { 'greeting' => 'Hello', 'entity' => 'World' } ), "Text::MicroMason file template (w/NoCache)." );
  }
  
  # finally let's check to make sure an error is throw if no template is provided
  if(%AvailableLanguages) {
    $format = (keys %AvailableLanguages)[0];
    eval
    {
      my $renderer = new Any::Renderer::Template ( $format, {} );
      $renderer->render ( {} );
    };  
    ASSERT ( $@, "No template provided raises error" );
  }
}