add test code for remove/delete/substitute sequence

[furushchev]

Add test cases for euslisp/EusLisp#295

[furushchev]

Failed as expected:

TEST-NAME: delete-sequence
  now testing...
�[32mstart testing [delete-sequence]
�[0m�[31m[ERROR] test (equal (vector 1 3 2 1) (delete 2 (vector 1 2 3 2 1) :end 2)) failed ... ( ^[0mmstart testing [delete-sequence]
).�[0m
�[31m[ERROR] test (equal (vector 2 3 2 1) (delete 1 (vector 1 2 3 2 1) :count 1)) failed ... ( ]
).^[0m
OR] test (equal (vector 1 3 2 1) (delete 2 (vector 1 2 3 2 1) :end 2)) failed ... ( ^[0mmstart testing [delete-sequence).�[0m
�[31m[ERROR] test (equal (vector 1 3 2 1) (delete-if #'evenp (vector 1 2 3 2 1) :end 2)) failed ... ( 1 3 2 1) (delete 2 (vector 1 2 3 2 1) :end 2)) failed ... ( ^[0mmstart testing [delete-sequence).^[0m
m
OR] test (equal (vector ).�[0m
�[31m[ERROR] test (equal (vector 1 3 2 1) (delete-if #'evenp (vector 1 2 3 2 1) :count 1)) failed ... (  1 2 3 2 1) :end 2)) failed ... ( ^[0mmstart testing [delete-sequence).^[0m
m
OR] test (equal (vector ).^[0m
) (delete 2 (vector).�[0m
�[31m[ERROR] test (equal (vector 2 3 2 1) (delete-if-not #'evenp (vector 1 2 3 2 1) :end 2)) failed ... ( led ... ( ^[0mmstart testing [delete-sequence).^[0m
m
OR] test (equal (vector ).^[0m
) (delete 2 (vector).^[0m
2 1) :end 2)) fai).�[0m
�[31m[ERROR] test (equal (vector 2 3 2 1) (delete-if-not #'evenp (vector 1 2 3 2 1) :count 1)) failed ... ( esting [delete-sequence).^[0m
m
OR] test (equal (vector ).^[0m
) (delete 2 (vector).^[0m
2 1) :end 2)) fai).^[0m
 ( ^[0mmstart t).�[0m
TEST-NAME: remove-sequence
  now testing...
�[32mstart testing [remove-sequence]
�[0m�[31m[ERROR] test (equal (vector 2 3 2 1) (remove 1 (vector 1 2 3 2 1) :count 1)) failed ... ( ^[0mmstart testing [remove-sequence]
.^[0m
) (delete 2 (vector).^[0m
2 1) :end 2)) fai).^[0m
 ( ^[0mmstart t).^[0m
[delete-seque).�[0m
�[31m[ERROR] test (equal (vector 1 3 2 1) (remove-if #'evenp (vector 1 2 3 2 1) :count 1)) failed ... ( ce]
.^[0m
) (delete 2 (vector).^[0m
2 1) :end 2)) fai).^[0m
 ( ^[0mmstart t).^[0m
[delete-seque).^[0m
art testing [remove-sequen).�[0m
�[31m[ERROR] test (equal (vector 2 3 2 1) (remove-if-not #'evenp (vector 1 2 3 2 1) :count 1)) failed ... ( ector).^[0m
2 1) :end 2)) fai).^[0m
 ( ^[0mmstart t).^[0m
[delete-seque).^[0m
art testing [remove-sequen).^[0m
0m
) (delete 2 (v).�[0m
ALL RESULTS:
  TEST-NUM: 7
    PASSED:   5
�[31m    FAILURE:  2
�[0mRESULT: all-test
  TEST-NUM: 0
    PASSED:   0
    FAILURE:  0
RESULT: coerse
  TEST-NUM: 1
    PASSED:   1
    FAILURE:  0
RESULT: operator
  TEST-NUM: 1
    PASSED:   1
    FAILURE:  0
RESULT: func
  TEST-NUM: 1
    PASSED:   1
    FAILURE:  0
RESULT: reader
  TEST-NUM: 1
    PASSED:   1
    FAILURE:  0
RESULT: nan-inf-read
  TEST-NUM: 1
    PASSED:   1
    FAILURE:  0
RESULT: delete-sequence
  TEST-NUM: 1
    PASSED:   0
�[31m    FAILURE:  1�[0m
RESULT: remove-sequence
  TEST-NUM: 1
    PASSED:   0
�[31m    FAILURE:  1�[0m

[furushchev]

Merged test code for furushchev/EusLisp#1
The result using the latest PR euslisp/EusLisp#296 can be seen at furushchev#2

[k-okada]

I have moved test code to EusLisp directory, so if you're still interested in this PR, please move the test code to EusLisp package euslisp/EusLisp#316