t/top.t

   1 #!perl
   2
   3 use lib qw(t) ;
   4 use common ;
   5
   6 my $tests = [
   7
   8         {
   9                 name    => 'scalar data',
  10                 data    => 'bar',
  11                 template => <<TEMPLATE,
  12 junk
  13 TEMPLATE
  14                 expected => 'bar',
  15         },
  16         {
  17                 name    => 'array data',
  18                 data    => [
  19                         "foo\n",
  20                         "bar\n",
  21                 ],
  22                 template => <<TEMPLATE,
  23 junk
  24 TEMPLATE
  25                 expected => <<EXPECTED,
  26 foo
  27 bar
  28 EXPECTED
  29         },
  30         {
  31                 name    => 'blessed array data',
  32                 data    => bless( [
  33                         "foo\n",
  34                         "bar\n",
  35                 ] ),
  36                 template => <<TEMPLATE,
  37 junk
  38 TEMPLATE
  39                 expected => <<EXPECTED,
  40 foo
  41 bar
  42 EXPECTED
  43         },
  44         {
  45                 name    => 'code data',
  46                 compile_skip    => 1,
  47                 data    => sub { \uc ${$_[0]} },
  48                 template => <<TEMPLATE,
  49 junk
  50 TEMPLATE
  51                 expected => <<EXPECTED,
  52 JUNK
  53 EXPECTED
  54         },
  55 ] ;
  56
  57 template_tester( $tests ) ;
  58
  59 exit ;
  60