steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

adding unittest for infix-word.see

cvs
Daniel Ehrenberg 2005-03-06 01:01:51 +00:00
parent d47fbc8d1a
commit 54ad3394a7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/algebra/tests.factor
View File

@ -1,4 +1,4 @@
USING: algebra test math kernel ;
USING: algebra test math kernel prettyprint stdio ;
[ [ - [ + x [ mod [ * 2 pi ] 4 ] ] ] ] [
([ - x + [ 2 * pi ] mod 4 ])
@ -9,3 +9,4 @@ USING: algebra test math kernel ;
[ [ + x 1/2 ] ] [ ([ x + 3 / 6 ]) fold-consts ] unit-test
[ 1 ] [ 5 3 [ x ] ([ sq x + 6 ]) install-mod eval-infix call ] unit-test
[ 1.0 -1.0 ] [ 1 0 -1 quadratic-formula ] unit-test
[ "IN: algebra :| quadratic-formula a b c |:\n [ [ [ - b ] / 2 * a ] +- [ sqrt [ sq b ] - 4 * a * c ] / 2 * a ] ;\n" ] [ [ \ quadratic-formula see ] with-string ] unit-test