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

extra: regularizing some unit tests. removing a """ literal..

db4
Doug Coleman 2015-07-02 15:06:08 -07:00
parent 40892c0302
commit 1b2b39133d
3 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
extra/svg/svg-tests.factor
View File

@ -1,29 +1,30 @@
! (c)2009 Joe Groff, see BSD license
USING: accessors arrays literals math math.affine-transforms
math.functions sequences svg tools.test xml xml.traversal multiline ;
USING: accessors literals math math.affine-transforms
math.functions multiline sequences svg tools.test xml
xml.traversal ;
IN: svg.tests
{ 1.0 2.25 } { -3.0 4.0 } { 5.5 0.5 } <affine-transform> 1array [
${ { 1.0 2.25 } { -3.0 4.0 } { 5.5 0.5 } <affine-transform> } [
"matrix ( 1 +2.25 -3 , 0.4e+1 ,5.5, 5e-1 )" svg-transform>affine-transform
] unit-test
{ 1.0 0.0 } { 0.0 1.0 } { 5.0 10.0 } <affine-transform> 1array [
${ { 1.0 0.0 } { 0.0 1.0 } { 5.0 10.0 } <affine-transform> } [
"translate(5.0, 1e1 )" svg-transform>affine-transform
] unit-test
{ 1.0 0.0 } { 0.0 1.0 } { 5.0 10.0 } <affine-transform> 1array [
${ { 1.0 0.0 } { 0.0 1.0 } { 5.0 10.0 } <affine-transform> } [
"translate( 5.0 1e+1)" svg-transform>affine-transform
] unit-test
{ 2.0 0.0 } { 0.0 2.0 } { 0.0 0.0 } <affine-transform> 1array [
${ { 2.0 0.0 } { 0.0 2.0 } { 0.0 0.0 } <affine-transform> } [
"scale(2.0)" svg-transform>affine-transform
] unit-test
{ 2.0 0.0 } { 0.0 4.0 } { 0.0 0.0 } <affine-transform> 1array [
${ { 2.0 0.0 } { 0.0 4.0 } { 0.0 0.0 } <affine-transform> } [
"scale(2.0 4.0)" svg-transform>affine-transform
] unit-test
{ 2.0 0.0 } { 0.0 4.0 } { 0.0 0.0 } <affine-transform> 1array [
${ { 2.0 0.0 } { 0.0 4.0 } { 0.0 0.0 } <affine-transform> } [
"scale(2.0 4.0)" svg-transform>affine-transform
] unit-test
@ -54,9 +55,11 @@ IN: svg.tests
} <affine-transform> 0.001 a~
] unit-test
{ $[ 30 degrees cos ] $[ 30 degrees sin ] }
{ $[ -30 degrees sin ] $[ 30 degrees cos ] }
{ 1.0 2.0 } <affine-transform> 1array [
${
{ $[ 30 degrees cos ] $[ 30 degrees sin ] }
{ $[ -30 degrees sin ] $[ 30 degrees cos ] }
{ 1.0 2.0 } <affine-transform>
} [
"translate(1 2) rotate(30)" svg-transform>affine-transform
] unit-test

2
extra/tetris/board/board-tests.factor
View File

@ -5,7 +5,7 @@ USING: accessors arrays colors colors.constants kernel tetris.board tetris.piece
[ 1 { f f } ] [ 2 3 <board> { 1 1 } board@block ] unit-test
[ f ] [ 2 3 <board> { 1 1 } block ] unit-test
[ 2 3 <board> { 2 3 } block ] must-fail
COLOR: red 1array [ 2 3 <board> dup { 1 1 } COLOR: red set-block { 1 1 } block ] unit-test
{ COLOR: red } [ 2 3 <board> dup { 1 1 } COLOR: red set-block { 1 1 } block ] unit-test
[ t ] [ 2 3 <board> { 1 1 } block-free? ] unit-test
[ f ] [ 2 3 <board> dup { 1 1 } COLOR: red set-block { 1 1 } block-free? ] unit-test
[ t ] [ 2 3 <board> dup { 1 1 } COLOR: red set-block { 1 2 } block-free? ] unit-test

10
extra/uu/uu-tests.factor
View File

@ -1,17 +1,15 @@
USING: io.streams.string kernel tools.test ;
USING: kernel tools.test ;
IN: uu
CONSTANT: plain
"The smooth-scaled python crept over the sleeping dog"
CONSTANT: encoded
"""begin
M5&AE('-M;V]T:"US8V%L960@<'ET:&]N(&-R97!T(&]V97(@=&AE('-L965P
"begin
M5&AE('-M;V]T:\"US8V%L960@<'ET:&]N(&-R97!T(&]V97(@=&AE('-L965P
':6YG(&1O9P
end
"""
"
{ t } [ plain string>uu encoded = ] unit-test
{ t } [ encoded uu>string plain = ] unit-test