File: import.t

package info (click to toggle)
libstring-dirify-perl 1.03-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 120 kB
  • sloc: perl: 188; makefile: 2
file content (7 lines) | stat: -rw-r--r-- 347 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
 
use Test::More tests => 4;
use String::Dirify ':all';

ok(dirify("\xc0\xe0\xdf\xff\xd4")     eq 'aassyo', 'Test 1: High ASCII chars');
ok(dirify('!Q@W#E$R%T^Y')             eq 'qwerty', 'Test 2: Punctuation');
ok(dirify('<html>html&amp;ok</html>') eq 'htmlok', 'Test 3: HTML');
ok(dirify('<![CDATA[x]]>')            eq 'cdatax', 'Test 4: CDATA');