You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
libtqt-perl/PerlTQt/t/ca_i18n.t

24 lines
331 B

BEGIN { print "1..1\n" }
use TQt;
$a = TQt::Application();
$pb=TQt::PushButton("Foooo", undef);
{
use bytes;
$pb->setText( "<22>l<EFBFBD>gant" );
$b = $pb->text();
$b2 = TQt::Widget::tr("<22>l<EFBFBD>gant");
}
$c = $pb->text();
$c2= TQt::Widget::tr("<22>l<EFBFBD>gant");
{
use bytes;
print +($b ne $c and $b2 ne $c2) ? "ok 1\n":"not ok\n";
}