Commit | Line | Data |
f918d677 |
1 | |
2 | require 5; |
3 | use Test; |
4 | BEGIN { plan tests => 6; } |
5 | use Locale::Maketext 1.01; |
6 | print "# Hi there...\n"; |
7 | ok 1; |
8 | |
9 | # declare some classes... |
10 | { |
11 | package Woozle; |
12 | @ISA = ('Locale::Maketext'); |
13 | sub dubbil { return $_[1] * 2 } |
14 | sub numerate { return $_[2] . 'en' } |
15 | } |
16 | { |
17 | package Woozle::elx; |
18 | @ISA = ('Woozle'); |
19 | %Lexicon = ( |
20 | 'd2' => 'hum [dubbil,_1]', |
21 | 'd3' => 'hoo [quant,_1,zaz]', |
22 | 'd4' => 'hoo [*,_1,zaz]', |
23 | ); |
24 | keys %Lexicon; # dodges the 'used only once' warning |
25 | } |
26 | |
27 | ok defined( $lh = Woozle->get_handle('elx') ) && ref($lh); |
28 | ok $lh && $lh->maketext('d2', 7), "hum 14" ; |
29 | ok $lh && $lh->maketext('d3', 7), "hoo 7 zazen" ; |
30 | ok $lh && $lh->maketext('d4', 7), "hoo 7 zazen" ; |
31 | |
32 | print "# Byebye!\n"; |
33 | ok 1; |
34 | |