BEGIN { print "1..1\n" }

use TQt;

$a = TQt::Application();
$pb=TQt::PushButton("Foooo", undef);

{
  use bytes;
  $pb->setText( "�l�gant" );

  $b = $pb->text();
  $b2 = TQt::Widget::tr("�l�gant");
}


$c = $pb->text();
$c2= TQt::Widget::tr("�l�gant");

{
  use bytes;
  print +($b ne $c and $b2 ne $c2) ? "ok 1\n":"not ok\n";
}