#! /usr/local/bin/perl -w
# vim: syntax=perl
# vim: tabstop=4
use strict;
use Test;
use constant NUM_TESTS => 12;
use Locale::Messages qw (bindtextdomain);
BEGIN {
        my $package;
        if ($0 =~ /_pp\.t$/) {
                $package = 'gettext_pp';
        } else {
                $package = 'gettext_xs';
        }
                 
        my $selected = Locale::Messages->select_package ($package);
        if ($selected ne $package && 'gettext_xs' eq $package) {
                print "1..0 # Skip: Locale::$package not available here.\n";
                exit 0;
        }
        plan tests => NUM_TESTS;
}
my $bound_domain = bindtextdomain 'existing';
ok defined $bound_domain;
ok length $bound_domain;
$bound_domain = bindtextdomain 'existing', '.';
ok defined $bound_domain;
ok $bound_domain, '.';
$bound_domain = bindtextdomain 'existing';
ok defined $bound_domain;
ok $bound_domain, '.';
$bound_domain = bindtextdomain 'not_existing';
ok defined $bound_domain;
ok length $bound_domain;
$bound_domain = bindtextdomain 'not_existing', '.';
ok defined $bound_domain;
ok $bound_domain, '.';
$bound_domain = bindtextdomain 'not_existing';
ok defined $bound_domain;
ok $bound_domain, '.';
__END__
Local Variables:
mode: perl
perl-indent-level: 4
perl-continued-statement-offset: 4
perl-continued-brace-offset: 0
perl-brace-offset: -4
perl-brace-imaginary-offset: 0
perl-label-offset: -4
cperl-indent-level: 4
cperl-continued-statement-offset: 2
tab-width: 4
End: