t/top.t

   1 #!perl
   2
   3 use lib qw(t) ;
   4 use common ;
   5
   6 my $tests = [
   7
   8         {
   9                 name    => 'top level - scalar data',
  10                 data    => 'bar',
  11                 template => <<TEMPLATE,
  12 junk
  13 TEMPLATE
  14                 expected => 'bar',
  15         },
  16         {
  17                 name    => 'top level - 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    => 'top level - 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    => 'top level - code data',
  46                 data    => sub { \uc ${$_[0]} },
  47                 template => <<TEMPLATE,
  48 junk
  49 TEMPLATE
  50                 expected => <<EXPECTED,
  51 JUNK
  52 EXPECTED
  53         },
  54 ] ;
  55
  56 template_tester( $tests ) ;
  57
  58 exit ;
  59