factor/extra/logic/examples/factorial/factorial-tests.factor

13 lines
432 B
Factor
Raw Normal View History

2020-03-01 04:19:07 -05:00
! Copyright (C) 2019-2020 KUSUMOTO Norio.
! See http://factorcode.org/license.txt for BSD license.
2020-03-03 07:04:46 -05:00
USING: tools.test logic logic.examples.factorial ;
IN: logic.examples.factorial.tests
2020-03-01 04:19:07 -05:00
{ { H{ { F 1 } } } } [ { factorial 0 F } query ] unit-test
{ { H{ { F 1 } } } } [ { factorial 1 F } query ] unit-test
{ { H{ { F 2 } } } } [ { factorial 2 F } query ] unit-test
{ { H{ { F 3628800 } } } } [ { factorial 10 F } query ] unit-test