]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/math/affine-transforms/affine-transforms-tests.factor
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / extra / math / affine-transforms / affine-transforms-tests.factor
index cdbd5eef39c283385a769c1c4b46fd851f5f605c..52008323f6638677c68333df29f914a956a73d97 100644 (file)
@@ -3,53 +3,53 @@ USING: arrays kernel literals tools.test math math.affine-transforms
 math.constants math.functions ;
 IN: math.affine-transforms.tests
 
-[ { 7.25 4.25 } ] [
+{ { 7.25 4.25 } } [
     { 0.75 0.75 } { 0.75 -0.75 } { 5.0 5.0 } <affine-transform>
     { 1.0 2.0 } a.v
 ] unit-test
 
-[ -1.125 ] [
+{ -1.125 } [
     { 0.75 0.75 } { 0.75 -0.75 } { 5.0 5.0 } <affine-transform>
     |a|
 ] unit-test
 
-{ 1.0 3.0 } { 2.0 4.0 } { 5.0 6.0 } <affine-transform> 1array [
+{ 1.0 3.0 } { 2.0 4.0 } { 5.0 6.0 } <affine-transform> }      [
     { 1.0 2.0 } { 3.0 4.0 } { 5.0 6.0 } <affine-transform>
     transpose-axes
 ] unit-test
 
-{ 1.0 -1.0 } { 1.0 1.0 } { 0.0 0.0 } <affine-transform> 1array [
+{ 1.0 -1.0 } { 1.0 1.0 } { 0.0 0.0 } <affine-transform> }      [
     { 0.5 0.5 } { -0.5 0.5 } { 5.0 5.0 } <affine-transform>
     inverse-axes
 ] unit-test
 
-{ 1.0 -1.0 } { 1.0 1.0 } { -10.0 0.0 } <affine-transform> 1array [
+{ 1.0 -1.0 } { 1.0 1.0 } { -10.0 0.0 } <affine-transform> }      [
     { 0.5 0.5 } { -0.5 0.5 } { 5.0 5.0 } <affine-transform>
     inverse-transform
 ] unit-test
 
-{ 1.0 0.0 } { 0.0 1.0 } { 0.0 0.0 } <affine-transform> 1array [
+{ 1.0 0.0 } { 0.0 1.0 } { 0.0 0.0 } <affine-transform> }      [
     { 0.5 0.5 } { -0.5 0.5 } { 5.0 5.0 } <affine-transform>
     dup inverse-transform a.
 ] unit-test
 
-{ 2.0 -1.0 } { -1.0 -2.0 } { 5.0 -6.0 } <affine-transform> 1array [
+{ 2.0 -1.0 } { -1.0 -2.0 } { 5.0 -6.0 } <affine-transform> }      [
     { 1.0 0.0 } { 0.0 -1.0 } { 0.0 0.0 } <affine-transform>
     { 2.0 1.0 } { -1.0 2.0 } { 5.0 6.0 } <affine-transform>
     a.
 ] unit-test
 
-[ t ] [
+{ t } [
     { 0.01  0.02  } { 0.03  0.04  } { 0.05  0.06  } <affine-transform>
     { 0.011 0.021 } { 0.031 0.041 } { 0.051 0.061 } <affine-transform> 0.01 a~
 ] 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> }      [
     { 5.0 10.0 } <translation>
 ] unit-test
 
 { $[ pi  0.25 * cos ] $[ pi 0.25 * sin ] }
 { $[ pi -0.25 * sin ] $[ pi 0.25 * cos ] }
-{ 0.0 0.0 } <affine-transform> 1array [
+{ 0.0 0.0 } <affine-transform> }      [
     pi 0.25 * <rotation>
 ] unit-test