File: 20.keep-titles.t

package info (click to toggle)
libconvert-ytext-perl 0.2-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 128 kB
  • sloc: perl: 322; makefile: 11
file content (18 lines) | stat: -rw-r--r-- 391 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
BEGIN {
   binmode STDOUT, ':utf8';
   binmode STDERR, ':utf8';
}

use Test::More;
use strict;
use warnings;

require 't/titles.pl';

plan tests => 1+2*(scalar (keys %titles::hash));

use_ok 'Convert::YText', qw(encode_ytext validate_ytext);
foreach my $key (keys %titles::hash){
  ok(validate_ytext($titles::hash{$key}));
  is(encode_ytext($key), $titles::hash{$key}, "conserve: ".$key);
}