File: separator.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 (6 lines) | stat: -rw-r--r-- 304 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
 
use Test::More tests => 3;
use String::Dirify 'dirify';

ok(dirify("  \xc0\xe0\xdf\xff\xd4", 1)       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>', 'x') eq 'xhtmlok', 'Test 3: HTML');