t/error.t

   1 #!perl
   2
   3 use lib qw(t) ;
   4 use common ;
   5
   6 my $tests = [
   7
   8         {
   9                 name    => 'unknown data type',
  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         {
  22                 name    => 'missing include',
  23                 skip    => 0,
  24                 data    => {},
  25                 template => '[%INCLUDE foo%]',
  26                 error   => qr/can't find/,
  27         },
  28
  29         {
  30                 name    => 'code data',
  31                 skip    => 0,
  32                 data    => sub { return '' },
  33                 template => 'bar',
  34                 error   => qr/data callback/,
  35         },
  36
  37
  38 ] ;
  39
  40 template_tester( $tests ) ;
  41
  42 exit ;
  43