blob: 5e3c36b2144489d8ba3d40660afcbc4be4a1629a [file] [log] [blame]
#--------------------------------------------------------------------
# Copyright (c) 1999-2004, International Business Machines
# Corporation and others. All Rights Reserved.
#--------------------------------------------------------------------
# Test case
# "The" "(quick)" ('brown') `fox' ` jumped -- "over?"
# Variables
$single = \' ;
$space = ' ' ;
$double = \" ;
$back = \` ;
$tab = '\u0008' ;
$makeRight = [[:Z:][:Ps:][:Pi:]$] ;
# fix UNIX quotes
$back $back > ;
$back > ;
# fix typewriter quotes, by context
$makeRight {$double} <> ;
$double <> ;
$makeRight {$single} <> ;
$single <> ’;
# fix multiple spaces and hyphens
$space {$space} > ;
'--' <> ;