
use strict;
use warnings;

use Test::More tests => 2;

use WmlTest;

WmlTest::init();

#
#   TEST 1-2: throughput
#

my $pass = 6;

WmlTest::generic( $pass, <<'EOT_IN', <<'EOT_OUT', '' );
{:[[s/ä/&auml;/]][[s/ü/&uuml;/]][[tr/[a-z]/[A-Z]/]]
Foo Bar Baz Quux with Umlauts ä and ü
:}
EOT_IN

FOO BAR BAZ QUUX WITH UMLAUTS &AUML; AND &UUML;

EOT_OUT

WmlTest::cleanup();

