trunk/t/filter-iso.t

#                              -*- Mode: Perl -*- 
# base.t -- 
# ITIID           : $ITI$ $Header $__Header$
# Author          : Ulrich Pfeifer
# Created On      : Thu Aug 15 18:47:58 1996
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Sun Nov 22 18:44:31 1998
# Language        : CPerl
# Update Count    : 27
# Status          : Unknown, Use with caution!
# 
# Copyright (c) 1996-1997, Ulrich Pfeifer
# 

BEGIN { $| = 1; print "1..25\n"; }
END {print "not ok 1\n" unless $loaded;}
use WAIT::Filter qw(isolc isouc disolc disouc);
$loaded = 1;
print "ok 1\n";

@mixed = qw(Ulrich Pfeifer Großjohann Bäuerchen äußersts Übel);
@lower = qw(ulrich pfeifer großjohann bäuerchen äußersts übel);
@upper = qw(ULRICH PFEIFER GROßJOHANN BÄUERCHEN ÄUßERSTS ÜBEL);
$test = 2;

my $m;
for $m (@mixed) {
  my $l = shift @lower;
  my $u = shift @upper;
  my ($M,$L,$U) = ($m,$l,$u);
  
  # test nondestructive versions
  print ((isolc($m) eq $l and $m eq $M)? "ok $test\n":"not ok $test\n");$test++;
  print ((isouc($m) eq $u and $m eq $M)? "ok $test\n":"not ok $test\n");$test++;

  # test destructive versions
  print ((disolc($m) eq $l and $m eq $l)?"ok $test\n":"not ok $test\n");$test++;
  print ((disouc($m) eq $u and $m eq $u)?"ok $test\n":"not ok $test\n");$test++;
}
1	ulpfr	10	# -- Mode: Perl --
2			# base.t --
3			# ITIID : $ITI$ $Header $__Header$
4			# Author : Ulrich Pfeifer
5			# Created On : Thu Aug 15 18:47:58 1996
6			# Last Modified By: Ulrich Pfeifer
7			# Last Modified On: Sun Nov 22 18:44:31 1998
8			# Language : CPerl
9			# Update Count : 27
10			# Status : Unknown, Use with caution!
11			#
12			# Copyright (c) 1996-1997, Ulrich Pfeifer
13			#
14
15			BEGIN { $\| = 1; print "1..25\n"; }
16			END {print "not ok 1\n" unless $loaded;}
17			use WAIT::Filter qw(isolc isouc disolc disouc);
18			$loaded = 1;
19			print "ok 1\n";
20
21			@mixed = qw(Ulrich Pfeifer Großjohann Bäuerchen äußersts Übel);
22			@lower = qw(ulrich pfeifer großjohann bäuerchen äußersts übel);
23			@upper = qw(ULRICH PFEIFER GROßJOHANN BÄUERCHEN ÄUßERSTS ÜBEL);
24			$test = 2;
25
26			my $m;
27			for $m (@mixed) {
28			my $l = shift @lower;
29			my $u = shift @upper;
30			my ($M,$L,$U) = ($m,$l,$u);
31
32			# test nondestructive versions
33			print ((isolc($m) eq $l and $m eq $M)? "ok $test\n":"not ok $test\n");$test++;
34			print ((isouc($m) eq $u and $m eq $M)? "ok $test\n":"not ok $test\n");$test++;
35
36			# test destructive versions
37			print ((disolc($m) eq $l and $m eq $l)?"ok $test\n":"not ok $test\n");$test++;
38			print ((disouc($m) eq $u and $m eq $u)?"ok $test\n":"not ok $test\n");$test++;
39			}