factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / extra / yahoo / yahoo-tests.factor

diff --git a/extra/yahoo/yahoo-tests.factor b/extra/yahoo/yahoo-tests.factor
index 827d6ecfd0d3312ec94dfb90d07fc4517f939655..f43171992696b369c05b8e4c227a2365387429da 100644 (file)
--- a/extra/yahoo/yahoo-tests.factor
+++ b/extra/yahoo/yahoo-tests.factor
@@ -1,11 +1,11 @@
 USING: tools.test yahoo kernel io.files xml sequences accessors urls ;
 
-[ T{
+{ T{
     result
     f
     "Official Foo Fighters"
     "http://www.foofighters.com/"
     "Official site with news, tour dates, discography, store, community, and more."
-} ] [ "resource:extra/yahoo/test-results.xml" file>xml parse-yahoo first ] unit-test
+} } [ "resource:extra/yahoo/test-results.xml" file>xml parse-yahoo first ] unit-test
 
-[ URL" http://search.yahooapis.com/WebSearchService/V1/webSearch?appid=Factor-search&query=hi&results=2&similar_ok=1" ] [ "hi" <search> "Factor-search" >>appid 2 >>results t >>similar-ok query ] unit-test
+{ URL" http://search.yahooapis.com/WebSearchService/V1/webSearch?appid=Factor-search&query=hi&results=2&similar_ok=1" } [ "hi" <search> "Factor-search" >>appid 2 >>results t >>similar-ok query ] unit-test