factor/extra/crypto/timing/timing-tests.factor

5 lines
126 B
Factor
Raw Normal View History

2007-09-20 18:09:08 -04:00
USING: crypto.timing kernel tools.test ;
IN: temporary
[ t ] [ millis [ ] 1000 with-timing millis swap - 1000 >= ] unit-test