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

Tests of around-advice

db4
James Cash 2008-11-06 00:44:25 -05:00
parent 894d9a67c9
commit 6035bb3130
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
extra/advice/advice-tests.factor
View File

@ -1,22 +1,40 @@
! Copyright (C) 2008 James Cash ! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences tools.test advice parser ; USING: kernel sequences math tools.test advice parser namespaces ;
IN: advice.tests IN: advice.tests
[ [
: foo "foo" ; : foo "foo" ;
\ foo make-advised \ foo make-advised
{ "bar" "foo" } [ { "bar" "foo" } [
[ "bar" ] "barify" \ foo advise-before [ "bar" ] "barify" \ foo advise-before
foo ] unit-test foo ] unit-test
{ "bar" "foo" "baz" } [ { "bar" "foo" "baz" } [
[ "baz" ] "bazify" \ foo advise-after [ "baz" ] "bazify" \ foo advise-after
foo ] unit-test foo ] unit-test
{ "foo" "baz" } [ { "foo" "baz" } [
"barify" \ foo before remove-advice "barify" \ foo before remove-advice
foo ] unit-test foo ] unit-test
] with-interactive-vocabs : bar ( a -- b ) 1+ ;
\ bar make-advised
{ 11 } [
[ 2 * ] "double" \ bar advise-before
5 bar
] unit-test
{ 11/3 } [
[ 3 / ] "third" \ bar advise-after
5 bar
] unit-test
{ -2 } [
[ -1 * ad-do-it 3 + ] "frobnobicate" \ bar advise-around
5 bar
] unit-test
] with-scope