File: mkpdbname.t

package info (click to toggle)
libpalm-perl 1%3A1.400-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 396 kB
  • sloc: perl: 2,266; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 227 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 
use Test::More tests => 5;
BEGIN { use_ok('Palm') }

for( "Test.pdb", "Test\x04.pdb", "Test\x80.prc", "Test\xfe.pdb" ) {
	print "Trying $_...";
	my $n = Palm::mkpdbname( $_ );
	print $n,"\n";
	ok( $n =~ m/[\x21-\x73]/ );
}

1;