504 lines
41 KiB
Plaintext
504 lines
41 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Regression tests for the runtime library (strings)
|
|
*
|
|
* Copyright 1999-2001 Viktor Szakats <viktor.szakats@syenar.hu>
|
|
* www - http://www.harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#include "rt_main.ch"
|
|
|
|
/* Don't change the position of this #include. */
|
|
#include "rt_vars.ch"
|
|
|
|
FUNCTION Main_TRANS()
|
|
LOCAL cOldDate := Set( _SET_DATEFORMAT )
|
|
|
|
/* TRANSFORM() */
|
|
|
|
TEST_LINE( Transform( NIL , NIL ) , "E BASE 1122 Argument error TRANSFORM A:2:U:NIL;U:NIL F:S" )
|
|
TEST_LINE( Transform( NIL , "" ) , "E BASE 1122 Argument error TRANSFORM A:2:U:NIL;C: F:S" )
|
|
TEST_LINE( Transform( NIL , "@" ) , "E BASE 1122 Argument error TRANSFORM A:2:U:NIL;C:@ F:S" )
|
|
TEST_LINE( Transform( {} , NIL ) , "E BASE 1122 Argument error TRANSFORM A:2:A:{.[0].};U:NIL F:S" )
|
|
TEST_LINE( Transform( {} , "" ) , "E BASE 1122 Argument error TRANSFORM A:2:A:{.[0].};C: F:S" )
|
|
TEST_LINE( Transform( {} , "@" ) , "E BASE 1122 Argument error TRANSFORM A:2:A:{.[0].};C:@ F:S" )
|
|
TEST_LINE( Transform( ErrorNew(), NIL ) , "E BASE 1122 Argument error TRANSFORM A:2:O:ERROR Object;U:NIL F:S" )
|
|
TEST_LINE( Transform( ErrorNew(), "" ) , "E BASE 1122 Argument error TRANSFORM A:2:O:ERROR Object;C: F:S" )
|
|
TEST_LINE( Transform( ErrorNew(), "@" ) , "E BASE 1122 Argument error TRANSFORM A:2:O:ERROR Object;C:@ F:S" )
|
|
TEST_LINE( Transform( {|| NIL } , NIL ) , "E BASE 1122 Argument error TRANSFORM A:2:B:{||...};U:NIL F:S" )
|
|
TEST_LINE( Transform( {|| NIL } , "" ) , "E BASE 1122 Argument error TRANSFORM A:2:B:{||...};C: F:S" )
|
|
TEST_LINE( Transform( {|| NIL } , "@" ) , "E BASE 1122 Argument error TRANSFORM A:2:B:{||...};C:@ F:S" )
|
|
|
|
TEST_LINE( Transform( "", "" ) , "" )
|
|
TEST_LINE( Transform( "", "@" ) , "" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( "", NIL ) , "" )
|
|
#endif
|
|
TEST_LINE( Transform( "", 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:C:;N:100 F:S" )
|
|
TEST_LINE( Transform( "hello", "" ) , "hello" )
|
|
TEST_LINE( Transform( "hello", "@" ) , "hello" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( "hello", NIL ) , "hello" )
|
|
#endif
|
|
TEST_LINE( Transform( "hello", 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:C:hello;N:100 F:S" )
|
|
TEST_LINE( Transform( 100.2, "" ) , " 100.2" )
|
|
TEST_LINE( Transform( 100.2, "@" ) , " 100.2" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( 100.2, NIL ) , " 100.2" )
|
|
#endif
|
|
TEST_LINE( Transform( 100.2, 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:N:100.2;N:100 F:S" )
|
|
TEST_LINE( Transform( 100.20, "" ) , " 100.20" )
|
|
TEST_LINE( Transform( 100.20, "@" ) , " 100.20" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( 100.20, NIL ) , " 100.20" )
|
|
#endif
|
|
TEST_LINE( Transform( 100.20, 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:N:100.20;N:100 F:S" )
|
|
TEST_LINE( Transform( Val("100.2"), "" ) , "100.2" )
|
|
TEST_LINE( Transform( Val("100.2"), "@" ) , "100.2" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( Val("100.2"), NIL ) , "100.2" )
|
|
#endif
|
|
TEST_LINE( Transform( Val("100.2"), 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:N:100.2;N:100 F:S" )
|
|
TEST_LINE( Transform( Val("100.20"), "" ) , "100.20" )
|
|
// TEST_LINE( Transform( Val("100.20"), "@" ) , "100.20" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( Val("100.20"), NIL ) , "100.20" )
|
|
#endif
|
|
TEST_LINE( Transform( Val("100.20"), 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:N:100.20;N:100 F:S" )
|
|
TEST_LINE( Transform( sdDate, "" ) , "1984.03.25" )
|
|
TEST_LINE( Transform( sdDate, "@" ) , "1984.03.25" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( sdDate, NIL ) , "1984.03.25" )
|
|
#endif
|
|
TEST_LINE( Transform( sdDate, 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:D:19840325;N:100 F:S" )
|
|
TEST_LINE( Transform( .T., "" ) , "T" )
|
|
TEST_LINE( Transform( .T., "@" ) , "T" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( .F., NIL ) , "F" )
|
|
#endif
|
|
TEST_LINE( Transform( .F., 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:L:.F.;N:100 F:S" )
|
|
|
|
TEST_LINE( Transform( scStringM , "!!!!!" ) , "HELLO" )
|
|
TEST_LINE( Transform( scStringM , "@!" ) , "HELLO" )
|
|
#ifdef __HARBOUR__
|
|
TEST_LINE( Transform( @scStringM, "!!!!!" ) , "HELLO" ) /* Bug in CA-Cl*pper, it returns: "E BASE 1122 Argument error TRANSFORM F:S" */
|
|
TEST_LINE( Transform( @scStringM, "@!" ) , "HELLO" ) /* Bug in CA-Cl*pper, it returns: "E BASE 1122 Argument error TRANSFORM F:S" */
|
|
#endif
|
|
TEST_LINE( Transform( scStringM , "" ) , "Hello" )
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform( scStringM , NIL ) , "Hello" )
|
|
#endif
|
|
TEST_LINE( Transform( scStringM , 100 ) , "E BASE 1122 Argument error TRANSFORM A:2:C:Hello;N:100 F:S" )
|
|
|
|
TEST_LINE( Transform("abcdef", "@! !lkm!") , "ABkmE" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! 1234567890"), "12345678I0" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyzabcdefg", "@! abcdefghijklmnopqrstuvwxyzabcdefg"), "AbcdefghijkLmNopqrstuvwXYzAbcdefg" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! `~!@#$% ^&*()_+-={}\|;':") , "`~C@E$% ^&*()_+-={}\|;':" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! ,./<>?") , ",./<>?" )
|
|
TEST_LINE( Transform("hello", " @!") , " @L" )
|
|
|
|
TEST_LINE( Transform("abcdef", "@R! !lkm!") , "ABkmC" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! 1234567890"), "12345678A0" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyzabcdefg", "@R! abcdefghijklmnopqrstuvwxyzabcdefg"), "AbcdefghijkBmCopqrstuvwDNzFbcdefg" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! `~!@#$% ^&*()_+-={}\|;':") , "`~A@B$% ^&*()_+-={}\|;':" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>?") , ",./<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("hello", " @R!") , " @RL" )
|
|
|
|
TEST_LINE( Transform("abc", "@R !!!!") , "ABC " )
|
|
TEST_LINE( Transform("abc", "@R XXXX") , "abc " )
|
|
TEST_LINE( Transform("abc", "@R !!") , "AB" )
|
|
TEST_LINE( Transform("abc", "@R XX") , "ab" )
|
|
TEST_LINE( Transform("abc", "@!R !!!!") , "ABC " )
|
|
TEST_LINE( Transform("abc", "@!R XXXX") , "ABC " )
|
|
TEST_LINE( Transform("abc", "@!R !!") , "AB" )
|
|
TEST_LINE( Transform("abc", "@!R XX") , "AB" )
|
|
|
|
TEST_LINE( Transform( "Hallo ", "!!!!!" ) , "HALLO" )
|
|
TEST_LINE( Transform( "Hallo ", "!!A!!" ) , "HAlLO" )
|
|
TEST_LINE( Transform( "Hallo ", "!!A9!" ) , "HAllO" )
|
|
TEST_LINE( Transform( "Hallo ", "!QA9!" ) , "HQllO" )
|
|
TEST_LINE( Transform( "Hallo ", "ZQA9!" ) , "ZQllO" )
|
|
TEST_LINE( Transform( "Hall" , "ZQA9!" ) , "ZQll" )
|
|
TEST_LINE( Transform( "Hallo ", "!AAA" ) , "Hall" )
|
|
TEST_LINE( Transform( "Hallo ", "@!" ) , "HALLO " )
|
|
TEST_LINE( Transform( "Hallo ", "@! AA" ) , "HA" )
|
|
TEST_LINE( Transform( "Hallo ", "@R" ) , "Hallo " )
|
|
TEST_LINE( Transform( "Hallo ", "@Z" ) , " " )
|
|
TEST_LINE( Transform( "Hallo ", "@R !!" ) , "HA" )
|
|
TEST_LINE( Transform( "Hi" , "@R !!!" ) , "HI " )
|
|
TEST_LINE( Transform( "Hallo ", "" ) , "Hallo " )
|
|
|
|
TEST_LINE( Transform( .T. , "" ) , "T" )
|
|
TEST_LINE( Transform( .F. , "" ) , "F" )
|
|
TEST_LINE( Transform( .T. , "L" ) , "T" )
|
|
TEST_LINE( Transform( .F. , "L" ) , "F" )
|
|
TEST_LINE( Transform( .T. , "Y" ) , "Y" )
|
|
TEST_LINE( Transform( .F. , "Y" ) , "N" )
|
|
TEST_LINE( Transform( .T. , "X" ) , "X" )
|
|
TEST_LINE( Transform( .F. , "#" ) , "F" )
|
|
TEST_LINE( Transform( .T. , "X!" ) , "X" )
|
|
TEST_LINE( Transform( .F. , "@R Y" ) , "N" )
|
|
TEST_LINE( Transform( .T. , "@R X!" ) , "X!T" )
|
|
|
|
TEST_LINE( Transform( HB_SToD("20000101") , "@B" ) , "2000.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19901214") , "99/99/9999" ) , "1990.12.14" )
|
|
TEST_LINE( Transform( HB_SToD("19901202") , "99.99.9999" ) , "1990.12.02" )
|
|
TEST_LINE( Transform( HB_SToD("") , "99/99/9999" ) , " . . " )
|
|
TEST_LINE( Transform( HB_SToD("19901202") , "99/99/99" ) , "1990.12.02" )
|
|
TEST_LINE( Transform( HB_SToD("19901214") , "99-99-99" ) , "1990.12.14" )
|
|
TEST_LINE( Transform( HB_SToD("20040430") , "99.99.99" ) , "2004.04.30" )
|
|
TEST_LINE( Transform( HB_SToD("") , "99/99/99" ) , " . . " )
|
|
TEST_LINE( Transform( HB_SToD("19920101") , "THISWRNG" ) , "1992.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19350605") , "999/99/9" ) , "1935.06.05" )
|
|
TEST_LINE( Transform( HB_SToD("19101112") , "9#-9#/##" ) , "1910.11.12" )
|
|
TEST_LINE( Transform( HB_SToD("19920101") , "" ) , "1992.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19920101") , "DO THIS " ) , "1992.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19920102") , "@E" ) , "02/01/1992" ) /* Bug in CA-Cl*pper, it returns: "2.91901.02" */
|
|
TEST_LINE( Transform( 1234 , "@D 9999" ) , "1234.00.0 " )
|
|
TEST_LINE( Transform( 1234 , "@BD 9999" ) , "1234.00.0 " )
|
|
|
|
SET CENTURY OFF
|
|
|
|
TEST_LINE( Transform( HB_SToD("20000101") , "@B" ) , "00.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19901214") , "99/99/9999" ) , "90.12.14" )
|
|
TEST_LINE( Transform( HB_SToD("19901202") , "99.99.9999" ) , "90.12.02" )
|
|
TEST_LINE( Transform( HB_SToD("") , "99/99/9999" ) , " . . " )
|
|
TEST_LINE( Transform( HB_SToD("19901202") , "99/99/99" ) , "90.12.02" )
|
|
TEST_LINE( Transform( HB_SToD("19901214") , "99-99-99" ) , "90.12.14" )
|
|
TEST_LINE( Transform( HB_SToD("20040430") , "99.99.99" ) , "04.04.30" )
|
|
TEST_LINE( Transform( HB_SToD("") , "99/99/99" ) , " . . " )
|
|
TEST_LINE( Transform( HB_SToD("19920101") , "THISWRNG" ) , "92.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19350605") , "999/99/9" ) , "35.06.05" )
|
|
TEST_LINE( Transform( HB_SToD("19101112") , "9#-9#/##" ) , "10.11.12" )
|
|
TEST_LINE( Transform( HB_SToD("19920101") , "" ) , "92.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19920101") , "DO THIS " ) , "92.01.01" )
|
|
TEST_LINE( Transform( HB_SToD("19920102") , "@E" ) , "02/01/92" ) /* Bug in CA-Cl*pper, it returns: "01.92.02" */
|
|
TEST_LINE( Transform( 1234 , "@D 9999" ) , "**.**.* " )
|
|
TEST_LINE( Transform( 1234 , "@BD 9999" ) , "**.**.* " )
|
|
|
|
SET CENTURY ON
|
|
|
|
TEST_LINE( Transform( 1 , "@b" ) , "1 " )
|
|
TEST_LINE( Transform( 1 , "@B" ) , "1 " )
|
|
TEST_LINE( Transform( 1.0 , "@B" ) , "1.0 " )
|
|
TEST_LINE( Transform( 15 , "9999" ) , " 15" )
|
|
TEST_LINE( Transform( 1.5 , "99.99" ) , " 1.50" )
|
|
TEST_LINE( Transform( 1.5 , "9999" ) , " 2" )
|
|
TEST_LINE( Transform( 15 , "####" ) , " 15" )
|
|
TEST_LINE( Transform( 1.5 , "##.##" ) , " 1.50" )
|
|
TEST_LINE( Transform( 1.5 , "####" ) , " 2" )
|
|
TEST_LINE( Transform( 15 , " AX##" ) , " AX15" )
|
|
TEST_LINE( Transform( 1.5 , "!9XPA.9" ) , "!1XPA.5" )
|
|
TEST_LINE( Transform( -15 , "9999" ) , " -15" )
|
|
TEST_LINE( Transform( -1.5 , "99.99" ) , "-1.50" )
|
|
TEST_LINE( Transform( -15 , "$999" ) , "$-15" )
|
|
TEST_LINE( Transform( -1.5 , "*9.99" ) , "-1.50" )
|
|
TEST_LINE( Transform( 41 , "$$$9" ) , "$$41" )
|
|
TEST_LINE( Transform( 41 , "***9" ) , "**41" )
|
|
TEST_LINE( Transform( 15000 , "9999" ) , "****" )
|
|
TEST_LINE( Transform( 15000 , "99,999" ) , "15,000" )
|
|
TEST_LINE( Transform( 1500 , "99,999" ) , " 1,500" )
|
|
TEST_LINE( Transform( 150 , "99,999" ) , " 150" )
|
|
TEST_LINE( Transform( 150 , "99,99" ) , " 1,50" )
|
|
TEST_LINE( Transform( 41 , "@Z 9999" ) , " 41" )
|
|
TEST_LINE( Transform( 0 , "@Z 9999" ) , " " )
|
|
#ifdef __HARBOUR__
|
|
TEST_LINE( Transform( 41 , "@0 9999" ) , "0041" ) /* Extension in Harbour, in CA-Cl*pper it should return: " 41" */
|
|
TEST_LINE( Transform( 0 , "@0 9999" ) , "0000" ) /* Extension in Harbour, in CA-Cl*pper it should return: " 0" */
|
|
#endif
|
|
TEST_LINE( Transform( 41 , "@B 9999" ) , "41 " )
|
|
TEST_LINE( Transform( 41 , "@B 99.9" ) , "41.0" )
|
|
TEST_LINE( Transform( 7 , "@B 99.9" ) , "7.0 " )
|
|
TEST_LINE( Transform( 7 , "@C 99.9" ) , " 7.0 CR" )
|
|
TEST_LINE( Transform( -7 , "@C 99.9" ) , "-7.0" )
|
|
TEST_LINE( Transform( 7 , "@X 99.9" ) , " 7.0" )
|
|
TEST_LINE( Transform( -7 , "@X 99.9" ) , " 7.0 DB" )
|
|
TEST_LINE( Transform( 7 , "@( 99.9" ) , " 7.0" )
|
|
TEST_LINE( Transform( -7 , "@( 99.9" ) , "(7.0)" )
|
|
TEST_LINE( Transform( 7 , "9X9Z5.9" ) , " X7Z5.0" )
|
|
TEST_LINE( Transform( -7 , "@R 9X9^" ) , "-X7^" )
|
|
TEST_LINE( Transform( -7 , "9X9^" ) , "-X7^" )
|
|
TEST_LINE( Transform( 1 , "@R 9HI!" ) , "1HI!" )
|
|
TEST_LINE( Transform( 1 , "9HI!" ) , "1HI!" )
|
|
TEST_LINE( Transform( -12 , "@( 99" ) , "(*)" ) /* Bug in CA-Cl*pper, it returns: "(2)" */
|
|
TEST_LINE( Transform( 12 , "@( 99" ) , "12" )
|
|
TEST_LINE( Transform( 1 , "" ) , " 1" )
|
|
TEST_LINE( Transform( 32768 , "" ) , " 32768" )
|
|
TEST_LINE( Transform( -20 , "" ) , " -20" )
|
|
TEST_LINE( Transform( 1048576 , "" ) , " 1048576" )
|
|
TEST_LINE( Transform( 21.65 , "" ) , " 21.65" )
|
|
TEST_LINE( Transform( -3.33 , "" ) , " -3.33" )
|
|
TEST_LINE( Transform( -1234 , "@( 9999" ) , "(***)" ) /* Bug in CA-Cl*pper, it returns: "(234)" */
|
|
TEST_LINE( Transform( -1234 , "@B 9999" ) , "****" )
|
|
TEST_LINE( Transform( -1234 , "@B( 9999" ) , "(***)" ) /* Bug in CA-Cl*pper, it returns: "(234)" */
|
|
TEST_LINE( Transform( 1234 , "@E 9,999.99" ) , "1.234,00" )
|
|
TEST_LINE( Transform( 12.2 , "@E 9,999.99" ) , " 12,20" )
|
|
TEST_LINE( Transform( -1234 , "@X 9999" ) , "1234 DB" )
|
|
TEST_LINE( Transform( -1234 , "@BX 9999" ) , "1234 DB" )
|
|
TEST_LINE( Transform( 1234 , "@B 9999" ) , "1234" )
|
|
TEST_LINE( Transform( 1234 , "@BX 9999" ) , "1234" )
|
|
TEST_LINE( Transform( 0 , "@Z 9999" ) , " " )
|
|
TEST_LINE( Transform( 0 , "@BZ 9999" ) , " " )
|
|
TEST_LINE( Transform( 2334 , "Xxxxx: #####") , "Xxxxx: 2334" )
|
|
|
|
TEST_LINE( Transform("Hello", "@S-1") , "Hello" )
|
|
TEST_LINE( Transform("Hello", "@S3.0!") , "HEL" )
|
|
TEST_LINE( Transform("Hello", "@S3") , "Hel" )
|
|
TEST_LINE( Transform("Hello", "@S13") + "<" , "Hello<" )
|
|
TEST_LINE( Transform("Hello", "@S000000000003K") , "Hel" )
|
|
TEST_LINE( Transform("Hello", "@S3K") , "Hel" )
|
|
TEST_LINE( Transform("Hello", "@S 3K") , "3K" )
|
|
TEST_LINE( Transform("Hello", "@S3"+Chr(9)) , "Hel" )
|
|
TEST_LINE( Transform("abcdef","@! !lkm!") , "ABkmE" )
|
|
TEST_LINE( Transform("abcdef","@! !LKM!") , "ABKME" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! !lkm!x") , "ABkmEF" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! abcdefghijklmnopqrstuvwxyz") , "AbcdefghijkLmNopqrstuvwXYz" )
|
|
// Harbour PP fails on this.
|
|
#ifndef __HARBOUR__
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! `~!@#$%^&*()_+-={}[]\|;':") , "`~C@E$%^&*()_+-={}[]\|;':" )
|
|
#endif
|
|
#endif
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@! ,./<>?") , ",./<>?" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>?" ) , ",./<>?ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<>" ) , ",./<>ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./<" ) , ",./<ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,./" ) , ",./ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ,." ) , ",.ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! ," ) , ",ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! " ) , "ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! 0" ) , "0ABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("abcdefghijklmnopqrstuvwxyz", "@R! B" ) , "BABCDEFGHIJKLMNOPQRSTUVWXYZ" )
|
|
TEST_LINE( Transform("zbcdefghijklmnopqrstuvwxya", "@R! A" ) , "Z" )
|
|
TEST_LINE( Transform("zbcdefghijklmnopqrstuvwxya", "@R! Z" ) , "ZZBCDEFGHIJKLMNOPQRSTUVWXYA" )
|
|
|
|
TEST_LINE( Transform(" Hello ", "@Z") , " " )
|
|
TEST_LINE( Transform("Hello", "@Z") , " " )
|
|
TEST_LINE( Transform("", "@Z") , "" )
|
|
TEST_LINE( Transform(" ", "@Z") , " " )
|
|
TEST_LINE( Transform(" Hello ", "@Z z") , " " )
|
|
TEST_LINE( Transform("Hello", "@Z z") , " " )
|
|
TEST_LINE( Transform("", "@Z z") , "" )
|
|
TEST_LINE( Transform(" ", "@Z z") , " " )
|
|
TEST_LINE( Transform("a", "@! Y") , "N" )
|
|
TEST_LINE( Transform("b", "@! Y") , "N" )
|
|
TEST_LINE( Transform("c", "@! Y") , "N" )
|
|
TEST_LINE( Transform("d", "@! Y") , "N" )
|
|
TEST_LINE( Transform("e", "@! Y") , "N" )
|
|
TEST_LINE( Transform("f", "@! Y") , "N" )
|
|
TEST_LINE( Transform("g", "@! Y") , "N" )
|
|
TEST_LINE( Transform("h", "@! Y") , "N" )
|
|
TEST_LINE( Transform("i", "@! Y") , "N" )
|
|
TEST_LINE( Transform("j", "@! Y") , "N" )
|
|
TEST_LINE( Transform("k", "@! Y") , "N" )
|
|
TEST_LINE( Transform("l", "@! Y") , "N" )
|
|
TEST_LINE( Transform("m", "@! Y") , "N" )
|
|
TEST_LINE( Transform("n", "@! Y") , "N" )
|
|
TEST_LINE( Transform("o", "@! Y") , "N" )
|
|
TEST_LINE( Transform("p", "@! Y") , "N" )
|
|
TEST_LINE( Transform("q", "@! Y") , "N" )
|
|
TEST_LINE( Transform("r", "@! Y") , "N" )
|
|
TEST_LINE( Transform("s", "@! Y") , "N" )
|
|
TEST_LINE( Transform("t", "@! Y") , "Y" )
|
|
TEST_LINE( Transform("u", "@! Y") , "N" )
|
|
TEST_LINE( Transform("v", "@! Y") , "N" )
|
|
TEST_LINE( Transform("w", "@! Y") , "N" )
|
|
TEST_LINE( Transform("x", "@! Y") , "N" )
|
|
TEST_LINE( Transform("y", "@! Y") , "Y" )
|
|
TEST_LINE( Transform("z", "@! Y") , "N" )
|
|
TEST_LINE( Transform("t", "Y") , "Y" )
|
|
TEST_LINE( Transform("y", "Y") , "Y" )
|
|
TEST_LINE( Transform("T", "Y") , "Y" )
|
|
TEST_LINE( Transform("Y", "Y") , "Y" )
|
|
TEST_LINE( Transform("T", "@! Y") , "Y" )
|
|
TEST_LINE( Transform("Y", "@! Y") , "Y" )
|
|
TEST_LINE( Transform("abc", "@R !!!!") , "ABC " )
|
|
TEST_LINE( Transform("abc", "@R XXXX") , "abc " )
|
|
TEST_LINE( Transform("abc", "@R !!") , "AB" )
|
|
TEST_LINE( Transform("abc", "@R XX") , "ab" )
|
|
TEST_LINE( Transform("abc", "@!R !!!!") , "ABC " )
|
|
TEST_LINE( Transform("abc", "@!R XXXX") , "ABC " )
|
|
TEST_LINE( Transform("abc", "@!R !!") , "AB" )
|
|
TEST_LINE( Transform("abc", "@!R XX") , "AB" )
|
|
TEST_LINE( Transform("abc", "@R"+Chr(9)+"!!!!") , "ABC " )
|
|
TEST_LINE( Transform("abc", "@R!!!!!!!!!!!!") , "ABC" )
|
|
TEST_LINE( Transform("hello", "@ !!") , "HE" )
|
|
TEST_LINE( Transform("hello", "@") , "hello" )
|
|
TEST_LINE( Transform("hello", "@ ") , "hello" )
|
|
TEST_LINE( Transform("hello", " @!") , " @L" )
|
|
TEST_LINE( Transform("abcdefgh", "@R! helloy") , "heABoN" )
|
|
TEST_LINE( Transform("abcdefgh", "@R helloy") , "heaboN" )
|
|
TEST_LINE( Transform("abcdefgh", "@R !!!!!!") , "ABCDEF" )
|
|
TEST_LINE( Transform("abcdefgh", "@") , "abcdefgh" )
|
|
|
|
TEST_LINE( Transform(100, "@B") , "100 " )
|
|
TEST_LINE( Transform(100, "@b") , "100 " )
|
|
|
|
TEST_LINE( Transform(.T., "l") , "T" )
|
|
TEST_LINE( Transform(.F., "l") , "F" )
|
|
TEST_LINE( Transform(.T., "L") , "T" )
|
|
TEST_LINE( Transform(.F., "L") , "F" )
|
|
|
|
TEST_LINE( Transform(" H", "@B" ) , "H " )
|
|
TEST_LINE( Transform(Chr(9)+" H", "@B" ) , ""+Chr(9)+" H" )
|
|
TEST_LINE( Transform(" H ", "@B" ) , "H " )
|
|
TEST_LINE( Transform(" H", "@Z" ) , " " )
|
|
TEST_LINE( Transform(" H", "@ZB" ) , " " )
|
|
TEST_LINE( Transform(" H", "@!" ) , " H" )
|
|
TEST_LINE( Transform("19840325", "@D" ) , "1984.32." )
|
|
TEST_LINE( Transform("19840325", "@DE" ) , "4.81932." )
|
|
TEST_LINE( Transform("1984032598765", "@DE" ) , "4.81932.98" )
|
|
|
|
SET CENTURY ON
|
|
TEST_LINE( Transform("19840325", "@D" ) , "1984.32." )
|
|
TEST_LINE( Transform("19840325", "@DE" ) , "4.81932." )
|
|
TEST_LINE( Transform("1984032598765", "@DE" ) , "4.81932.98" )
|
|
SET CENTURY OFF
|
|
|
|
TEST_LINE( Transform("19840325", "@D" ) , "19.40.25" )
|
|
TEST_LINE( Transform("19840325", "@DE" ) , "40.19.25" )
|
|
TEST_LINE( Transform("1984032598765", "@DE" ) , "40.19.25" )
|
|
TEST_LINE( Transform("1", "@D" ) , "1" )
|
|
TEST_LINE( Transform("19840325", "@D" ) , "19.40.25" )
|
|
TEST_LINE( Transform("19840325", "@DR" ) , "19.84.03" )
|
|
TEST_LINE( Transform("ABCDEFG", "@D" ) , "AB.DE.G" )
|
|
TEST_LINE( Transform("abcdefg", "@D !!") , "ab.de.g" )
|
|
TEST_LINE( Transform("abcdefg", "@D!") , "AB.DE.G" )
|
|
TEST_LINE( Transform("ABCDEFG", "@DB" ) , "AB.DE.G" )
|
|
TEST_LINE( Transform(" CDEFG", "@DB" ) , ".DE.G " )
|
|
TEST_LINE( Transform("ABCDEFG", "@DBZ" ) , " " )
|
|
TEST_LINE( Transform(".", "@E" ) , " " )
|
|
TEST_LINE( Transform(",", "@E" ) , "." )
|
|
TEST_LINE( Transform("..", "@E" ) , ","+Chr(0)+"" )
|
|
TEST_LINE( Transform(",,", "@E" ) , ".." )
|
|
TEST_LINE( Transform(",.,", "@E" ) , ",,." )
|
|
TEST_LINE( Transform(".,.", "@E" ) , ""+Chr(0)+".." )
|
|
TEST_LINE( Transform("OPI", "@E ." ) , ""+Chr(0)+",." )
|
|
TEST_LINE( Transform("JKL", "@E ," ) , ""+Chr(0)+"P." )
|
|
TEST_LINE( Transform("OPI", "@ER ." ) , "I .OP. " )
|
|
TEST_LINE( Transform("JKL", "@ER ," ) , "L .JK. " )
|
|
TEST_LINE( Transform("OPI", "@ER" ) , "I .OP. " )
|
|
TEST_LINE( Transform("JKL", "@ER" ) , "L .JK. " )
|
|
TEST_LINE( Transform(CTOD(""), "@DB") , ". . " )
|
|
TEST_LINE( Transform(CTOD(""), "@DBR uiuijk") , ".. . . " )
|
|
TEST_LINE( Transform(100, "@B $99999") , "$ 100" )
|
|
TEST_LINE( Transform(10, "@BZ $99999") , "$ 10" )
|
|
TEST_LINE( Transform(10, "@BX $99999") , "$ 10" )
|
|
TEST_LINE( Transform(0, "@BZX $99999") , " " )
|
|
TEST_LINE( Transform(-10, "@B(X $99999") , "(10) DB " )
|
|
TEST_LINE( Transform(-10, "@(X $99999") , "( 10) DB" )
|
|
TEST_LINE( Transform(0, "@B(X $99999") , "$ 0" )
|
|
TEST_LINE( Transform(0, "@B(ZX $99999") , " " )
|
|
|
|
#ifndef __XPP__
|
|
TEST_LINE( Transform(sdDate, NIL) , "84.03.25" )
|
|
#endif
|
|
TEST_LINE( Transform(sdDate, "") , "84.03.25" )
|
|
TEST_LINE( Transform(sdDate, "@Z") , " " )
|
|
|
|
SET(_SET_DATEFORMAT, "DD/MMM/YYYY")
|
|
|
|
TEST_LINE( Transform( .T., "#") , "T" )
|
|
TEST_LINE( Transform( .F., "#") , "F" )
|
|
TEST_LINE( Transform( .T., "#ylntfhekko") , "T" )
|
|
TEST_LINE( Transform( .F., "#ylntfhekko") , "F" )
|
|
TEST_LINE( Transform( .T., "#YLNTFHEKKO") , "T" )
|
|
TEST_LINE( Transform( .F., "#YLNTFHEKKO") , "F" )
|
|
TEST_LINE( Transform( .T., "YLNTFHEKKO#") , "Y" )
|
|
TEST_LINE( Transform( .F., "YLNTFHEKKO#") , "N" )
|
|
TEST_LINE( Transform( .T., "XLNTFHEKKO#") , "X" )
|
|
TEST_LINE( Transform( .F., "XLNTFHEKKO#") , "X" )
|
|
TEST_LINE( Transform( .T., "ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , "A" )
|
|
TEST_LINE( Transform( .F., "ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , "A" )
|
|
TEST_LINE( Transform( .T., "") , "T" )
|
|
TEST_LINE( Transform( .F., "") , "F" )
|
|
TEST_LINE( Transform( .T., "@") , "T" )
|
|
TEST_LINE( Transform( .F., "@") , "F" )
|
|
TEST_LINE( Transform( .T., "@R #") , "T" )
|
|
TEST_LINE( Transform( .F., "@R #") , "F" )
|
|
TEST_LINE( Transform( .T., "@R #ylntfhekko") , "T ntfhekko" )
|
|
TEST_LINE( Transform( .F., "@R #ylntfhekko") , "F ntfhekko" )
|
|
TEST_LINE( Transform( .T., "@R #YLNTFHEKKO") , "T NTFHEKKO" )
|
|
TEST_LINE( Transform( .F., "@R #YLNTFHEKKO") , "F NTFHEKKO" )
|
|
TEST_LINE( Transform( .T., "@R YLNTFHEKKO#") , "Y NTFHEKKO " )
|
|
TEST_LINE( Transform( .F., "@R YLNTFHEKKO#") , "N NTFHEKKO " )
|
|
TEST_LINE( Transform( .T., "@R XLNTFHEKKO#") , "XTNTFHEKKO " )
|
|
TEST_LINE( Transform( .F., "@R XLNTFHEKKO#") , "XFNTFHEKKO " )
|
|
TEST_LINE( Transform( .T., "@R ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , "ABCDEFGHIJKTMNOPQRSTUVWX Z9 !$ *.," )
|
|
TEST_LINE( Transform( .F., "@R ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , "ABCDEFGHIJKFMNOPQRSTUVWX Z9 !$ *.," )
|
|
TEST_LINE( Transform( .T., "@Z #") , " " )
|
|
TEST_LINE( Transform( .F., "@Z #") , " " )
|
|
TEST_LINE( Transform( .T., "@Z #ylntfhekko") , " " )
|
|
TEST_LINE( Transform( .F., "@Z #ylntfhekko") , " " )
|
|
TEST_LINE( Transform( .T., "@Z #YLNTFHEKKO") , " " )
|
|
TEST_LINE( Transform( .F., "@Z #YLNTFHEKKO") , " " )
|
|
TEST_LINE( Transform( .T., "@Z YLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .F., "@Z YLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .T., "@Z XLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .F., "@Z XLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .T., "@Z ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , " " )
|
|
TEST_LINE( Transform( .F., "@Z ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , " " )
|
|
TEST_LINE( Transform( .T., "@RZ #") , " " )
|
|
TEST_LINE( Transform( .F., "@RZ #") , " " )
|
|
TEST_LINE( Transform( .T., "@RZ #ylntfhekko") , " " )
|
|
TEST_LINE( Transform( .F., "@RZ #ylntfhekko") , " " )
|
|
TEST_LINE( Transform( .T., "@RZ #YLNTFHEKKO") , " " )
|
|
TEST_LINE( Transform( .F., "@RZ #YLNTFHEKKO") , " " )
|
|
TEST_LINE( Transform( .T., "@RZ YLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .F., "@RZ YLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .T., "@RZ XLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .F., "@RZ XLNTFHEKKO#") , " " )
|
|
TEST_LINE( Transform( .T., "@RZ ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , " " )
|
|
TEST_LINE( Transform( .F., "@RZ ABCDEFGHIJKLMNOPQRSTUVWXYZ9#!$ *.,") , " " )
|
|
|
|
Set( _SET_DATEFORMAT, cOldDate )
|
|
|
|
RETURN NIL
|
|
|
|
/* Don't change the position of this #include. */
|
|
#include "rt_init.ch"
|