#!/usr/bin/perl -w -I../lib/
# Test language lookup works

use gnump3d::lang::lookup;

#
#  Create a language lookup object.
#
my $literals = gnump3d::lang::lookup->new();
$literals->loadLanguage( "en" );


#
#  Test the magic.
#
our $PORT = 3233;
my $text = $literals->get( "ERROR_BIND" );

if ( ( $text =~ /use/i ) and ( $text =~ /3233/ ) )
{
   exit 0;
}
else
{
   print "Lookup returned : $text\n";
   exit 1;
	
}
