X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fmacho%2Fmacho-tests.factor;fp=extra%2Fmacho%2Fmacho-tests.factor;h=48626fcaf3630bd62ff429cb0a6de14ffc4250db;hp=00f008ec10ab27f448376830a08180158fb75928;hb=e20bf9b97fe60ebe18b8972b2b56fe681fce64a8;hpb=db559f6f98522594be8ef9a9392fb6d95fab3abe diff --git a/extra/macho/macho-tests.factor b/extra/macho/macho-tests.factor index 00f008ec10..48626fcaf3 100644 --- a/extra/macho/macho-tests.factor +++ b/extra/macho/macho-tests.factor @@ -1,8 +1,8 @@ ! Copyright (C) 2010 Erik Charlebois. ! See https://factorcode.org/license.txt for BSD license. -USING: accessors alien http.client io io.files.temp +USING: accessors alien http.download io.files.temp io.streams.string kernel literals macho multiline sequences -strings system tools.test urls ; +system tools.test urls ; IN: macho.tests STRING: validation-output @@ -24,11 +24,11 @@ STRING: validation-output : a.macho ( -- path ) URL" https://downloads.factorcode.org/misc/a.macho" - "a.macho" cache-file [ ?download-to ] keep ; + "a.macho" cache-file download-to ; : a2.macho ( -- path ) URL" https://downloads.factorcode.org/misc/a2.macho" - "a2.macho" cache-file [ ?download-to ] keep ; + "a2.macho" cache-file download-to ; cpu ppc? [ { $ validation-output }