view release on metacpan or  search on metacpan

t/31frame.t  view on Meta::CPAN

flush_tickit;

is_display( [ [TEXT("+".("-"x78)."+")],
              [TEXT("|Widget".(" "x72)."|")],
              ( [TEXT("|"), BLANK(78), TEXT("|")] )  x 22,
              [TEXT("+".("-"x78)."+")] ],
            'Display initially' );

SKIP: {
   skip "No UTF-8 locale", 1 unless ${^UTF8LOCALE};

   $widget->set_style( linetype => "single" );

   flush_tickit;

   is_display( [ [TEXT("\x{250C}".("\x{2500}"x78)."\x{2510}")],
                 [TEXT("\x{2502}Widget".(" "x72)."\x{2502}")],
                 ( [TEXT("\x{2502}"), BLANK(78), TEXT("\x{2502}")] ) x 22,
                 [TEXT("\x{2514}".("\x{2500}"x78)."\x{2518}")] ],
               'Display after ->set_style(linetype)' );