t/scalar.t

   1 #!perl
   2
   3 use lib qw(t) ;
   4 use common ;
   5
   6 my $tests = [
   7
   8         {
   9 #               skip    => 1,
  10                 name    => 'simple scalar',
  11                 data    => {
  12                         foo     => 'FOO is 3',
  13                         BAR     => 'bar is baz',
  14                 },
  15                 template => <<TEMPLATE,
  16 [%foo%]
  17 junk
  18 [%BAR%]
  19 TEMPLATE
  20                 expected => <<EXPECTED,
  21 FOO is 3
  22 junk
  23 bar is baz
  24 EXPECTED
  25         },
  26
  27         {
  28 #               skip    => 1,
  29                 name    => 'simple chunk - hash data',
  30                 data    => {
  31                         foo     => { FOO => 3 },
  32                         bar     => { BAR => 4 },
  33                 },
  34                 template => <<TEMPLATE,
  35 [%START foo%]
  36 [%FOO%]
  37 [%END foo%]
  38 [%START bar%][%BAR%][%END bar%]
  39 TEMPLATE
  40                 expected => <<EXPECTED,
  41
  42 3
  43
  44 4
  45 EXPECTED
  46         },
  47
  48         {
  49 #               skip    => 1,
  50                 name    => 'simple chunk - scalar data',
  51                 data    => {
  52                         foo     => 3,
  53                         bar     => { BAR => 4 },
  54                 },
  55                 template => <<TEMPLATE,
  56 [%START foo%]
  57 FOO
  58 [%END foo%]
  59 [%START bar%][%BAR%][%END bar%]
  60 TEMPLATE
  61                 expected => <<EXPECTED,
  62 3
  63 4
  64 EXPECTED
  65         },
  66         {
  67 #               skip    => 1,
  68                 name    => 'simple chunk - array of hashes',
  69                 data    => [
  70                         {
  71                                 foo     => { FOO => 3 },
  72                                 bar     => { BAR => 4 },
  73                         },
  74                         {
  75                                 foo     => { FOO => 6 },
  76                                 bar     => { BAR => 'quux' },
  77                         }
  78                 ],
  79                 template => <<TEMPLATE,
  80 [%START foo%]
  81 [%FOO%]
  82 [%END foo%]
  83 [%START bar%][%BAR%][%END bar%]
  84 TEMPLATE
  85                 expected => <<EXPECTED,
  86
  87 3
  88
  89 4
  90
  91 6
  92
  93 quux
  94 EXPECTED
  95         },
  96 ] ;
  97
  98 template_tester( $tests ) ;
  99
 100 exit ;
 101