unido/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	# -- 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	}