PerlQt/t/ca_i18n.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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

use Qt;

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

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

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


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

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