funcs

EPIC IRC客户端。来源于IRCII客户端但做了很多性能和功能的优化。

#
# EPIC3 ESL regression tests
# built in functions test
# (C) 1995 Jeremy Nelson, Distribute freely.
#
# NOTE: If you find a test that is missing, please let me know so
# i can add it.  Doubly so if you find a test that exposes a bug!
#

@ misses = 0

alias clear {
	if (misses) {@ [$"[RETURN]"];@ misses = 0}
	//clear
}

alias assert {
	eval @ foo = $*
	if (foo == 1) { echo Test [$[60]*] passed }
		      { echo Test [$[60]*] FAILED! ;@misses++ }
}

# testing $after()
clear
assert after(!)==[]
assert after(! one)==[]
assert after(! one!)==[]
assert after(! one!two)==[two]
assert after(! one!two!three)==[two!three]
assert after(1)==[]
assert after(1 !)==[]
assert after(1 ! one)==[]
assert after(1 ! one!)==[]
assert after(1 ! one!two)==[two]
assert after(1 ! one!two!three)==[two!three]
assert after(-1)==[]
assert after(-1 !)==[]
assert after(-1 ! one)==[]
assert after(-1 ! one!)==[]
assert after(-1 ! one!two!three)==[three]
assert after(-1 ! one!two)==[two]
assert after(2 ! one)==[]
assert after(2 ! one!)==[]
assert after(2 ! one!two)==[]
assert after(2 ! one!two!three)==[three]
assert after(-2 ! one)==[]
assert after(-2 ! one!)==[]
assert after(-2 ! one!two)==[]
assert after(-2 ! one!two!three)==[two!three]

# testing $afterw()
clear
assert afterw() == []
assert afterw(one) == []
assert afterw(one two) == []
assert afterw(one two three one four five) == [four five]
assert afterw(two two three four five two) == [three four five two]
assert afterw(one one) == []
assert afterw(one three four five) == []

# testing $ascii() -- see test for $jot()

# testing $before()
clear
assert before(!)==[]
assert before(! one)==[]
assert before(! one!)==[one]
assert before(! one!two)==[one]
assert before(! one!two!three)==[one]
assert before(1)==[]
assert before(1 !)==[]
assert before(1 ! one)==[]
assert before(1 ! one!)==[one]
assert before(1 ! one!two)==[one]
assert before(1 ! one!two!three)==[one]
assert before(-1)==[]
assert before(-1 !)==[]
assert before(-1 ! one)==[]
assert before(-1 ! one!)==[one]
assert before(-1 ! one!two)==[one]
assert before(-1 ! one!two!three)==[one!two]
assert before(2 ! one)==[]
assert before(2 ! one!)==[]
assert before(2 ! one!two)==[]
assert before(2 ! one!two!three)==[one!two]
assert before(-2 ! one)==[]
assert before(-2 ! one!)==[]
assert before(-2 ! one!two)==[]
assert before(-2 ! one!two!three)==[one]

# testing $beforew()
clear
assert beforew() == []
assert beforew(one) == []
assert beforew(one two) == []
assert beforew(one two three one four five) == [two three]
assert beforew(two two three four five two) == []
assert beforew(one one) == []
assert beforew(one three four five) == []

# testing $center()
clear
assert center() == []
assert center(10) == [     ]
assert center(10 foo) == [   foo]
assert center(10 boog) == [   boog]

# testing $chanusers() -- cant be tested right now.

# testing $chngw()
clear
assert chngw() == []
assert chngw(1) == []
assert chngw(1 one) == [one]
assert chngw(0 one) == [one]
assert chngw(0 one two) == [one]
assert chngw(1 one two) == [two one]
assert chngw(1 one two three) == [two one]
assert chngw(2 one two three) == [two three one]
assert chngw(0 one five four three two one) == [one four three two one]

# testing $chops() -- cant be tested right now.
# testing $chr() -- see test for $jot()

# testing $common()
clear
assert common() == []
assert common(/) == []
assert common(one/one) == [one]
assert common(one/two) == []
assert common(one two / one two) == [one two]
assert common(one three / one four) == [one]
assert common(one three / three four one) == [one three]
assert common(one two / phone foobar) == []
assert common(one two one / one three) == [one]
assert common(/one two three) == []
assert common(one two three/) == []

# testing $connect() -- cant be tested right now
# testing $convert() -- cant be tested right now

# testing $copattern()
clear
@ one = []
@ two = []
assert copattern(* one two) == []
@ one = [foo]
@ two = [bar]
assert copattern(* one two) == [bar]
assert copattern(b* one two) == []
assert copattern(*o one two) == [bar]
@ one = [one two three four]
@ two = [five six seven eight]
assert copattern(* one two) == [five six seven eight]
assert copattern(*e one two) == [five seven]
assert copattern(t* one two) == [six seven]
@ one = [one two three four]
@ two = [boo]
assert copattern(t* one two) == []
assert copattern(o* one two) == [boo]
assert copattern(*o* one two) == [boo]

# testing $curpos -- cant be tested right now

# testing $decode() and $encode()
clear
assert encode() == []
assert decode() == []
assert decode($encode()) == []
assert decode($encode(foo)) == [foo]

# testing $diff()
clear
assert diff() == []
assert diff(/) == []
assert diff(one/one) == []
assert diff(one/two) == [one two]
assert diff(one two / one two) == []
assert diff(one three / one four) == [three four]
assert diff(one three / three four one) == [four]
assert diff(/one two three) == [one two three]
assert diff(one two three/) == [one two three]

# testing $eof() -- cant be tested right now

# testing $filter()
clear
assert filter() == []
assert filter(*) == []
assert filter(* one two) == []
assert filter(o* one two) == [two]
assert filter(t* one two) == [one]
assert filter(r* one two) == [one two]
assert filter(t* one two three) == [one]
assert filter(*e one two three) == [two]

# testing $fromw()
clear
assert fromw() == []
assert fromw(one) == []
assert fromw(one two) == []
assert fromw(one two three one four five) == [one four five]
assert fromw(two two three four five two) == [two three four five two]
assert fromw(one one) == [one]
assert fromw(one three four five) == []

# testing $index()
clear
assert index() == []
assert index(/ one) == -1
assert index(/ /one) == 0
assert index(/ o/ne) == 1
assert index(/ on/e) == 2
assert index(/ one/) == 3
assert index(/ /one/) == 0
assert index(^/ ///one/) == 3
assert index(the one) == 2
assert index(the het) == 0
assert index(^the the) == -1
assert index(^the one) == 0
assert index(^the eon) == 1

clear
assert indextoword(0 one . ..  two ) == 0
assert indextoword(1 one . ..  two ) == 0
assert indextoword(2 one . ..  two ) == 0
assert indextoword(3 one . ..  two ) == 0
assert indextoword(4 one . ..  two ) == 1
assert indextoword(5 one . ..  two ) == 1
assert indextoword(6 one . ..  two ) == 2
assert indextoword(7 one . ..  two ) == 2
assert indextoword(8 one . ..  two ) == 2
assert indextoword(9 one . ..  two ) == 3
assert indextoword(10 one . ..  two ) == 3
assert indextoword(11 one . ..  two ) == 3
assert indextoword(12 one . ..  two ) == 3
assert indextoword(13 one . ..  two ) == 3
assert indextoword(14 one . ..  two ) == 3 
assert indextoword(15 one . ..  two ) == []

# testing $insertw()
clear
assert insertw() == []
assert insertw(-1) == []
assert insertw(1) == []
assert insertw(1 one) == [one]
assert insertw(0 one) == [one]
assert insertw(0 one two) == [one two]
assert insertw(1 one two) == [two one]
assert insertw(1 one two three) == [two one three]
assert insertw(2 one two three) == [two three one]
assert insertw(4 one two three) == [two three one]
assert insertw(-1 one two three) == [one two three]

# testing $iptoname() -- cant be tested right now

# testing $isalpha()
clear
assert isalpha() == 0
assert isalpha(1) == 0
assert isalpha(x) == 1
assert isalpha(X) == 1
assert isalpha(^) == 0

# testing $ischannel()
clear
assert ischannel() == 0
assert ischannel(#) == 1
assert ischannel(&) == 1
assert ischannel(L) == 0
assert ischannel(#foo) == 1
assert ischannel(&foo) == 1

# testing $ischanop() -- cant be tested right now

# testing $isdigit()
clear
assert isdigit() == 0
assert isdigit(1) == 1
assert isdigit(x) == 0
assert isdigit(X) == 0
assert isdigit(^) == 0

# testing $jot()
clear
assert jot() == []
assert jot(1 3) == [1 2 3]
assert jot(3 1) == [3 2 1]
assert jot(-10 10) == [-10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10]
assert jot(-10 10 2) == [-10 -8 -6 -4 -2 0 2 4 6 8 10]
assert chr($jot($ascii(a) $ascii(z))) == [abcdefghijklmnopqrstuvwxyz]
assert chr($jot($ascii(a) $ascii(z) 2)) == [acegikmoqsuwy]
assert chr($jot($ascii(a) $ascii(z))) == reverse($chr($jot($ascii(z) $ascii(a))))
assert jot(10 -10 2) == [10 8 6 4 2 0 -2 -4 -6 -8 -10]
assert jot(10 -10 2) == jot(10 -10 -2)

/*
# testing $key()
clear
assert key() == []
assert key(*) == []
assert key(#some_channel_that_doesnt_exist) == []
//join #some_channel_that_doesnt_exist
//wait
//mode #some_channel_that_doesnt_exist +k this_is_a_stupid_key
//wait
assert key() == [this_is_a_stupid_key]
assert key(*) == [this_is_a_stupid_key]
assert key(#some_channel_that_doesnt_exist) == [this_is_a_stupid_key]
//join #some_stupid_channel_2
//wait
//mode #some_stupid_channel_2 +k stupid_key_2
//wait
assert key(*) == [stupid_key_2]
//channel #some_channel_that_doesnt_exist
assert key(*) == [this_is_a_stupid_key]
assert key(#some_stupid_channel_2) == [stupid_key_2]
//join 0
wait
*/

# testing $left()
clear
assert left(one)==[]
assert left(1 one)==[o]
assert left(2 one)==[on]
assert left(3 one)==[one]
assert left(4 one)==[one]

# testing $leftw()
clear
assert leftw() == []
assert leftw(0) == []
assert leftw(0 one) == []
assert leftw(-1) == []
assert leftw(-1 one) == []
assert leftw(1) == []
assert leftw(1 one) == [one]
assert leftw(1 one two) == [one]
assert leftw(2) == []
assert leftw(2 one) == [one]
assert leftw(2 one two) == [one two]
assert leftw(2 one two three) == [one two]

# testing $listen() -- cant be tested right now

# testing $match()
clear
assert match() == []
assert match(one two three) == 0
assert match(two two three) == 1
assert match(three two three) == 2
assert match(*) == 0
assert match(* one) == 1
assert match(%) == 0
assert match(% one) == 1
assert match(?) == 0
assert match(? one) == 0
assert match(? o one) == 1
assert match(? one o) == 2
assert match(?? one on) == 2
assert match(m* marble mantle) == 1
assert match(m*n* marble mantle) == 2
assert match(f*o* marble mantle) == 0
assert match(one* one two) == 1
assert match(*one one two) == 1
assert match(*one* one two) == 1
assert match(** one two) == 1
assert match(*%* one two) == 1

# testing $mid()
clear
assert mid(-1) == []
assert mid(-1 3) == []
assert mid(-1 3 one) == []
assert mid(0 1 one) == [o]
assert mid(1 1 one) == [n]
assert mid(2 1 one) == [e]
assert mid(3 1 one) == []
assert mid(0 2 one) == [on]
assert mid(1 2 one) == [ne]
assert mid(2 2 one) == [e]
assert mid(3 2 one) == []
assert mid(0 3 one) == [one]
assert mid(1 3 one) == [ne]
assert mid(2 3 one) == [e]
assert mid(3 3 one)==[]
assert mid(4 3 one)==[]

# testing $midw()
clear
assert midw() == []
assert midw(0) == []
assert midw(-1) == []
assert midw(1) == []
assert midw(0 0) == []