t/error.t

   1 #!perl
   2
   3 use lib qw(t) ;
   4 use common ;
   5
   6 my $tests = [
   7         {
   8                 name    => 'unknown template data type',
   9                 compile_skip    => 1,
  10                 opts    => {},
  11                 data    => qr//,
  12                 template => <<TMPL,
  13 foo
  14 TMPL
  15                 expected => <<EXPECT,
  16 bar
  17 EXPECT
  18                 error => qr/unknown template data/,
  19         },
  20         {
  21                 name    => 'missing include',
  22                 skip    => 0,
  23                 data    => {},
  24                 template => '[%INCLUDE foox%]',
  25                 error   => qr/can't find/,
  26         },
  27         {
  28                 name    => 'code data',
  29                 compile_skip    => 1,
  30                 skip    => 0,
  31                 data    => sub { return '' },
  32                 template => 'bar',
  33                 error   => qr/data callback/,
  34         },
  35 ] ;
  36
  37 template_tester( $tests ) ;
  38
  39 exit ;
  40