home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR2
/
ASET10.ZIP
/
ASET4.TST
< prev
next >
Wrap
Text File
|
1993-05-06
|
3KB
|
215 lines
# $Id: aset4.tst 1.1 1993/03/09 13:01:22 Ricki Exp $
# Test file for ASETs string functions
#
# $Log: aset4.tst $
# Revision 1.1 1993/03/09 13:01:22 Ricki
# Initial revision
#
#
#-------CHR
#
a=chr(65)
a=chr(250)
#
a=chr()
a=chr
a=chr(1,2)
#
#-------CONCAT
#
a=concat('abc','def')
a=concat(1,1)
a=concat('a')
a=concat(1,2,3,4,5)
#
a=concat()
a=concat
#
#-------COPY
#
a=copy('abcdef',2,3)
a=copy('',100,200)
a=copy('abc',-1,2)
a=copy('abcdef',4,255)
#
a=copy()
a=copy('a',1)
a=copy(x)
a=copy(1,2,3,4)
#
#-------DELETE
#
a=delete('abcdef',2,3)
a=delete('',100,200)
a=delete('abc',-1,2)
a=delete('abcdef',4,255)
#
a=delete()
a=delete('a',1)
a=delete(x)
a=delete(1,2,3,4)
#
#-------INSTR
#
a=instr('abcdef','bc')
a=instr('','')
a=instr('abc','d')
#
a=instr()
a=instr(x)
a=instr(1,2,3)
#
#-------LEFT
#
a=left('abcdef',2)
a=left('',100)
a=left('abc',-1)
a=left('abcdef',4)
#
a=left()
a=left(x)
a=left(1,2,3)
#
#-------LEN
#
a=len('abcdef')
a=len('')
a=len()
#
a=len
a=len(1,2)
#
#-------LOCASE
#
a=locase('aBCDef')
a=locase('')
a=locase()
#
a=locase
a=locase(1,2)
#
#-------NTH
#
a=nth(2,'a bc def')
a=nth(1,'')
a=nth(1,'abc')
a=nth(4,'a b c')
a=nth(3,'a b c')
#
a=nth()
a=nth('a',1)
a=nth(x)
a=nth(0,'a b c')
#
#-------ORD
#
a=ord('a')
a=ord('abcdef')
a=ord('')
#
a=ord
a=ord(1,2)
#
#-------POS
#
a=pos('bc','abcdef')
a=pos('','')
a=pos('d','abc')
#
a=pos()
a=pos(x)
a=pos(1,2,3)
#
#-------QUOTE
#
a=quote
a=quote()
a=quote('abc')
a=quote(quote)
#
a=quote(1,2)
#
#-------RIGHT
#
a=right('abcdef',2)
a=right('',100)
a=right('abc',-1)
a=right('abcdef',4)
#
a=right()
a=right(x)
a=right(1,2,3)
#
#-------SUBALL
#
a=suball('a','b','abba')
a=suball('','x','')
a=suball('x','','axl,axl')
a=suball('ab','ba','abba')
#
a=suball()
a=suball(x)
a=suball(1,2,3,4)
#
#-------SUBST
#
a=subst('a','b','abba')
a=subst('','x','')
a=subst('x','','axl')
a=subst('x','','axl,axl')
a=subst('ab','ba','abba')
#
a=subst()
a=subst(x)
a=subst(1,2,3,4)
#
#-------UNQUOTE
#
a=unquote('abc')
a=unquote('')
a=unquote()
a=unquote(quote(quote))
a=unquote(quote(quote(quote)))
#
a=unquote
a=unquote(1,2)
#
#-------UPCASE
#
a=upcase('aBCDef')
a=upcase('')
a=upcase()
#
a=upcase
a=upcase(1,2)
#
#-------WORDS
#
a=words('a bc def',' w ')
a=words('')
a=words()
a=words('x')
a=words('abc','def')
a=words('a b c')
#
a=words