t/lib/lc-maketext.t

   1 BEGIN {
   2     chdir 't' if -d 't';
   3     @INC = '../lib';
   4 }
   5
   6 BEGIN { $| = 1; print "1..3\n"; }
   7 END {print "not ok 1\n" unless $loaded;}
   8 use Locale::Maketext 1.01;
   9 print "# Perl v$], Locale::Maketext v$Locale::Maketext::VERSION\n";
  10 $loaded = 1;
  11 print "ok 1\n";
  12 {
  13   package Woozle;
  14   @ISA = ('Locale::Maketext');
  15   sub dubbil { return $_[1] * 2 }
  16 }
  17 {
  18   package Woozle::elx;
  19   @ISA = ('Woozle');
  20   %Lexicon = (
  21    'd2' => 'hum [dubbil,_1]',
  22   );
  23 }
  24
  25 $lh = Woozle->get_handle('elx');
  26 if($lh) {
  27   print "ok 2\n";
  28   my $x = $lh->maketext('d2', 7);
  29   if($x eq "hum 14") {
  30     print "ok 3\n";
  31   } else {
  32     print "not ok 3\n  (got \"$x\")\n";
  33   }
  34 } else {
  35   print "not ok 2\n";
  36 }
  37 #Shazam!