libtqt-perl/PerlTQt/t/ca_i18n.t

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";
}