~ubuntu-branches/ubuntu/maverick/perl-tk/maverick

« back to all changes in this revision

Viewing changes to t/KR.t

• browse files at revision 11
• compare with another revision
• download diff
• download tarball
• view history from revision 11

Show diffs side-by-side

added

removed

t/KR.t

1

1

use Tk;

2

 

use Tk::Config ();

3

 

use Encode qw(FB_CROAK);

4

 

BEGIN

5

 

{

6

 

 my $Xft = $Tk::Config::xlib =~ /-lXft\b/;

7

 

 if (!$Xft) # assume we have CJK charsets with ttf fonts available

8

 

  {

9

 

   my $enc = Tk::SystemEncoding();

10

 

   eval { $enc->encode("\x{AC00}",FB_CROAK) };

11

 

   if ($@)

12

 

    {

13

 

     my $err = "$@";

14

 

     print "1..0 # Skipped: locale's '",$enc->name,"' cannot represent Korean.\n";

15

 

     CORE::exit(0);

16

 

    }

17

 

  }

18

 

}

 

2

## Be optimistic, run the test everywhere.

 

3

## It won't fail if fonts are missing, just

 

4

## empty lines will be shown.

 

5

# use Tk::Config ();

 

6

# use Encode qw(FB_CROAK);

 

7

# BEGIN

 

8

# {

 

9

#  my $Xft = $Tk::Config::xlib =~ /-lXft\b/;

 

10

#  if (!$Xft) # assume we have CJK charsets with ttf fonts available

 

11

#   {

 

12

#    my $enc = Tk::SystemEncoding();

 

13

#    eval { $enc->encode("\x{AC00}",FB_CROAK) };

 

14

#    if ($@)

 

15

#     {

 

16

#      my $err = "$@";

 

17

#      print "1..0 # Skipped: locale's '",$enc->name,"' cannot represent Korean.\n";

 

18

#      CORE::exit(0);

 

19

#     }

 

20

#   }

 

21

# }

19

22

use Test::More (tests => 271);

20

23

use Tk::widgets qw(Text);

21

24

my $mw   = MainWindow->new;

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1