steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Use call-next-method

db4
Slava Pestov 2008-04-03 05:21:45 -05:00
parent 0041d2edae
commit 45cf030cbd
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/smtp/smtp-tests.factor
View File

@ -3,6 +3,12 @@ smtp.server kernel sequences namespaces logging accessors
assocs sorting ; assocs sorting ;
IN: smtp.tests IN: smtp.tests
[ t ] [
<email>
dup clone "a" "b" set-header drop
headers>> assoc-empty?
] unit-test
{ 0 0 } [ [ ] with-smtp-connection ] must-infer-as { 0 0 } [ [ ] with-smtp-connection ] must-infer-as
[ "hello\nworld" validate-address ] must-fail [ "hello\nworld" validate-address ] must-fail

2
extra/smtp/smtp.factor
View File

@ -106,7 +106,7 @@ LOG: smtp-response DEBUG
TUPLE: email from to subject headers body ; TUPLE: email from to subject headers body ;
M: email clone M: email clone
(clone) [ clone ] change-headers ; call-next-method [ clone ] change-headers ;
: (send) ( email -- ) : (send) ( email -- )
[ [