32 lines
630 B
Factor
32 lines
630 B
Factor
|
! Copyright (C) 2019-2020 KUSUMOTO Norio.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: tools.test factlog lists factlog.examples.money ;
|
||
|
|
IN: factlog.examples.money.tests
|
||
|
|
|
||
|
|
{
|
||
|
|
{
|
||
|
|
H{
|
||
|
|
{ N1 L{ 0 9 5 6 7 } }
|
||
|
|
{ N2 L{ 0 1 0 8 5 } }
|
||
|
|
{ N L{ 1 0 6 5 2 } }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
[
|
||
|
|
{ { moneyo N1 N2 N } { sumo N1 N2 N } } query
|
||
|
|
S-and-M-can't-be-zero
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{
|
||
|
|
{
|
||
|
|
H{
|
||
|
|
{ N1 L{ 5 2 6 4 8 5 } }
|
||
|
|
{ N2 L{ 1 9 7 4 8 5 } }
|
||
|
|
{ N L{ 7 2 3 9 7 0 } }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
[
|
||
|
|
{ { donaldo N1 N2 N } { sumo N1 N2 N } } query
|
||
|
|
] unit-test
|