external/perl/Text-Template-1.56/t/nested-tags.t

   1 #!perl
   2 #
   3 # Test for breakage of Dist::Milla in v1.46
   4 #
   5
   6 use strict;
   7 use warnings;
   8 use Text::Template;
   9
  10 BEGIN {
  11     # Minimum Test::More version; 0.94+ is required for `done_testing`
  12     unless (eval { require Test::More; "$Test::More::VERSION" >= 0.94; }) {
  13         Test::More::plan(skip_all => '[ Test::More v0.94+ ] is required for testing');
  14     }
  15
  16     Test::More->import;
  17 }
  18
  19 my $tmpl = Text::Template->new(
  20     TYPE       => 'STRING',
  21     SOURCE     => q| {{ '{{$NEXT}}' }} |,
  22     DELIMITERS => [ '{{', '}}' ]);
  23
  24 is $tmpl->fill_in, ' {{$NEXT}} ';
  25
  26 done_testing;